求教鼠标全局钩子失效问题

c296192446

求教鼠标全局钩子失效问题，写了个鼠标全局钩子的程序，监视鼠标按键然后执行模拟按键，程序在使用一段时间之后，鼠标会莫名其妙的卡一下，然后钩子就失效了，需要重新创建钩子才行。

1355568730

我也是按照网上找到列子做的  调试就没问题，编译出来鼠标就动不了，不知道怎么回事，之前问他们说是没问题

c296192446

1355568730 发表于 2019-2-28 01:09
我也是按照网上找到列子做的  调试就没问题，编译出来鼠标就动不了，不知道怎么回事，之前问他们说是没问题 ...

编译出来的要用管理员运行，我的是这样

补充内容 (2019-3-1 13:53):
对于是管理员运行的游戏，你的程序也要用管理员运行，才能在游戏中生效

c296192446

有没有大佬解释一下，为什么全局钩子隔一段时间会失效?

c296192446

  

鼠标钩子 ＝ 创建钩子 (14, &鼠标钩子回调函数, GetModuleHandle (0), 0)

子程序名	返回值类型	公开	备 注
鼠标钩子回调函数	整数型
参数名	类 型	参考	可空	数组	备 注
参数一	整数型				nCode
参数二	整数型				wParam
参数三	整数型				lParam

变量名	类 型	静态	数组	备 注
鼠标	MOUSEHOOKSTRUCT

拷贝内存 (鼠标, 参数三, 20)
如果真 (卡刀开关一.选中 ＝ 真)
如果真 (一侧键1.选中 ＝ 真)
如果真 (参数二 ＝ 523 且 右移 (鼠标.MouseData, 16) ＝ 1)  ' 侧键1
判断 ()
如果真 (按下运行1.选中 ＝ 真)
启动线程 (&卡刀循环一, , )
K1 ＝ 1
如果真 (单击运行1.选中 ＝ 真)
如果真 (K1 ＝ 0)
启动线程 (&卡刀循环一, , )
K1 ＝ 1
返回 (1)
如果真 (K1 ＝ 1)
K1 ＝ 0
返回 (0)


判断 (参数二 ＝ 523 且 右移 (鼠标.MouseData, 16) ＝ 1)
如果真 (按下运行1.选中 ＝ 真)
K1 ＝ 0






返回 (呼叫下一个钩子 (鼠标钩子, 参数一, 参数二, 参数三))

子程序名	返回值类型	公开	备 注
卡刀循环一

判断循环首 (卡刀开关一.选中 ＝ 真)
如果真 (键代码1 [1] ≠ 0)
模拟按键 (键代码1 [1], , )

如果真 (K1 ＝ 0)
跳出循环 ()

如果真 (键代码1 [2] ≠ 0)
模拟按键 (键代码1 [2], , )

判断循环尾 ()

i支持库列表	支持库注释
EThread	多线程支持库
eAPI	应用接口支持库

鼠标钩子 ＝ 创建钩子 (14, &鼠标钩子回调函数, GetModuleHandle (0), 0)<br /> .版本 2<br /> .支持库 EThread<br /> <br /> .子程序 鼠标钩子回调函数, 整数型<br /> .参数 参数一, 整数型, , nCode<br /> .参数 参数二, 整数型, , wParam<br /> .参数 参数三, 整数型, , lParam<br /> .局部变量 鼠标, MOUSEHOOKSTRUCT<br /> <br /> 拷贝内存 (鼠标, 参数三, 20)<br /> .如果真 (卡刀开关一.选中 ＝ 真)<br />     .如果真 (一侧键1.选中 ＝ 真)<br />         .如果真 (参数二 ＝ 523 且 右移 (鼠标.MouseData, 16) ＝ 1)  ' 侧键1<br />             .判断开始 ()<br />                 .如果真 (按下运行1.选中 ＝ 真)<br />                     启动线程 (&卡刀循环一, , )<br />                     K1 ＝ 1<br />                 .如果真结束<br />                 .如果真 (单击运行1.选中 ＝ 真)<br />                     .如果真 (K1 ＝ 0)<br />                         启动线程 (&卡刀循环一, , )<br />                         K1 ＝ 1<br />                         返回 (1)<br />                     .如果真结束<br />                     .如果真 (K1 ＝ 1)<br />                         K1 ＝ 0<br />                         返回 (0)<br />                     .如果真结束<br /> <br />                 .如果真结束<br /> <br />             .判断 (参数二 ＝ 523 且 右移 (鼠标.MouseData, 16) ＝ 1)<br />                 .如果真 (按下运行1.选中 ＝ 真)<br />                     K1 ＝ 0<br />                 .如果真结束<br /> <br />             .默认<br /> <br />             .判断结束<br /> <br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> 返回 (呼叫下一个钩子 (鼠标钩子, 参数一, 参数二, 参数三))<br /> .版本 2<br /> .支持库 eAPI<br /> <br /> .子程序 卡刀循环一<br /> <br /> .判断循环首 (卡刀开关一.选中 ＝ 真)<br />     .如果真 (键代码1 [1] ≠ 0)<br />         模拟按键 (键代码1 [1], , )<br />     .如果真结束<br /> <br />     .如果真 (K1 ＝ 0)<br />         跳出循环 ()<br />     .如果真结束<br /> <br />     .如果真 (键代码1 [2] ≠ 0)<br />         模拟按键 (键代码1 [2], , )<br />     .如果真结束<br /> <br /> .判断循环尾 ()

c296192446

就是这样的代码，程序在运行一段时间之后，钩子会突然失效，需要重新创建钩子，才能正常，是什么原因？

1355568730

c296192446 发表于 2019-3-1 13:52
编译出来的要用管理员运行，我的是这样

补充内容 (2019-3-1 13:53):

我不是在游戏中运行 ，就是正常的编译出来在桌面运行，你去看看我的源码  https://bbs.125.la/forum.php?mod=viewthread&tid=14305882&extra=   ，他们说的都是假的根本就不对

513333064

我靠大佬解决了吗 我也是这样

513333064

解决了吗大佬