不帮你写完整,仅供参考。我相信你能看懂。
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Do
If GetAsyncKeyState(65) = 1 Then
//Call Plugin.Msg.Tips("现在是1")
//弹起返回1 实际看不见1
ElseIf GetAsyncKeyState(65)=0 Then
//Call Plugin.Msg.Tips("现在是0")
//没动作返回0 按其他键返回也是0
Else
//Call Plugin.Msg.Tips("情况未知")
//按A键返回 未知
End If
Delay 10
Loop
使用ActonListener不就可以了.