键盘钩子快捷键处理

帅气与大侠

之前看到一个帖子，说是要拦截QQ快捷键，源码写好了，帖子找不到了，直接在源码区分享给有缘人，用键盘钩子就可以了，键盘钩子的优先级是高于RegisterHotKey函数的，不仅仅用于拦截快捷键，也可用于自己程序的快捷键注册使用。源码回复下载：

游客，如果您要查看本帖隐藏内容请回复

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
集_键盘钩子句柄	整数型
集_热键	整数型	0

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

集_键盘钩子句柄 ＝ SetWindowsHookExW (13, &键盘消息过程, GetModuleHandleW (0), 0)
' 功能键：可组合 shift=1;ctrl=2;alt=4;win=8
加入成员 (集_热键, 合并整数 (位或 (左移 (6, 8), 65), 0))  ' Ctrl+Alt+A
加入成员 (集_热键, 合并整数 (位或 (左移 (6, 8), 66), 16384))  ' Ctrl+Alt+B 长按热键只触发一次，对于拦截快捷键不要设置不重复热键标识
加入成员 (集_热键, 合并整数 (位或 (左移 (6, 8), 97), 0))  ' Ctrl+Alt+Num 1
加入成员 (集_热键, 合并整数 (位或 (左移 (6, 8), 49), 0))  ' Ctrl+Alt+1

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

变量名	类 型	静态	数组	备 注
热键	整数型
i	整数型

如果真 (nCode ≠ -1)
i ＝ 寻找热键 (wParam, lParam, 热键, 集_热键)
如果真 (i ≠ 0)
' 键盘消息过程有时间限制，好像超过1000ms这个钩子就会被静默卸载
' 所以不要在该消息过程处理耗时代码
' 将消息投递到标签反馈事件处理
标签1.投递信息 (32885, i, 热键)
返回 (1)

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

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

UnhookWindowsHookEx (集_键盘钩子句柄)

子程序名	返回值类型	公开	备 注
寻找热键	整数型		在全局键盘钩子过程中使用，当按住任意快捷键时会和用户提供的快捷键数组比较，找到快捷键返回数组索引，否则返回零。
参数名	类 型	参考	可空	数组	备 注
参数一	整数型
参数二	整数型
热键缓冲	整数型
热键数组	整数型				合并整数 (位或 (左移 (功能键, 8), 热键)),不重复热键标识))

置入代码 ({ 83, 87, 139, 69, 12, 139, 0, 139, 85, 16, 139, 18, 181, 8, 60, 91, 116, 36, 60, 92, 116, 32, 181, 1, 60, 160, 116, 26, 60, 161, 116, 22, 181, 2, 60, 162, 116, 16, 60, 163, 116, 12, 181, 4, 60, 164, 116, 6, 60, 165, 116, 2, 48, 237, 246, 69, 8, 1, 117, 93, 132, 237, 117, 85, 56, 194, 116, 10, 129, 226, 255, 255, 0, 0, 136, 194, 235, 6, 129, 202, 0, 0, 0, 64, 139, 69, 20, 139, 0, 131, 192, 4, 139, 8, 133, 201, 116, 65, 137, 199, 141, 12, 136, 131, 192, 4, 57, 200, 119, 53, 139, 24, 102, 57, 211, 117, 242, 247, 195, 0, 0, 255, 255, 116, 8, 247, 194, 0, 0, 255, 255, 117, 226, 41, 248, 193, 232, 2, 139, 77, 16, 137, 17, 95, 91, 201, 194, 16, 0, 8, 238, 235, 10, 132, 237, 117, 2, 48, 210, 246, 213, 32, 238, 139, 69, 16, 137, 16, 49, 192, 95, 91, 201, 194, 16, 0 })
返回 (0)

子程序名	返回值类型	公开	备 注
_标签1_反馈事件	整数型
参数名	类 型	参考	可空	数组	备 注
参数一	整数型				热键索引
参数二	整数型				低8=热键；高8=功能键；最高8位=不重复标识

调试输出 (参数一, 到字节集 (参数二))

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 集_键盘钩子句柄, 整数型<br /> .程序集变量 集_热键, 整数型, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 集_键盘钩子句柄 ＝ SetWindowsHookExW (13, &键盘消息过程, GetModuleHandleW (0), 0)<br /> ' 功能键：可组合 shift=1;ctrl=2;alt=4;win=8<br /> 加入成员 (集_热键, 合并整数 (位或 (左移 (6, 8), 65), 0))  ' Ctrl+Alt+A<br /> 加入成员 (集_热键, 合并整数 (位或 (左移 (6, 8), 66), 16384))  ' Ctrl+Alt+B 长按热键只触发一次，对于拦截快捷键不要设置不重复热键标识<br /> 加入成员 (集_热键, 合并整数 (位或 (左移 (6, 8), 97), 0))  ' Ctrl+Alt+Num 1<br /> 加入成员 (集_热键, 合并整数 (位或 (左移 (6, 8), 49), 0))  ' Ctrl+Alt+1<br /> <br /> .子程序 键盘消息过程, 整数型<br /> .参数 nCode<br /> .参数 wParam<br /> .参数 lParam<br /> .局部变量 热键, 整数型, 静态<br /> .局部变量 i, 整数型<br /> <br /> .如果真 (nCode ≠ -1)<br />     i ＝ 寻找热键 (wParam, lParam, 热键, 集_热键)<br />     .如果真 (i ≠ 0)<br />         ' 键盘消息过程有时间限制，好像超过1000ms这个钩子就会被静默卸载<br />         ' 所以不要在该消息过程处理耗时代码<br />         ' 将消息投递到标签反馈事件处理<br />         标签1.投递信息 (32885, i, 热键)<br />         返回 (1)<br />     .如果真结束<br /> <br /> .如果真结束<br /> 返回 (CallNextHookEx (集_键盘钩子句柄, nCode, wParam, lParam))<br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> UnhookWindowsHookEx (集_键盘钩子句柄)<br /> <br /> .子程序 寻找热键, 整数型, 公开, 在全局键盘钩子过程中使用，当按住任意快捷键时会和用户提供的快捷键数组比较，找到快捷键返回数组索引，否则返回零。<br /> .参数 参数一, 整数型<br /> .参数 参数二, 整数型<br /> .参数 热键缓冲, 整数型, 参考<br /> .参数 热键数组, 整数型, 数组, 合并整数 (位或 (左移 (功能键, 8), 热键)),不重复热键标识))<br /> <br /> 置入代码 ({ 83, 87, 139, 69, 12, 139, 0, 139, 85, 16, 139, 18, 181, 8, 60, 91, 116, 36, 60, 92, 116, 32, 181, 1, 60, 160, 116, 26, 60, 161, 116, 22, 181, 2, 60, 162, 116, 16, 60, 163, 116, 12, 181, 4, 60, 164, 116, 6, 60, 165, 116, 2, 48, 237, 246, 69, 8, 1, 117, 93, 132, 237, 117, 85, 56, 194, 116, 10, 129, 226, 255, 255, 0, 0, 136, 194, 235, 6, 129, 202, 0, 0, 0, 64, 139, 69, 20, 139, 0, 131, 192, 4, 139, 8, 133, 201, 116, 65, 137, 199, 141, 12, 136, 131, 192, 4, 57, 200, 119, 53, 139, 24, 102, 57, 211, 117, 242, 247, 195, 0, 0, 255, 255, 116, 8, 247, 194, 0, 0, 255, 255, 117, 226, 41, 248, 193, 232, 2, 139, 77, 16, 137, 17, 95, 91, 201, 194, 16, 0, 8, 238, 235, 10, 132, 237, 117, 2, 48, 210, 246, 213, 32, 238, 139, 69, 16, 137, 16, 49, 192, 95, 91, 201, 194, 16, 0 })<br /> 返回 (0)<br /> <br /> .子程序 _标签1_反馈事件, 整数型<br /> .参数 参数一, 整数型, , 热键索引<br /> .参数 参数二, 整数型, , 低8=热键；高8=功能键；最高8位=不重复标识<br /> <br /> 调试输出 (参数一, 到字节集 (参数二))

文西哥

感谢分享

jysoft2022

感谢分享

hehz977

感谢大神分享~！

hehz977

感谢大神分享~！

胖子葛格

感谢大神分享~！

kyo9766

看看怎么获取的按键，感谢分享

何浩文

支持开源~！感谢分享

pjm123

谢谢分享  

brucelee0720

谢谢分享辛苦了