如何设置按键?我想要键盘上的W键每十秒按一次。不要按键精灵。一个简单...答:0, 0 End Sub Private Sub Timer1_Timer()Static i i = i + 1 Select Case i Case 10 keybd_event vbKeyW, vbKeyW, 2, 0 keybd_event 38, 38, 0, 0 Case 20 DoEvents keybd_event 38, 38, 2, 0 SendKeys "^ "Timer1.Enabled = False End Select End Sub 一个timervb的 ...