If Hwnd=0
MsgBox("窗口获得失败，按确定结束……")
//如果句柄获取失败，脚本结束
End If
Call Plugin.Window.Active(Hwnd)
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 "2", 1
Delay 10
KeyPress "1", 1
Delay 10
KeyPress "3", 1
Delay 50
KeyPress "5", 1
Delay 50
KeyPress "6", 1
Delay 30
KeyPress "n", 1
Delay 50
Goto 检测按键

求教怎么修改 优先释放1和2

检测按键状态后顺序执行next后的代码，你说怎么改？

If Hwnd=0
MsgBox("窗口获得失败，按确定结束……")
ExitScript
End If
SetSimMode 2
Call Plugin.Window.Active(Hwnd)
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
Do
For i = 1 To UBound(key)
TracePrint GetAsyncKeyState(key(i))
If GetAsyncKeyState(key(i)) < 0 Then
KeyPress "1", 1
Delay 10
KeyPress "2", 1
Delay 10
KeyPress "3", 13
Delay 50
KeyPress "5", 1
Delay 50
KeyPress "6", 1
Delay 30
KeyPress "n", 11
Delay 50
End If
Next
Loop