求用按键精灵做一个组合键

2025-03-19 12:05:08
推荐回答(1个)
回答1:

'你的检测启动是 Shift 停止也要求是Shift 执行代码中也有Shift为了避免冲突我把停止快捷键弄成了 F12
Do
    Key = WaitKey()
    If Key = 16 Then    
        TracePrint "恭喜你按下了Shift键,请1秒内放开Shift键,避免与脚本产生冲突!"
        Delay 1000
        Do
            KeyDown "Shift", 1
            Delay 10
            LeftClick 1
            KeyUp "Shift", 1
            Delay 100
            Key2 = GetLastKey()
            TracePrint Key2 
            If Key2 =  123 Then TracePrint "按F12停止执行!(避免与代码产生冲突)" : Exit Do
        Loop 
    End If 
    Delay 100
Loop
'制作:法科
'时间:2017-06-06