论坛 › 已解决问题区 › 如何禁止 热键 重复使用?[已解决]

wu5cheng3_bak 发表于 2013-7-4 02:36:19

如何禁止 热键 重复使用?[已解决]

本帖最后由 wu5cheng3 于 2013-7-4 08:51 编辑

当按下热键，继续按热键连续运行函数_exit() 按多少次后面就出现多少次InputBox,

如何让这个函数_exit() 运行出现InputBox时，禁用热键呢?



Opt("TrayMenuMode", 3)

Global Const $TRAY_EVENT_PRIMARYDOUBLE = -13

HotKeySet("+!z", "_exit")

While 1
        Sleep(50)
        tray()
WEnd

Func tray()
        $msg = TrayGetMsg()
        Select
                Case $msg = $TRAY_EVENT_PRIMARYDOUBLE
                        _exit()
        EndSelect
EndFunc

Func _exit()
    InputBox("1", "2", "", "*", 100, 20, @DesktopWidth / 2 - 100, @DesktopHeight / 2 - 100, 2)
EndFunc

zldfsz 发表于 2013-7-4 08:28:59

最后一个函数改成这样
Func _exit()
        HotKeySet("+!z")
    InputBox("1", "2", "", "*", 100, 20, @DesktopWidth / 2 - 100, @DesktopHeight / 2 - 100, 2)
        HotKeySet("+!z", "_exit")
EndFunc

wu5cheng3_bak 发表于 2013-7-4 08:49:10

回复 2# zldfsz


非常感谢Z兄,果然熬夜对脑袋不好,帮助文档都不看了!~

HotKeySet ( "热键" [, "函数名"] )

参数
热键 要设置的热键,按键格式与 Send() 函数使用的一样.
函数名 [可选参数] 按下热键后要调用的函数名.留空则撤销此前设置的热键.

查看完整版本: 如何禁止 热键 重复使用?[已解决]