屏蔽win键（也可以屏蔽别的或者改键）-全局键盘hook

crush3517

  

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

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

如果真 (钩子句柄 ＝ 0)
钩子句柄 ＝ SetWindowsHookExA (13, &钩子函数, GetModuleHandleA (“”), 0)
如果真 (钩子句柄 ＝ 0)
输出调试文本 (“安装钩子失败！”)

子程序名	返回值类型	公开	备 注
钩子函数	整数型
参数名	类 型	参考	可空	数组	备 注
icode	整数型
wparam	整数型
lparam	整数型

. ' 如果真 (指针到整数 (lparam) ＝ 91)  ' 91即为Win键的值
' 返回 (1)
如果真 (指针到整数 (lparam) ＝ 91)  ' 需要改的键值
keybd_event (65, icode, wparam, lparam)  ' 65是要改成的键值（a键）
返回 (1)
返回 (CallNextHookEx (钩子句柄, icode, wparam, lparam))  ' 否则返回该键的值

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

UnhookWindowsHookEx (钩子句柄)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 钩子句柄, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> .如果真 (钩子句柄 ＝ 0)<br />     钩子句柄 ＝ SetWindowsHookExA (13, &钩子函数, GetModuleHandleA (“”), 0)<br /> .如果真结束<br /> .如果真 (钩子句柄 ＝ 0)<br />     输出调试文本 (“安装钩子失败！”)<br /> .如果真结束<br /> <br /> <br /> .子程序 钩子函数, 整数型<br /> .参数 icode, 整数型<br /> .参数 wparam, 整数型<br /> .参数 lparam, 整数型<br /> <br /> .' 如果真 (指针到整数 (lparam) ＝ 91)  ' 91即为Win键的值<br />     ' 返回 (1)<br /> .如果真结束<br /> .如果真 (指针到整数 (lparam) ＝ 91)  ' 需要改的键值<br />     keybd_event (65, icode, wparam, lparam)  ' 65是要改成的键值（a键）<br />     返回 (1)<br /> .如果真结束<br /> 返回 (CallNextHookEx (钩子句柄, icode, wparam, lparam))  ' 否则返回该键的值<br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> UnhookWindowsHookEx (钩子句柄)

模块 精易模块

像风love

阿萨德啊实打实大大湿哒哒

骄傲1882

谢谢！！！！！！！！！！！！！！！！！！！！

世纪网络科技

666666666666

qazx123zxcf

2222222222222222222222222

qazx123zxcf

66666666666666666666666666

乜小浩

改成CRTL键，怎么销毁钩子后crtl键是一直按下状态的呢？

lsfywl

谢谢老板分享

清风徐来2

感谢分享

清风徐来2

感谢分享

清风徐来2

感谢分享