[Resolved][VB6] 'Hidden Mouse'

[letram]

I was wondering if there is a way to simulate mouse movement/clicking in a VB6 application without having it in focus. Like my title says a hidden mouse. Perhaps i have a window completely over my VB app, the mouse can't click the application if there is something over it. I know there are ways to control the mouse/cursor, and i know how to do this. If anyone could lead me in the right direction that would be great.

[DigiRev]

To move the mouse cursor you would use the SetCursorPos() API function. Real easy to use:
http://allapi.mentalis.org/apilist/SetCursorPos.shtml

[letram]

I'm sorry that you mis-understood. Or perhaps I can't explain my self right. I was wondering if there is a way to click something on a VB6 application without using the mouse. Literally 'simulate'. This may sound kind of dumb, but i am wondering. But thank you for the quick reply.

[03myersd]

I think what you want to do is use a sub in a command button click or the like. Say you had the code:

Private Sub Command1_Click()
Print "Hello,World!"
End Sub

and wanted to make the mouse click that in a timer event. All you would do is use this code in the timer:

Private Sub Timer1_Timer()
Call Command1_Click
End Sub

[Al42]

The thing you're "simulating" by - if you can find a way - "clicking the mouse" (in software) is firing the Click event of the control (or form) the mouse cursor is on. So just run the code in the event - either by calling the Click event (sub), which is a bad practice, or by putting that code into another sub and calling it from your "I want to click the mouse here now) code and from the actual Click event.

[Lord Orwell]

if you are wanting to click the button on a program you didn't write yourself, you will need to use the sendmessage or postmessage api to send the button a virtual enter or space.

[Jazz00006]

I think I can see where this is going....

This one, while not what you want, can simulate mouse movement http://cruels.net/index.php?showtopic=4895

and this one can click anywhere on a specified window, providing you have its window handle (hWnd as it's commonly called)
http://cruels.net/index.php?showtopic=4406 (Or see attachment for direct download)

[letram]

Thank you very much Jazz that is what i needed. Also thank you to the others who tried to help.

EDIT: another question, i want to click a shockwave flash component. How would i get the handle of it?

[Lord Orwell]

That is nearly impossible. It is actually not too hard if you leave the window open but i don't recommend you even ask this question in this forum because some people might take it that you are wanting to make a program to cheat on flash games. This is against forum rules.

[Jazz00006]

That is nearly impossible.

I beg to differ there my lord ^_^

On a command button or pictures MouseUp Sub, call GetWindow

It saves the window handle in selwnd

Paste this into a module

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Public Type POINTAPI
        x As Long
        y As Long
End Type
public selwnd as long
Sub GetWindow()
    Dim mousexy As POINTAPI
    GetCursorPos mousexy
    selwnd = WindowFromPoint(mousexy.x, mousexy.y)
End Sub

and if you do not want to do that, you may want to look at : http://cruels.net/index.php?showtopic=3266


I have no idea what you plan on using this for, I am just supplying code, but be careful from now on.

[Lord Orwell]

he said flash animation which means it's in a web browser. The hard part of this is getting the handle to the flash animation. It is possible to get the handle to the browser window, but even this is not exactly easy.

[letram]

he said flash animation which means it's in a web browser. The hard part of this is getting the handle to the flash animation. It is possible to get the handle to the browser window, but even this is not exactly easy.

I said exactly what i meant, the shockwave flash component. It loads the .swf directly. And thank you jazz.

[Jazz00006]

don't forget to rate the people who helped
and no problem

[Lord Orwell]

ok then sorry. It is a form control then? I have never tried putting a shockwave form on a control but i can see how that would be very useful. All the demo disks from pc world run that way.