W键弹起按键精灵自动按s键,代码如下:满意请采纳,谢谢
Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
ajm = 87 //w的按键码
Do
aj = WaitKey
If aj = 87 Then
do
Key = GetAsyncKeyState(ajm)
If Key = 0 Then //w键是弹起状态
KeyPress "S", 1
Exit Do
End If
Loop
End If
Delay 10
Loop