清除系统托盘残留图标

下雨了吗

有需求用到这个东西
百度找了一下，找个一个2013年精易的帖子：https://bbs.125.la/forum.php?mod ... &extra=page=363
根据他的源码优化了一下，实现了后台移动，修复了他死循环的bug，用到了精易模块，自己复制一下代码吧

  

子程序名	返回值类型	公开	备 注
清理图标残留			高40 宽24

变量名	类 型	静态	数组	备 注
句柄	整数型
位置大小	精易_位置和大小
窗口右边	整数型
窗口底边	整数型
移动次数	整数型
MoveX	整数型

句柄 ＝ 窗口_取句柄 (, , “Shell_TrayWnd”, )
句柄 ＝ 窗口_取句柄 (句柄, , “TrayNotifyWnd”, )
句柄 ＝ 窗口_取句柄 (句柄, , “SysPager”, )
句柄 ＝ 窗口_取句柄 (句柄, , “ToolbarWindow32”, )
如果真 (句柄 ＞ 0)
位置大小 ＝ 窗口_取位置和大小 (句柄)
窗口右边 ＝ 位置大小.左边 ＋ 位置大小.宽度
窗口底边 ＝ 位置大小.顶边 ＋ 位置大小.高度
移动次数 ＝ 位置大小.宽度 ÷ 12
计次循环首 (移动次数 × 2, MoveX)
鼠标_消息 (句柄, MoveX × 6, 10, 3, 4)
计次循环尾 ()

.版本 2<br /> <br /> .子程序 清理图标残留, , , 高40 宽24<br /> .局部变量 句柄, 整数型<br /> .局部变量 位置大小, 精易_位置和大小<br /> .局部变量 窗口右边, 整数型<br /> .局部变量 窗口底边, 整数型<br /> .局部变量 移动次数, 整数型<br /> .局部变量 MoveX, 整数型<br /> <br /> 句柄 ＝ 窗口_取句柄 (, , “Shell_TrayWnd”, )<br /> 句柄 ＝ 窗口_取句柄 (句柄, , “TrayNotifyWnd”, )<br /> 句柄 ＝ 窗口_取句柄 (句柄, , “SysPager”, )<br /> 句柄 ＝ 窗口_取句柄 (句柄, , “ToolbarWindow32”, )<br /> .如果真 (句柄 ＞ 0)<br />     位置大小 ＝ 窗口_取位置和大小 (句柄)<br />     窗口右边 ＝ 位置大小.左边 ＋ 位置大小.宽度<br />     窗口底边 ＝ 位置大小.顶边 ＋ 位置大小.高度<br />     移动次数 ＝ 位置大小.宽度 ÷ 12<br />     .计次循环首 (移动次数 × 2, MoveX)<br />         鼠标_消息 (句柄, MoveX × 6, 10, 3, 4)<br />     .计次循环尾 ()

xxins

这个方法比托盘.托盘刷新好得多 不错不错

hs3300

6666666666666666

hs3300

66666666666666666666666

hs3300

66666666666

wraefw

楼主，加在哪里......先执行清除残留再结束还是.......

3344333

谢谢开源分享~~~~~~

tanchenlin

谢谢开源分享~~~~~~

遍体鳞伤不够美

感谢分享，很给力！~

78012342

支持开源~！感谢分享