|
本帖最后由 610761555 于 2014-11-6 10:22 编辑
61插件+TC 源码:
还有屏蔽热键,支持组合键,请见文档;
此程序需注册插件运行,请勿直接调试;
如何使用61插件请查看附件说明:{:soso_e100:}
- 空间 TLL演示
- var ly,气泡句柄
- 功能 初始化()
- var ly = com("LY.Plugin")
- traceprint("61插件版本:" & ly.Ver())
- 功能结束
- 功能 设置控件气泡_点击()
- var 控件句柄 = 控件.获得句柄("鼠标悬停查看气泡")
- 气泡句柄=ly.ShowToolTips( 控件句柄 , "气泡提示文本......" & "\r\n" & "多行显示" & "\r\n" & "多行显示","标题", 1)
- traceprint("气泡句柄:" & 气泡句柄)
- 功能结束
- 功能 销毁气泡_点击()
- ret=ly.ShowToolTips( 0 ,"" ,"", 气泡句柄)
- traceprint("销毁气泡:" & ret)
- 功能结束
- function 设置托盘气泡_点击() //添加按钮事件
- traceprint( "置托盘图标:" & ly.SetNotifyIcon(10086,0 , "这是鼠标悬停的托盘标题" ))
- 功能结束
- function 删除托盘_点击() //添加按钮事件
- traceprint( "删除托盘图标:" & ly.SetNotifyIcon(10086,2))
- endfunction
- function 弹出托盘气泡_点击() //添加按钮事件,弹出气泡
- var ret = ly.SetNotifyIcon(10086,1 ,"托盘标题" , "欢迎使用61插件:" & "\r\n" & "本插件是基于VC#开发的,90%功能由WindowsAPI实现,永久免费无后门,适合多语言调用。" , "61-插件" ,1 )
- traceprint("弹出托盘气泡:" & ret )
- endfunction
- function TLL演示_消息过程(消息,w参数,l参数) //添加窗体事件(如果需要鼠标点击事件)
- if(消息==10086)
- select(l参数)
- case 512: //鼠标移动
- case 513: //左键单击
- traceprint("——————左键单击")
- case 516: //右键单击
- traceprint( "——————右键单击" )
- case 515: //左键双击
- traceprint( "——————左键双击" )
- case 1029: //弹出气泡
- case 1026: //弹出气泡
- case 1028: //销毁气泡
- endselect
- endif
- endfunction
- 空间结束
复制代码
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
|