Move Mouse: (Cservers)

Title: Move Mouse:

|2eM!x - March 27, 2005 08:36 PM (GMT)

CODE

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)
Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal why As Long) As Long

Public Sub MouseClick(x As Long, y As Long, Button As MouseButtonConstants, Optional Clicks As Long = 1)
Dim I As Long, lFlag As Long

SetCursorPos x, y

For I = 1 To Clicks

Select Case Button
Case vbLeftButton: lFlag = &H2
Case vbMiddleButton: lFlag = &H20
Case vbRightButton: lFlag = &H8
End Select

mouse_event lFlag, 0, 0, 0, 0

Select Case Button
Case vbLeftButton: lFlag = &H4
Case vbMiddleButton: lFlag = &H40
Case vbRightButton: lFlag = &H10
End Select

mouse_event lFlag, 0, 0, 0, 0

Next
End Sub

Call SetCursorPos(x,y)

View Full Version: Move Mouse: