按键精灵如何根据快捷键生效部分脚本？

2025-03-27 16:27:24

推荐回答（1个）

回答1：

Private Declare Function GetKeyState Lib"user32"(ByVal nVirtKey As Long) As Integer
Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
Dimenv AA, BB, CC, DD
Global zz
DO
    If GetAsyncKeyState(17) = 32768 and GetKeyState(65) < 0 Then 
        TracePrint "你启动了线程A"
        StopThread BB
        StopThread CC
        StopThread DD
        AA = BeginThread(A)
        Delay 1000
    ElseIf GetAsyncKeyState(17) = 32768 and GetKeyState(66) < 0 Then
        TracePrint "你启动了线程B"
        StopThread AA
        StopThread CC
        StopThread DD
        BB = BeginThread(B)
        Delay 1000
    ElseIf GetAsyncKeyState(17) = 32768 and GetKeyState(67) < 0 Then
        TracePrint "你启动了线程C"
        StopThread BB
        StopThread AA
        StopThread DD
        CC = BeginThread(C)
        Delay 1000
    ElseIf GetAsyncKeyState(17) = 32768 and GetKeyState(68) < 0 Then
        TracePrint "你启动了线程D"
        StopThread BB
        StopThread CC
        StopThread AA
        DD = BeginThread(D)
        Delay 1000
    End If
    
Loop
Sub A
    Do
        z = GetLastClick
        If z = 32770 Then 
            TracePrint "你按下了左键A" & zz
            zz = zz + 1
        End If
    Loop
End Sub
Sub B
    Do
        z = GetLastClick

        If z = 32770 Then 
            TracePrint "你按下了左键B"&zz
            zz = zz + 1
        End If
    Loop
End Sub
Sub C
    Do
        z = GetLastClick
        If z = 32770 Then 
            TracePrint "你按下了左键C" & zz
            zz = zz + 1
        End If
    Loop
End Sub
Sub D
    Do
        z = GetLastClick
        If z = 32770 Then 
            TracePrint "你按下了左键D" & zz
            zz = zz + 1
        End If
    Loop
End Sub

如果你只是需要一个基本启动判断那么用多个IF就行了，不过你需要运行子线程的情况下还能开关其他子线程那还是需要多线程的，这是一个简单的判断组合键启动关闭子线程的代码，定义的API函数有GetKeyState和GetAsyncKeyState，把你的脚本放入相对的子程序中就行了，也就是zz=zz+1可以换成你的自写脚本，zz这个变量只是用来计算左键按键的次数的，没有任何作用。

最新问答

档案在组织部个人可以看吗？

耕升显卡怎么样质量好不好优点和缺点各是什么

钢琴怎么掌握节拍

壬申壬寅乙丑壬午算女命

大学校内学车会便宜多少？

请摩托高手来下麻烦你们下我的摩托车刚买的时候能跑110才用了5000公里现在也就98这是怎么回事？

GBA上你认为最经典的游戏是哪一款或者哪一个系

现代瑞纳二手车14年的现代瑞纳自动挡跑了四万多公里五万五买贵不贵？

兰花香菇炒虾仁的做法步骤图，怎么做好吃

为什么UC浏览器WiFi能缓存视频切换到流量怎么都不行 1kb的速度都没有