Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyF12) Then
Do
keybd_event vbKey1, 0, 0, 0
Loop Until GetAsyncKeyState(vbKeyF11)
End If
End Sub
上述语句功能是按F12键，1键开始连续点击，按F11键终止1键的连续点击动作。这里开始和终止用到了2个键，但是现在本人想只用一个热键，即按这个键1键开始连击，再按一下则终止，试过了把F11换成F12，但是不行，换了成单击动作了，本人要的是连击。
你好，只要将GetAsyncKeyState换成GetKeyState，即可实现你的功能。 示例代码:Private Sub Timer1_Timer()If GetKeyState(vbKeyF12) Then
Do
keybd_event vbKey1, 0, 0, 0
Loop Until GetAsyncKeyState(vbKeyF12)End IfEnd Sub
