Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
Do
x = GetAsyncKeyState(90)
Select Case x
Case 1
Case 0
Case - 32767
KeyPress "E", 1
KeyPress "W", 1
KeyPress "T", 1
KeyPress "Q", 1
KeyPress "R", 1
KeyPress "1", 1
KeyPress "2", 1
KeyPress "3", 1
End Select
Loop
输出过后的结果不是我想要的zewtqr123,而是这个样子的,zewtqr321 zzzewt zqr12zzz,楼主看看有什么办法可以改进一下呀