How do I simulate mouse clicks?

[jbrown]

I posted this in the "general questions" forum and someone mentioned Mouse_Events and said I should post this question here. I must admit though, I've never used API (that I know of anyway), and the VB Help file seems to be telling me that I can only use MouseEvents with Visual C++, which I quess would be ok, but I've never used visual C, though have used C extensivly in the past (borland).


I want a VB program to take over the mouse. what I really need is to press my mouse button every 10 seconds until I stop the program. I want to physicaly move the mouse myself, but I want the mouse to press the left button automaticaly. It almost seems like this type of program would have been writen already so if you know of a program let me know. if not, does anyone know how to do this? the mouse cursor would not be over a VB form, it could be anywhere on the screen.

Thanks

[Megatron]

Add this to the General Declarations section of the Form.

Private Type POINTAPI
    x As Long
    y As Long
End Type
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
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
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202

Add a Timer to the Form, and set it's Interval to 10, then add the following code to it.

Dim hWin As Long
Dim PT As POINTAPI
 
GetCursorPos PT
hWin = WindowFromPoint(PT.x, PT.y)
If hWin Then
    PostMessage hWin, WM_LBUTTONDOWN, 1, 0
    PostMessage hWin, WM_LBUTTONUP, 1, 0
End If

[agent]

if you set the timer interval to 10, that code will execute every ten miliseconds, not every ten seconds.

I'd suggest using a Do...Loop method (you the timer function)

[Megatron]

Oops. Sorry about that.

Change the interval to 10000 instead of 10.