Send Mouse

[Imperceptus]

Does anyone know how to send mouse coordinates and events to another window?

[Eli_1]

Does anyone know how to send mouse coordinates. . .

Yes:

Code Select Expand


Declare Function SetCursorPosition Lib "user32" _
(ByVal x as long, ByVal y as long) as Long


. . . and events

Yes:

Code Select Expand


'//Here's the prototype, Imp
Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

'//Some constants it uses
Const EVENT_LEFTDOWN = &H2
Const EVENT_LEFTUP = &H4
Const EVENT_MIDDLEDOWN = &H20
Const EVENT_MIDDLEUP = &H40
Const EVENT_RIGHTDOWN = &H8
Const EVENT_RIGHTUP = &H10
Const EVENT_MOVE = &H1

'//Useage
'//Example shows you how to left click
mouse_event EVENT_LEFTDOWN, 0, 0, 0, 0
mouse_event EVENT_LEFTUP, 0, 0, 0, 0


[Edit 1      ] Added the second part of his question
[Edit 2 - 9] Re-arranged the text  

[Imperceptus]

awesome, thanks.

[Imperceptus]

Extra note, I think your example is for .Net... that or you were just poking me in the right direction.

Code Select Expand

Declare Function SetCursorPosition Lib "user32" _
(ByVal x as long, ByVal y as long) as Long

Gives entry point error on user32.dll

Using SetCursorPos instead.

[Eli_1]

Extra note, I think your example is for .Net... that or you were just poking me in the right direction.

I figured setting the cursor position is easy enough to figure out, yet the mouse_event is a little harder, which is why I gave you code for that one.