有没有人知道鼠标滚动键怎么监视

紫色阳光

鼠标滚动键，监视热键用哪个代码，有大佬告诉下吗？我用这个命令，鼠标_监视_安装 (&子程序)，鼠标指针一直会卡，只能换监视热键来实现鼠标滚动键了，有没有大佬告诉我另一个办法不卡指针的？

Siempre

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

鼠标_监视_安装 (&子程序1)

子程序名	返回值类型	公开	备 注
子程序1
参数名	类 型	参考	可空	数组	备 注
事件	整数型
状态	整数型
指针	整数型

如果真 (事件 ＝ 4)
如果真 (状态 ＝ 4)
调试输出 (“4往上滚”)
如果真 (状态 ＝ 5)
调试输出 (“5往下滚”)

' 响应监视事件,3个参数,都为整数型,第1个为键代码（1为左键，2为右键，3为中键，4为滚轮，5为侧键上，6为侧键下）,第2个为按键状态(1为按下，2为放开，4往上滚，5往下滚)，第3个参数为窗口句柄与坐标的指针集合（指针到文本即可取出信息  窗口句柄|X,Y）

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 鼠标_监视_安装 (&子程序1)<br /> <br /> .子程序 子程序1<br /> .参数 事件, 整数型<br /> .参数 状态, 整数型<br /> .参数 指针, 整数型<br /> <br /> .如果真 (事件 ＝ 4)<br />     .如果真 (状态 ＝ 4)<br />         调试输出 (“4往上滚”)<br />     .如果真结束<br />     .如果真 (状态 ＝ 5)<br />         调试输出 (“5往下滚”)<br />     .如果真结束<br /> <br /> .如果真结束<br /> ' 响应监视事件,3个参数,都为整数型,第1个为键代码（1为左键，2为右键，3为中键，4为滚轮，5为侧键上，6为侧键下）,第2个为按键状态(1为按下，2为放开，4往上滚，5往下滚)，第3个参数为窗口句柄与坐标的指针集合（指针到文本即可取出信息  窗口句柄|X,Y）

afu45

鼠标_监视_安装 (&子程序2)


响应监视事件,3个参数,都为整数型,第1个为键代码（1为左键，2为右键，3为中键，4为滚轮，5为侧键上，6为侧键下）,第2个为按键状态(1为按下，2为放开，4往上滚，5往下滚)，第3个参数为窗口句柄与坐标的指针集合（指针到文本即可取出信息  窗口句柄|X,Y）。

紫色阳光

afu45 发表于 2022-9-20 09:34
鼠标_监视_安装 (&子程序2)

我说了 用这个会卡指针，能不能换个别的办法来实现

帅气与大侠

https://bbs.125.la/thread-14709956-1-1.html
我写的一个键盘鼠标钩子的例子，里面有鼠标滚轮的监视

大司命

哪里会卡！一般都是代码姿势不对~

afu45

紫色阳光 发表于 2022-9-20 09:37
我说了 用这个会卡指针，能不能换个别的办法来实现

我这不会卡哦

afu45

  

鼠标_监视_安装 (&子程序2)

子程序名	返回值类型	公开	备 注
子程序2
参数名	类 型	参考	可空	数组	备 注
键代码	整数型				1为左键，2为右键，3为中键，4为滚轮，5为侧键上，6为侧键下
按键状态	整数型				1为按下，2为放开，4往上滚，5往下滚
窗口句柄与坐标的指针	整数型				指针到文本即可取出信息  窗口句柄|X,Y

如果真 (键代码 ＝ 4)
如果真 (按键状态 ＝ 4)
调试输出 (“滚上去”)

如果真 (按键状态 ＝ 5)
调试输出 (“滚下来”)

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

.版本 2<br /> .支持库 spec<br /> <br /> 鼠标_监视_安装 (&子程序2)<br /> <br /> .子程序 子程序2<br /> .参数 键代码, 整数型, , 1为左键，2为右键，3为中键，4为滚轮，5为侧键上，6为侧键下<br /> .参数 按键状态, 整数型, , 1为按下，2为放开，4往上滚，5往下滚<br /> .参数 窗口句柄与坐标的指针, 整数型, , 指针到文本即可取出信息  窗口句柄|X,Y<br /> <br /> .如果真 (键代码 ＝ 4)<br />     .如果真 (按键状态 ＝ 4)<br />         调试输出 (“滚上去”)<br />     .如果真结束<br /> <br />     .如果真 (按键状态 ＝ 5)<br />         调试输出 (“滚下来”)<br />     .如果真结束

紫色阳光

大司命 发表于 2022-9-20 09:37
哪里会卡！一般都是代码姿势不对~

鼠标移动一下快一下慢的，回调是这个 你帮我看下有问题没  键盘钩子 ＝ SetWindowsHookEx (13, &鼠标钩子回调函数, GetModuleHandle (0), 0)

补充内容 (2022-9-20 09:54):
发错了 是这个  鼠标钩子 ＝ SetWindowsHookEx (12, &键盘钩子回调函数, GetModuleHandle (0), 0)

紫色阳光

大司命 发表于 2022-9-20 09:37
哪里会卡！一般都是代码姿势不对~

发错了 是这个  鼠标钩子 ＝ SetWindowsHookEx (12, &键盘钩子回调函数, GetModuleHandle (0), 0)