这个鼠标热键弹出右键为什么很容易就失效了（附源码）

iXie5

https://bbs.ijingyi.com/thread-14823137-1-1.html
这个是我参考这个做的，要实现功能就是在屏幕任意地方滑轮向上就弹出菜单

我上下滚动多几次（十多秒），然后他就不监视了，重新按按钮1就可以，有什么好用的处理方法还是怎么样处理吗？




求助案例.e (5.67 KB, 下载次数: 8)

前天 15:01 上传

点击文件名下载附件

AMEN.@

求助案例.e (962.69 KB, 下载次数: 3)

前天 18:46 上传

点击文件名下载附件
需要精易模块v10以上版本

a2083657

滚轮上弹菜单失效大概率是钩子过程里弹出菜单导致钩子超时被系统卸了。直接在钩子里别弹菜单，投递消息到窗口再弹。

代码示例：

.版本 2
.程序集 窗口程序集1
.全局变量 钩子句柄, 整数型
.常量 WM_USER = 1024

.子程序 _按钮1_被单击
钩子句柄 = SetWindowsHookEx(14, 取地址(鼠标钩子回调), GetModuleHandle(0), 0)

.子程序 鼠标钩子回调, 整数型
参数 nCode, wParam, lParam
如果 nCode < 0 则 返回 CallNextHookEx(钩子句柄, nCode, wParam, lParam)
如果 wParam = 522  ' WM_MOUSEWHEEL
    ' 从lParam指向的MSLLHOOKSTRUCT取mouseData高位判断方向
    ' 简化：用API GetMessageExtraInfo? 或者直接读内存：
    如果 (取字节集数据(指针到字节集(lParam, 8), #整数型, 7) = 7864320)
        PostMessageA (取窗口句柄(), WM_USER + 100, 0, 0)
    否则
        返回 CallNextHookEx(钩子句柄, nCode, wParam, lParam)
    如果结束
否则
    返回 CallNextHookEx(钩子句柄, nCode, wParam, lParam)
如果结束

.子程序 _启动窗口_消息事件, 整数型
参数 消息号, wParam, lParam
如果 消息号 = WM_USER + 100
    弹出菜单 (菜单1, , )

注意：菜单1是事先画好的弹出菜单。记得声明API函数：SetWindowsHookEx, CallNextHookEx, PostMessageA, GetModuleHandle, 取窗口句柄。钩子句柄全局变量。按钮1只负责安装钩子，不用循环。

iXie5

a2083657 发表于 2026-7-14 15:04
滚轮上弹菜单失效大概率是钩子过程里弹出菜单导致钩子超时被系统卸了。直接在钩子里别弹菜单，投递消息到窗 ...

可以直接源码给我吗？ 复制了好乱

AMEN.@

iXie5 发表于 2026-7-14 16:04
可以直接源码给我吗？ 复制了好乱

因为他是 AI

iXie5

AMEN.@ 发表于 2026-7-14 16:33
因为他是 AI

难怪我没没办法运行，有无大佬帮忙

bttp0059

iXie5 发表于 2026-7-14 18:16
难怪我没没办法运行，有无大佬帮忙

他的每个回复基本上AI成分很大

AMEN.@

iXie5 发表于 2026-7-14 18:16
难怪我没没办法运行，有无大佬帮忙

我运行下来，滚轮上滑和下滑没反应

bttp0059

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击1

启动线程 (&钩子守护1, , )  ' 线程启动一个钩子

子程序名	返回值类型	公开	备 注
钩子守护1

判断循环首 (真)  ' 死循环 判断 句柄是否消失
如果真 (mousehook ＝ 0)
mousehook ＝ SetWindowsHookExA (14, &MousePro, GetModuleHandleA (0), 0)
延迟 (1000)
处理事件 ()
判断循环尾 ()

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击1<br /> <br /> 启动线程 (&钩子守护1, , )  ' 线程启动一个钩子<br /> <br /> .子程序 钩子守护1<br /> <br /> .判断循环首 (真)  ' 死循环 判断 句柄是否消失<br />     .如果真 (mousehook ＝ 0)<br />         mousehook ＝ SetWindowsHookExA (14, &MousePro, GetModuleHandleA (0), 0)<br />     .如果真结束<br />     延迟 (1000)<br />     处理事件 ()<br /> .判断循环尾 ()

试试死循环来判断 并安装钩子