键盘钩子使用10次后失效是怎么回事？

summer0411

使用键盘钩子检测A键按下后，在回调函数里继续按A键4次，A键按10次以后，键盘钩子就失效了，是为什么？请大佬指点。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
按下	逻辑型
键盘钩子句柄	整数型
按键	文本型
间隔	整数型
动作	文本型
集_句柄	整数型	0
全_许可证	整数型

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

键盘钩子句柄 ＝ 设置系统钩子_ (13, &处理消息, 取实例句柄_ (0), 0)

子程序名	返回值类型	公开	备 注
处理消息	整数型
参数名	类 型	参考	可空	数组	备 注
代码值	整数型
消息值	整数型
参数二	整数型

变量名	类 型	静态	数组	备 注
按键信息	按键信息

拷贝内存_ (按键信息, 参数二, 28)
调试输出 (代码值, 消息值, 参数二)
判断 (消息值 ＝ 256)
间隔 ＝ 取启动时间 () － 间隔
动作 ＝ “键盘按下”
按键 ＝ 键盘_键代码取键名 (按键信息.键代码)
间隔 ＝ 取启动时间 ()
启动线程 (&键盘按下, 按键信息.键代码, )
调试输出 (动作)
调试输出 (按键)

判断 (消息值 ＝ 257)
间隔 ＝ 取启动时间 () － 间隔
动作 ＝ “键盘放开”
按键 ＝ 键盘_键代码取键名 (按键信息.键代码)
间隔 ＝ 取启动时间 ()
启动线程 (&键盘放开, 按键信息.键代码, )
调试输出 (动作)
调试输出 (按键)
判断 (消息值 ＝ 260 且 按键信息.键代码 ＝ 164 或 按键信息.键代码 ＝ 165)
间隔 ＝ 取启动时间 () － 间隔
动作 ＝ “键盘按下”
按键 ＝ 键盘_键代码取键名 (按键信息.键代码)
间隔 ＝ 取启动时间 ()
调试输出 (动作)
调试输出 (按键)



如果真 (按键 ＝ “A键” 且 按下 ＝ 假)
按下 ＝ 真
计次循环首 (4, )
模拟按键 ( #A键, , )
延迟 (100)
计次循环尾 ()
按下 ＝ 假

返回 (呼叫下一钩子_ (键盘钩子句柄, 代码值, 消息值, 参数二))

子程序名	返回值类型	公开	备 注
键盘按下
参数名	类 型	参考	可空	数组	备 注
键代码	整数型

变量名	类 型	静态	数组	备 注
s	整数型

计次循环首 (取数组成员数 (集_句柄), s)
进入许可区 (全_许可证)
键盘_消息 (集_句柄 [s], 键代码, 3, )
退出许可区 (全_许可证)
调试输出 (集_句柄 [s])
延迟 (100)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
键盘放开
参数名	类 型	参考	可空	数组	备 注
键代码	整数型

变量名	类 型	静态	数组	备 注
s	整数型

计次循环首 (取数组成员数 (集_句柄), s)
键盘_消息 (集_句柄 [s], 键代码, 4, )
延迟 (100)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

UnhookWindowsHookEx (键盘钩子句柄)

i支持库列表	支持库注释
spec	特殊功能支持库
EThread	多线程支持库
eAPI	应用接口支持库

.版本 2<br /> .支持库 spec<br /> .支持库 EThread<br /> .支持库 eAPI<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 按下, 逻辑型<br /> .程序集变量 键盘钩子句柄, 整数型<br /> .程序集变量 按键, 文本型<br /> .程序集变量 间隔, 整数型<br /> .程序集变量 动作, 文本型<br /> .程序集变量 集_句柄, 整数型, , "0"<br /> .程序集变量 全_许可证, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 键盘钩子句柄 ＝ 设置系统钩子_ (13, &处理消息, 取实例句柄_ (0), 0)<br /> <br /> .子程序 处理消息, 整数型<br /> .参数 代码值, 整数型<br /> .参数 消息值, 整数型<br /> .参数 参数二, 整数型<br /> .局部变量 按键信息, 按键信息<br /> <br /> 拷贝内存_ (按键信息, 参数二, 28)<br /> 调试输出 (代码值, 消息值, 参数二)<br /> .判断开始 (消息值 ＝ 256)<br />     间隔 ＝ 取启动时间 () － 间隔<br />     动作 ＝ “键盘按下”<br />     按键 ＝ 键盘_键代码取键名 (按键信息.键代码)<br />     间隔 ＝ 取启动时间 ()<br />     启动线程 (&键盘按下, 按键信息.键代码, )<br />     调试输出 (动作)<br />     调试输出 (按键)<br /> <br /> .判断 (消息值 ＝ 257)<br />     间隔 ＝ 取启动时间 () － 间隔<br />     动作 ＝ “键盘放开”<br />     按键 ＝ 键盘_键代码取键名 (按键信息.键代码)<br />     间隔 ＝ 取启动时间 ()<br />     启动线程 (&键盘放开, 按键信息.键代码, )<br />     调试输出 (动作)<br />     调试输出 (按键)<br /> <br /> .判断 (消息值 ＝ 260 且 按键信息.键代码 ＝ 164 或 按键信息.键代码 ＝ 165)<br />     间隔 ＝ 取启动时间 () － 间隔<br />     动作 ＝ “键盘按下”<br />     按键 ＝ 键盘_键代码取键名 (按键信息.键代码)<br />     间隔 ＝ 取启动时间 ()<br />     调试输出 (动作)<br />     调试输出 (按键)<br /> .默认<br /> <br /> .判断结束<br /> <br /> .如果真 (按键 ＝ “A键” 且 按下 ＝ 假)<br />     按下 ＝ 真<br />     .计次循环首 (4, )<br />         模拟按键 (#A键, , )<br />         延迟 (100)<br />     .计次循环尾 ()<br />     按下 ＝ 假<br /> .如果真结束<br /> <br /> 返回 (呼叫下一钩子_ (键盘钩子句柄, 代码值, 消息值, 参数二))<br /> <br /> .子程序 键盘按下<br /> .参数 键代码, 整数型<br /> .局部变量 s, 整数型<br /> <br /> <br /> .计次循环首 (取数组成员数 (集_句柄), s)<br />     进入许可区 (全_许可证)<br />     键盘_消息 (集_句柄 <strike>, 键代码, 3, )<br />     退出许可区 (全_许可证)<br />     调试输出 (集_句柄 <strike>)<br />     延迟 (100)<br /> .计次循环尾 ()<br /> <br /> .子程序 键盘放开<br /> .参数 键代码, 整数型<br /> .局部变量 s, 整数型<br /> <br /> .计次循环首 (取数组成员数 (集_句柄), s)<br />     键盘_消息 (集_句柄 <strike>, 键代码, 4, )<br />     延迟 (100)<br /> .计次循环尾 ()<br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> UnhookWindowsHookEx (键盘钩子句柄)

dnxl

你不判断按键消息来源是真实键盘产生的还是模拟按键消息，这样搞不就成了死循环？系统会把这个有问题的钩子卸掉

学E到老

？？求助你还收币？

summer0411

学E到老 发表于 2024-9-22 16:36
？？求助你还收币？

不知道啊，我再传一遍。

summer0411

dnxl 发表于 2024-9-22 17:14
你不判断按键消息来源是真实键盘产生的还是模拟按键消息，这样搞不就成了死循环？系统会把这个有问题的钩子 ...

我研究一下