mouse_event - 模擬 Mouse Actions
Private 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 )
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
Const MOUSEEVENTF_WHEEL = &H800
Const MOUSEEVENTF_ABSOLUTE = &H8000
使用方法
mouse_event &H2 Or &H4, 0, 0, 0, 0
'按一下左鍵
mouse_event &H1 + &H2, 20000, 5000, 0, 0
mouse_event &H4, 0, 0, 0, 0
'向右下 Drag ,x-50000個單位,y-20000個單位 ,然後鬆開
mouse_event &H8000 + &H1, 10000, 20000, 0, 0
'移到指定x(10000),y(20000) 位置
for detail
GetCursorPos - Get Mouse Position Out of the Form
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Private Sub Form_Activate()
Dim A As POINTAPI
Do
DoEvents
GetCursorPos A
Label1.Caption = "滑鼠位置: X:" & A.x & " Y:" & A.y
Loop
End Sub
★Kit↘..
