代码来自史诗师姐
Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
Dim key(3), a, b, c, d
key(1) = 162
key(2) = 164
key(3) = 160
Rem 检测按键
For i = 1 To UBound(key)
If GetAsyncKeyState(key(i)) < 0 Then
Goto 检测按键
End If
Next
SetSimMode 2
KeyPress "F5", 1
Delay 10
Goto 检测按键