代码如下：
Event Form1.CheckBox1.Click
If KeyPressE = "" And Form1.CheckBox1.Value = 1 Then
KeyPressE = BeginThread(KeyPressKey(69, 5000))
Else
StopThread KeyPressE
KeyPressE = ""
End If
End Event
Event Form1.CheckBox2.Click
If KeyPressQ = "" And Form1.CheckBox2.Value = 1 Then
KeyPressQ = BeginThread(KeyPressKey(81, 100))
Else
StopThread KeyPressQ
KeyPressQ = ""
End If
End Event
Sub KeyPressKey(Key, t)
While True
KeyPress Key, 1
Delay t
Wend
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024