Printable View
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.
To move the mouse cursor you would use the SetCursorPos() API function. Real easy to use:
http://allapi.mentalis.org/apilist/SetCursorPos.shtml
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.
I think what you want to do is use a sub in a command button click or the like. Say you had the code:
and wanted to make the mouse click that in a timer event. All you would do is use this code in the timer:Code:Private Sub Command1_Click()
Print "Hello,World!"
End Sub
Code:Private Sub Timer1_Timer()
Call Command1_Click
End Sub
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.
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.
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)
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?
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.
I beg to differ there my lord ^_^Quote:
Originally Posted by Lord Orwell
On a command button or pictures MouseUp Sub, call GetWindow
It saves the window handle in selwnd
Paste this into a module
Code: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.
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.Quote:
Originally Posted by Lord Orwell
don't forget to rate the people who helped :thumb:
and no problem
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.