我的初学资料~1

点击鼠标后鼠标的定位

 

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long '这个是设置鼠标的位置!
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) '定义鼠标事件
Dim i As Long

'vb模拟鼠标在屏幕的x = 10 : y = 20 的位置上点击一下左键

Private Sub Form_Load()
 Timer1.Enabled = True
 Timer1.Interval = 5000      '5秒
End Sub

Private Sub Timer1_Timer()
Call SetCursorPos(10, 200) '让鼠标移动到(10,20)
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 '模拟鼠标的左键单击!
 i = i + 1
Print "点击屏幕" & i
End Sub