Private Sub Timer1_Timer()
If Timer - k1 >= 0.2 Then
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 k1 = Timer
End If
If Timer - k2 >= 20 Then
SendKeyToWnd vbKey1
k2 = Timer
End If
If Timer - k3 >= 2
很小部分测试版本代码~
If Timer - k1 >= 0.2 Then
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 k1 = Timer
End If
If Timer - k2 >= 20 Then
SendKeyToWnd vbKey1
k2 = Timer
End If
If Timer - k3 >= 2
很小部分测试版本代码~