鼠标_监视_安装，鼠标_监视_卸载，卸载后无法再次安装

天外孤鸿PLUS

  

子程序名	返回值类型	公开	备 注
鼠标_监视_安装
参数名	类 型	参考	可空	数组	备 注
响应监视事件	子程序指针				响应监视事件,3个参数,都为整数型,第1个为键代码（1为左键，2为右键，3为中键，4为滚轮）,第2个为按键状态(1为按下，2为放开，3为双击，4往上滚，5往下滚)，第3个参数为窗口句柄与坐标的指针集合（指针到文本即可取出信息  窗口句柄|X,Y）

如果真 (集_HOOK ≠ 0)
返回 ()
集_监视事件 ＝ 响应监视事件
集_HOOK ＝ SetWindowsHookExA (14, &MousePro, GetModuleHandleA1 (0), 0)  ' 14 WH_MOUSE_LL

子程序名	返回值类型	公开	备 注
鼠标_监视_卸载	逻辑型

返回 (UnhookWindowsHookEx (集_HOOK))

.版本 2<br /> <br /> .子程序 鼠标_监视_安装, , 公开<br /> .参数 响应监视事件, 子程序指针, , 响应监视事件,3个参数,都为整数型,第1个为键代码（1为左键，2为右键，3为中键，4为滚轮）,第2个为按键状态(1为按下，2为放开，3为双击，4往上滚，5往下滚)，第3个参数为窗口句柄与坐标的指针集合（指针到文本即可取出信息  窗口句柄|X,Y）<br /> <br /> .如果真 (集_HOOK ≠ 0)<br />     返回 ()<br /> .如果真结束<br /> 集_监视事件 ＝ 响应监视事件<br /> 集_HOOK ＝ SetWindowsHookExA (14, &MousePro, GetModuleHandleA1 (0), 0)  ' 14 WH_MOUSE_LL<br /> <br /> .子程序 鼠标_监视_卸载, 逻辑型, 公开<br /> <br /> 返回 (UnhookWindowsHookEx (集_HOOK))

• 首先，鼠标_监视_安装()要有一个返回值，返回钩子句柄“集_HOOK”
• 鼠标_监视_卸载()卸载完毕要把“集_HOOK”清零，否则再次调用安装时，有个判断“集_HOOK≠0”，直接返回了，无法再次安装钩子。
• 下面放出修改版
• 
  
•   

  子程序名	返回值类型	公开	备 注
  鼠标_监视_安装	整数型
  参数名	类 型	参考	可空	数组	备 注
  响应监视事件	子程序指针				响应监视事件,3个参数,都为整数型,第1个为键代码（1为左键，2为右键，3为中键，4为滚轮）,第2个为按键状态(1为按下，2为放开，3为双击，4往上滚，5往下滚)，第3个参数为窗口句柄与坐标的指针集合（指针到文本即可取出信息  窗口句柄|X,Y）

  如果真 (集_HOOK ≠ 0)
  返回 ()
  集_监视事件 ＝ 响应监视事件
  集_HOOK ＝ SetWindowsHookExA (14, &MousePro, GetModuleHandleA1 (0), 0)  ' 14 WH_MOUSE_LL
  返回 (集_HOOK)
  

  子程序名	返回值类型	公开	备 注
  鼠标_监视_卸载	逻辑型

  变量名	类 型	静态	数组	备 注
  ret	逻辑型

  ret ＝ UnhookWindowsHookEx (集_HOOK)
  如果真 (ret ＝ 真)
  集_HOOK ＝ 0
  返回 (ret)
  

  .版本 2<br /> <br /> .子程序 鼠标_监视_安装, 整数型, 公开<br /> .参数 响应监视事件, 子程序指针, , 响应监视事件,3个参数,都为整数型,第1个为键代码（1为左键，2为右键，3为中键，4为滚轮）,第2个为按键状态(1为按下，2为放开，3为双击，4往上滚，5往下滚)，第3个参数为窗口句柄与坐标的指针集合（指针到文本即可取出信息  窗口句柄|X,Y）<br /> <br /> .如果真 (集_HOOK ≠ 0)<br />     返回 ()<br /> .如果真结束<br /> 集_监视事件 ＝ 响应监视事件<br /> 集_HOOK ＝ SetWindowsHookExA (14, &MousePro, GetModuleHandleA1 (0), 0)  ' 14 WH_MOUSE_LL<br /> 返回 (集_HOOK)<br /> <br /> .子程序 鼠标_监视_卸载, 逻辑型, 公开<br /> .局部变量 ret, 逻辑型<br /> <br /> ret ＝ UnhookWindowsHookEx (集_HOOK)<br /> .如果真 (ret ＝ 真)<br />     集_HOOK ＝ 0<br /> .如果真结束<br /> 返回 (ret)
  
  

xeixei

最新版的 里面有  那个很稳

良柯

正在编译...
错误所处位置: 模块:"精易模块"; 程序集:"集_键盘鼠标"; 子程序:"鼠标_监视_安装"
错误(10044): 不能将“空白型”数据转换到“整数型”数据。

改以后怎么报错了？？？？

只改 鼠标_监视_卸载 () 就可以正常使用了

未来团队

66666666666666666666666666

云少i

66666666666666666666666666666

项目部002

收到反馈，着手优化这个命令，感谢反馈