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

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 (局_时间句柄)

kmskik

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

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

li609545570

牛 模拟按键可以用到

qq977352880

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

光影魔术

感谢分享源码

dujiantao856

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

396384183

感谢分享学习下载。

shituo

kmskik 发表于 2024-5-20 14:23
请问这个和死循环里判断按键状态有区别吗？
然后只能调用一次这个命令是吧 ...

你想多次调用就复制一行就行了

yuxuanju

谢谢分享，下载学习。

hjinpwhe1

大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬大佬