例程：鼠标停留消息(TrackMouseEvent 函数)

远航接单

自己开发程序中 需要hook鼠标停留消息；
没有找到成熟的例子，手动翻译了一份，仅供易友参考
子类化后 监控 #WM_MOUSEHOVER 消息

  

子程序名	返回值类型	公开	备 注
_消息处理过程	整数型
参数名	类 型	参考	可空	数组	备 注
hwnd	整数型
msg	整数型
wParam	整数型
lParam	整数型

变量名	类 型	静态	数组	备 注
tme	TRACKMOUSEEVENT
ret	整数型

判断 (msg ＝ #WM_MOUSEHOVER )
调试输出 (“鼠标正在停留”, “   x:” ＋ 到文本 (LOWORD (lParam)), “  y:” ＋ 到文本 (HIWORD (lParam)))
判断 (msg ＝ #WM_MOUSELEAVE )
调试输出 (“鼠标离开了”)



如果真 (msg ＝ #WM_MOUSEMOVE )
' 调试输出 (“鼠标移动中”)
tme.cbSize ＝ 16
tme.dwFlags ＝ 位或 ( #TME_HOVER, #TME_LEAVE )
tme.hwndTrack ＝ hwnd
tme.dwHoverTime ＝ 200
TrackMouseEvent (tme)
返回 (0)

返回 (CallWindowProcA (GetPropA (hwnd, “old-proc”), hwnd, msg, wParam, lParam))

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _消息处理过程, 整数型<br /> .参数 hwnd, 整数型<br /> .参数 msg, 整数型<br /> .参数 wParam, 整数型<br /> .参数 lParam, 整数型<br /> .局部变量 tme, TRACKMOUSEEVENT<br /> .局部变量 ret, 整数型<br /> <br /> .判断开始 (msg ＝ #WM_MOUSEHOVER)<br />     调试输出 (“鼠标正在停留”, “   x:” ＋ 到文本 (LOWORD (lParam)), “  y:” ＋ 到文本 (HIWORD (lParam)))<br /> .判断 (msg ＝ #WM_MOUSELEAVE)<br />     调试输出 (“鼠标离开了”)<br /> .默认<br /> <br /> .判断结束<br /> <br /> .如果真 (msg ＝ #WM_MOUSEMOVE)<br />     ' 调试输出 (“鼠标移动中”)<br />     tme.cbSize ＝ 16<br />     tme.dwFlags ＝ 位或 (#TME_HOVER, #TME_LEAVE)<br />     tme.hwndTrack ＝ hwnd<br />     tme.dwHoverTime ＝ 200<br />     TrackMouseEvent (tme)<br /> <br />     返回 (0)<br /> .如果真结束<br /> <br /> 返回 (CallWindowProcA (GetPropA (hwnd, “old-proc”), hwnd, msg, wParam, lParam))

鼠标停留消息TrackMouseEvent.e (946.98 KB, 下载次数: 83)

2022-9-3 15:04 上传

点击文件名下载附件
下载积分: 精币 -2 枚

ap010pa

刚好需要这个,谢谢啦

杰西卡技术传媒

开源精神必须支持~

已注销571294

这个都可以判断？

jy896009

已注销571294

不错

ysff

        难得有人分享，感谢，如果有更完整一点的版本就更好了

顺势者

谢谢大佬

lmwdz

感谢分享

亿万

感谢分享