《超级_延时_热键》 在延时里面加入热键功能

shituo

由于键盘钩子被杀软报毒非常严重
所以我开发了这个不报毒

  

子程序名	返回值类型	公开	备 注
超级_延时_热键			不建议在线程中使用 不占用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 (局_时间句柄)

鬼客

感谢分享

Av0x

能在任何地方使用麽

ctry78985

感谢分享

dulang

感谢分享，很给力！~

kmskik

shituo 发表于 2024-5-20 22:15
你想多次调用就复制一行就行了

能教下吗？比如我想按f1 执行子程序1,F2执行子程序2,F3执行子程序3，谢谢

li609545570

牛 模拟按键可以用到

qq977352880

期待更多类似的好，支持你！

光影魔术

感谢分享源码

dujiantao856

精易里面 程序 延时 改的 谢谢