Question

VB鼠标移动与单击代码

我想让VB实现在某坐标双击一下，延迟几秒，再到另一坐标双击一下，延迟几秒，如此无限循环，这个程序错在哪里了?求指教，谢谢！
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)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Do
Sleep 5000
AutoPressMouse 676, 455
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
Sleep 120000
AutoPressMouse 867, 455
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
Sleep 120000
Loop
End Sub
Private Sub AutoPressMouse(x As Long, y As Long)
SetCursorPos x, y
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub
Private Sub Command2_Click()
Form2.Show
End Sub

Answer 1

你把时间循环那部分用个时间控件来进行控制.
每几秒循环一次.

timer.interval = 5000 '5秒一次循环

Private Sub Timer1_Timer()
'这里放循环要做的代码
End Sub
按键来控制时间控件的开始和停止就好