关于按键精灵按键按住弹起的判断

发布网友发布时间：2022-05-21 20:40

共3个回答

热心网友时间：2023-11-10 20:37

题主复制代码到按键精灵中调试运行，按下和松开W键，然后注意看桌面右下角，代码如下：

Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
Do
    n = GetAsyncKeyState(87)
    If n < 0 Then
        i=i+1
        Call Plugin.Msg.Tips("脚本运行中" & i)
        Else
        i=0
        Call Plugin.Msg.Tips("重新计数")
    End If
    Delay 200
Loop

热心网友时间：2023-11-10 20:37

Rem 开始
Delay 100
WaitKey a
If a=65
MessageBox "你按下A了"
Delay 100
Rem xh
Delay 100
GetLastKey a
If a=65
Goto xh
EndIf
MessageBox "你松开A了"
EndIf
Goto 开始

测试过这个可以用，但是有一些瑕疵。未修复

热心网友时间：2023-11-10 20:38

那么麻烦做什么，直接设定一个停止键不就得了