HOOK键盘钩子卡掉

黑色幽默ゞ

加了个延时（300）快速按键十几下就掉了。

  

子程序名	返回值类型	公开	备 注
键盘_监听	整数型
参数名	类 型	参考	可空	数组	备 注
nCode	整数型
wParam	整数型
lParam	整数型

变量名	类 型	静态	数组	备 注
Message	字节集
VkCode	整数型
_	整数型		254

' 感谢[url]https://bbs.125.la/forum.php?mod=viewthread&tid=14648771[/url]提供的键盘钩子报错解决方法
Message ＝ 指针到字节集 (lParam, 24)
VkCode ＝ 取字节集数据 (Message, #整数型, 1)
如果真 (nCode ＝ #HC_ACTION )  ' 判断是否是有效按键
如果真 (wParam ＝ 256 或 wParam ＝ 260)
如果真 (_ [VkCode] ＞ 0)
返回 (CallNextHookEx (集_键盘钩子句柄, nCode, wParam, lParam))
_ [VkCode] ＝ _ [VkCode] ＋ 1
键盘_回调 (键名 [VkCode] ＋ “按下”)

如果真 (wParam ＝ 257)
如果真 (_ [VkCode] ＜ 1)
返回 (CallNextHookEx (集_键盘钩子句柄, nCode, wParam, lParam))
_ [VkCode] ＝ _ [VkCode] － 1
键盘_回调 (键名 [VkCode] ＋ “放开”)

返回 (CallNextHookEx (集_键盘钩子句柄, nCode, wParam, lParam))

子程序名	返回值类型	公开	备 注
键盘_回调
参数名	类 型	参考	可空	数组	备 注
键状态	文本型

调试输出 (键状态)
程序_延时 (300)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 键盘_监听, 整数型<br /> .参数 nCode, 整数型<br /> .参数 wParam, 整数型<br /> .参数 lParam, 整数型<br /> .局部变量 Message, 字节集<br /> .局部变量 VkCode, 整数型<br /> .局部变量 _, 整数型, 静态, "254"<br /> <br /> ' 感谢<a href="https://bbs.125.la/forum.php?mod=viewthread&tid=14648771" rel="nofollow" target="_blank">https://bbs.125.la/forum.php?mod=viewthread&tid=14648771</a>提供的键盘钩子报错解决方法<br /> Message ＝ 指针到字节集 (lParam, 24)<br /> VkCode ＝ 取字节集数据 (Message, #整数型, 1)<br /> .如果真 (nCode ＝ #HC_ACTION)  ' 判断是否是有效按键<br />     .如果真 (wParam ＝ 256 或 wParam ＝ 260)<br />         .如果真 (_ [VkCode] ＞ 0)<br />             返回 (CallNextHookEx (集_键盘钩子句柄, nCode, wParam, lParam))<br />         .如果真结束<br />         _ [VkCode] ＝ _ [VkCode] ＋ 1<br />         键盘_回调 (键名 [VkCode] ＋ “按下”)<br />     .如果真结束<br /> <br />     .如果真 (wParam ＝ 257)<br />         .如果真 (_ [VkCode] ＜ 1)<br />             返回 (CallNextHookEx (集_键盘钩子句柄, nCode, wParam, lParam))<br />         .如果真结束<br />         _ [VkCode] ＝ _ [VkCode] － 1<br />         键盘_回调 (键名 [VkCode] ＋ “放开”)<br />     .如果真结束<br /> <br /> <br /> .如果真结束<br /> 返回 (CallNextHookEx (集_键盘钩子句柄, nCode, wParam, lParam))<br /> <br /> .子程序 键盘_回调<br /> .参数 键状态, 文本型<br /> <br /> 调试输出 (键状态)<br /> <br /> 程序_延时 (300)

HOOK键盘鼠标钩子.e (957.8 KB, 下载次数: 12)

2023-5-4 18:20 上传

点击文件名下载附件

LeeJy

不能加延时，如果要控制按键调用功能的频率的话可以这样写

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
集_钩子	类_钩子
按键频率	整数型
集_上次按键时间	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

集_钩子.安装钩子_键盘 (取窗口句柄 (), &键盘_回调, 真)

子程序名	返回值类型	公开	备 注
键盘_回调	整数型		参数一[按键类型],256=按下，257=放开,258=单击,参数二[键代码]
参数名	类 型	参考	可空	数组	备 注
按键类型	整数型
键代码	整数型

变量名	类 型	静态	数组	备 注
本次按键时间	整数型

如果真 (按键类型 ＝ 256)
本次按键时间 ＝ 取启动时间 ()
判断 (本次按键时间 － 集_上次按键时间 ＜ 2000)
调试输出 (“按键频繁”, 本次按键时间 － 集_上次按键时间)



调试输出 (“调用功能”, 本次按键时间 － 集_上次按键时间)
集_上次按键时间 ＝ 取启动时间 ()


返回 (1)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 集_钩子, 类_钩子<br /> .程序集变量 按键频率, 整数型<br /> .程序集变量 集_上次按键时间, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 集_钩子.安装钩子_键盘 (取窗口句柄 (), &键盘_回调, 真)<br /> <br /> .子程序 键盘_回调, 整数型, , 参数一[按键类型],256=按下，257=放开,258=单击,参数二[键代码]<br /> .参数 按键类型, 整数型<br /> .参数 键代码, 整数型<br /> .局部变量 本次按键时间, 整数型<br /> <br /> .如果真 (按键类型 ＝ 256)<br />     本次按键时间 ＝ 取启动时间 ()<br /> <br />     .判断开始 (本次按键时间 － 集_上次按键时间 ＜ 2000)<br />         调试输出 (“按键频繁”, 本次按键时间 － 集_上次按键时间)<br /> <br />     .默认<br /> <br />         调试输出 (“调用功能”, 本次按键时间 － 集_上次按键时间)<br />         集_上次按键时间 ＝ 取启动时间 ()<br />     .判断结束<br /> <br /> .如果真结束<br /> <br /> 返回 (1)

afu45

加了延时 不卡你卡谁

黑色幽默ゞ

afu45 发表于 2023-5-4 18:26
加了延时 不卡你卡谁

功能里必须要加程序_延时，还有别的方法吗

花间一壶酒

黑色幽默ゞ 发表于 2023-5-4 18:30
功能里必须要加程序_延时，还有别的方法吗

不要加延迟  或者搞个5的延迟就行了   单独调用一个线程