《超级_延时_热键》在延时里面加入热键功能 - 精易论坛

子程序名	返回值类型	公开	备注
超级_延时_热键			不建议在线程中使用不占用cpu，窗口不卡死，不影响其它代码执行
参数名	类型	参考	可空	数组	备注
延时间隔	整数型				单位毫秒 1000毫秒 = 1秒
响应事件	子程序指针
键代码	字节型				可以是功能键或者普通的键
组合键代码	字节型				可空可以是功能键或者普通的键
事件参数1	整数型
事件参数2	整数型
事件参数3	整数型

变量名	类型	静态	数组	备注
局_时间句柄	整数型
局_时间	长整数型
是否按下	逻辑型
按键状态	整数型
按键状态1	整数型
组合键状态	整数型

局_时间＝ _MUI (延时间隔, -10000) ' 时间隔 × -10000
局_时间句柄＝ CreateWaitableTimerA (0, 假, 0)
SetWaitableTimer2 (局_时间句柄, 局_时间, 0, 0, 0, 假)

判断循环首 (MsgWaitForMultipleObjects (1, 局_时间句柄, 真, 10, 255) ≠ 0)

按键状态＝ _And (GetKeyState (键代码), 32768) ' _判断按键状态 (

判断 (按键状态 ≠ 0) ' 或

' 调试输出 (按键状态, 位与 (按键状态, 32768))

如果 (组合键代码＞ 0)

如果真 (是否按下＝假)

' 调试输出 (组合键代码, 是否按下)

组合键状态＝ _And (GetKeyState (组合键代码), 32768) ' _取虚拟键状态 (组合键代码)

如果真 (组合键状态 ≠ 0)

是否按下＝真

如果真 (是否按下＝假)

是否按下＝真

' 是否按下＝假

' 执行子程序 (响应事件, 事件参数1, 事件参数2, 事件参数3)

判断 (组合键代码＞ 0 且是否按下＝假)

组合键状态＝ _And (GetKeyState (组合键代码), 32768) ' _判断按键状态 (

判断 (组合键状态 ≠ 0)

组合键状态＝ _And (GetKeyState (键代码), 32768) ' _取虚拟键状态 (组合键代码)

如果真 (组合键状态 ≠ 0)

是否按下＝真

判断 (是否按下)

是否按下＝假

如果真 (组合键代码 ≠ 0)

如果真 (组合键代码＞ 0 且组合键状态 ≠ 0)

执行子程序 (响应事件, 事件参数1, 事件参数2, 事件参数3)

到循环尾 ()

' 调试输出 (2, 按键状态)

执行子程序 (响应事件, 事件参数1, 事件参数2, 事件参数3)

' 处理事件 ()

判断循环尾 ()
' SleepEx (1, 真) ' 需要Alert线程
_关闭句柄_CloseHandle (局_时间句柄)

.版本 2<br />
<br />
.子程序 超级_延时_热键, , 公开, 不建议在线程中使用 不占用cpu，窗口不卡死，不影响其它代码执行<br />
.参数 延时间隔, 整数型, , 单位 毫秒 1000毫秒 = 1秒  <br />
.参数 响应事件, 子程序指针<br />
.参数 键代码, 字节型, , 可以是功能键或者普通的键<br />
.参数 组合键代码, 字节型, 可空, 可空  可以是功能键或者普通的键<br />
.参数 事件参数1, 整数型, 可空<br />
.参数 事件参数2, 整数型, 可空<br />
.参数 事件参数3, 整数型, 可空<br />
.局部变量 局_时间句柄, 整数型<br />
.局部变量 局_时间, 长整数型<br />
.局部变量 是否按下, 逻辑型<br />
.局部变量 按键状态, 整数型<br />
.局部变量 按键状态1, 整数型<br />
.局部变量 组合键状态, 整数型<br />
<br />
局_时间 ＝ _MUI (延时间隔, -10000)  ' 时间隔 × -10000<br />
局_时间句柄 ＝ CreateWaitableTimerA (0, 假, 0)<br />
SetWaitableTimer2 (局_时间句柄, 局_时间, 0, 0, 0, 假)<br />
.判断循环首 (MsgWaitForMultipleObjects (1, 局_时间句柄, 真, 10, 255) ≠ 0)<br />
<br />
    按键状态 ＝ _And (GetKeyState (键代码), 32768)  ' _判断按键状态 (<br />
    .判断开始 (按键状态 ≠ 0)  ' 或<br />
        ' 调试输出 (按键状态, 位与 (按键状态, 32768))<br />
        .如果 (组合键代码 ＞ 0)<br />
            .如果真 (是否按下 ＝ 假)<br />
                '  调试输出 (组合键代码, 是否按下)<br />
                组合键状态 ＝ _And (GetKeyState (组合键代码), 32768)  ' _取虚拟键状态 (组合键代码)<br />
                .如果真 (组合键状态 ≠ 0)<br />
                    是否按下 ＝ 真<br />
                .如果真结束<br />
<br />
            .如果真结束<br />
<br />
        .否则<br />
            .如果真 (是否按下 ＝ 假)<br />
                是否按下 ＝ 真<br />
            .如果真结束<br />
<br />
        .如果结束<br />
        ' 是否按下 ＝ 假<br />
        ' 执行子程序 (响应事件, 事件参数1, 事件参数2, 事件参数3)<br />
    .判断 (组合键代码 ＞ 0 且 是否按下 ＝ 假)<br />
        组合键状态 ＝ _And (GetKeyState (组合键代码), 32768)  ' _判断按键状态 (<br />
        .判断开始 (组合键状态 ≠ 0)<br />
            组合键状态 ＝ _And (GetKeyState (键代码), 32768)  ' _取虚拟键状态 (组合键代码)<br />
            .如果真 (组合键状态 ≠ 0)<br />
                是否按下 ＝ 真<br />
            .如果真结束<br />
<br />
        .默认<br />
<br />
        .判断结束<br />
<br />
    .判断 (是否按下)<br />
        是否按下 ＝ 假<br />
        .如果真 (组合键代码 ≠ 0)<br />
            .如果真 (组合键代码 ＞ 0 且 组合键状态 ≠ 0)<br />
                执行子程序 (响应事件, 事件参数1, 事件参数2, 事件参数3)<br />
            .如果真结束<br />
            到循环尾 ()<br />
        .如果真结束<br />
        ' 调试输出 (2, 按键状态)<br />
        执行子程序 (响应事件, 事件参数1, 事件参数2, 事件参数3)<br />
        ' 处理事件 ()<br />
    .默认<br />
<br />
    .判断结束<br />
<br />
<br />
.判断循环尾 ()<br />
' SleepEx (1, 真)  ' 需要Alert线程<br />
_关闭句柄_CloseHandle (局_时间句柄)