托盘图标调用qq,单击截图,双击文字识别

#Persistent

#SingleInstance,force

Menu, Tray, NoStandard

; 图标 ,托盘,不是标准

programName:=”截图”

Menu, Tray, Click, 1

 

;***********************************************************

Menu, Tray, Add, 截图, OnClick

;菜单项截图,调动OnClick实现。

Menu, Tray, Add, 重启,reload

Menu, Tray, Add, 退出,OnExit

;这几句右键菜单

;***********************************************************

Menu, Tray, Default, 截图

;这句注释后就失效了单击双击,

Menu,Tray,Tip,%programName%

;在托盘图标上悬停鼠标会显示“”截图“”

retur;***********************************************************

reload:

reload

return

OnExit:

ExitApp

return

 

;***********************************************************

 

OnClick:

if !LastClick

{

LastClick := 1

LastTC := A_TickCount

SetTimer,SingleClickEvent,-300

 

}

else if (A_TickCount-LastTC<300)

{

SetTimer,SingleClickEvent,off

gosub,DoubleClickEvent

 

}

return

;***********************************************************

 

 

SingleClickEvent:

send ^+o

LastClick := 0

 

return

;***********************************************************

 

 

DoubleClickEvent:

send ^!a

LastClick := 0

 

return

;***********************************************************

声明:本站所有文章,如无特殊说明或标注,均为本站原创发布。任何个人或组织,在未征得本站同意时,禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益,可联系我们进行处理。

给TA捐赠
共{{data.count}}人
人已捐赠
其他案例

循环切换Excel的当前工作表 By FeiYue

2020-5-9 7:58:13

其他案例

鼠标左键双击关闭窗口的一种办法。

2020-5-11 14:32:49

2 条回复 A文章作者 M管理员
  1. 1114453

    任职学习

个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
搜索