使用键盘钩子如何判断按键信息来源？

summer0411

场景是：使用键盘钩子监测按键A按下，再执行4次按键A。因为无法区分真实键盘按键消息和模拟按键消息造成死循环，系统就卸掉了这个有问题的钩子，这种情况，如何解决？

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
按下	逻辑型
键盘钩子句柄	整数型
按键	文本型
间隔	整数型
动作	文本型
集_句柄	整数型	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 (键盘钩子句柄)

凌哥

我模块有按键连发，以前的免费版自己找，虽然旧版本有点逻辑上的BUG(偶尔会停不住)但一般问题不大

dnxl

按键信息第三个成员跟16进行与运算 为0则这个消息是硬件产生（来自键盘），非0则是模拟按键（来自keybd_event等API产生），
当然，如果使用的是驱动级的硬件模拟也是区分不出来的。

dwcq

凌哥 发表于 2024-9-22 18:29
我模块有按键连发，以前的免费版自己找，虽然旧版本有点逻辑上的BUG(偶尔会停不住)但一般问题不大 ...

能开源不

补充内容 (2024-9-23 01:36):
连发的那块

凌哥

dwcq 发表于 2024-9-23 01:36
能开源不

补充内容 (2024-9-23 01:36):

不可能开源的，我模块收费

dwcq

这是二楼说的，看调试输出  1 2  4  3       1 真实按下  2 然后是模拟按下  3  然后是模拟放开  4  最后真实放开

  

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

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

拷贝内存_ (按键信息, 参数二, 28)
判断 (消息值 ＝ 256)
如果真 (位与 (按键信息.标记, 16) ＝ 0)  ' = 0 真实按键
按下 ＝ 真
调试输出 (1)
模拟键盘按键 (按键信息.键代码)
如果真 (位与 (按键信息.标记, 16) ＝ 16)  ' = 16  模拟按键
调试输出 (2)

判断 (消息值 ＝ 257)
如果真 (位与 (按键信息.标记, 16) ＝ 0)  ' = 0 真实按键
按下 ＝ 假
调试输出 (3)
如果真 (位与 (按键信息.标记, 16) ＝ 16)  ' = 16  模拟按键
调试输出 (4)



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

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 处理消息, 整数型<br /> .参数 代码值, 整数型<br /> .参数 消息值, 整数型<br /> .参数 参数二, 整数型<br /> .局部变量 按键信息, 按键信息<br /> <br /> 拷贝内存_ (按键信息, 参数二, 28)<br /> <br /> .判断开始 (消息值 ＝ 256)<br /> <br />     .如果真 (位与 (按键信息.标记, 16) ＝ 0)  ' = 0 真实按键<br />         按下 ＝ 真<br />         调试输出 (1)<br />         模拟键盘按键 (按键信息.键代码)<br />     .如果真结束<br />     .如果真 (位与 (按键信息.标记, 16) ＝ 16)  ' = 16  模拟按键<br />         调试输出 (2)<br /> <br />     .如果真结束<br /> <br /> .判断 (消息值 ＝ 257)<br /> <br />     .如果真 (位与 (按键信息.标记, 16) ＝ 0)  ' = 0 真实按键<br />         按下 ＝ 假<br />         调试输出 (3)<br /> <br />     .如果真结束<br />     .如果真 (位与 (按键信息.标记, 16) ＝ 16)  ' = 16  模拟按键<br />         调试输出 (4)<br /> <br />     .如果真结束<br /> <br /> .默认<br /> <br /> .判断结束<br /> 返回 (呼叫下一钩子_ (键盘钩子句柄, 代码值, 消息值, 参数二))