水群达人经常想批量转发给别人,这个工具可以实现:
- 自定义经常转发人或群,快速后台选择转发对象
- 记忆式多选转发(10人上限,因为QQ限制)
- 当激活微信窗口时自动切换微信转发模式
IMReportTool.ahk
FileEncoding UTF-8-RAW
Menu Tray,NoStandard
Menu Tray,Add,转发
Menu Tray,Add,退出
Gui New,HwndReportUI +AlwaysOnTop +ToolWindow
Gui Font,s12,Microsoft YaHei UI
Gui Add,Button,x8 Section w122 -Wrap,行为观察 ;Report name
Gui Add,CheckBox,x+5 yp+4
Gui Add,Button,xs y+10 w122 -Wrap,幽灵猎手
Gui Add,CheckBox,x+5 yp+4
Gui Add,Button,xs y+4 w122 -Wrap,码农贼船
Gui Add,CheckBox,x+5 yp+4
Gui Add,Button,xs y+10 w122 -Wrap,一战成硕
Gui Add,CheckBox,x+5 yp+4
Gui Add,Button,xs y+10 w61 -Wrap,清除
Gui Add,Button,x+0 w61 -Wrap,发送
Gui Add,Text,x+5 yp+4,0
return
Button行为观察:
if WinExist("ahk_exe TIM.exe")
ReportTIM("56432") ;Button send
else
ReportWeChat("行为观察") ;Button send
return
Button幽灵猎手:
if WinExist("ahk_exe TIM.exe")
ReportTIM("54645")
else
ReportWeChat("幽灵猎手")
return
Button码农贼船:
if WinExist("ahk_exe TIM.exe")
ReportTIM("86781")
else
ReportWeChat("码农贼船")
return
Button一战成硕:
if WinExist("ahk_exe TIM.exe")
ReportTIM("45645")
else
ReportWeChat("一战成硕")
return
Button清除:
Gui %ReportUI%:Default
Loop 4 ;Button count
{
CheckName:="Button" A_Index*2
GuiControl,,%CheckName%,0
}
return
Button发送:
CheckNum:=0
Loop 4 ;Button count
{
CheckName:="Button" A_Index*2
ControlGet IsChecked,Checked,,%CheckName%,ahk_id %ReportUI%
if (IsChecked)
{
Sleep 500
CheckNum++
if (CheckNum>10)
{
MsgBox 0x10,转发,数量上限
break 1
}
ClickName:="Button" A_Index*2-1
ControlClick %ClickName%,ahk_id %ReportUI%
}
}
if (CheckNum>=10)
CheckNum:="F"
GuiControl %ReportUI%:,Static1,%CheckNum%
return
转发:
Gui %ReportUI%:Show,x0 w155,转发
return
退出:
ExitApp
GuiClose:
Gui Hide
return
#NoEnv
#SingleInstance Force
ReportTIM(txt)
{
ControlSend,,{Text}%txt%,转发 ahk_exe TIM.exe
Sleep 500
ControlSend,,{Enter},转发 ahk_exe TIM.exe
}
ReportWeChat(txt)
{
ControlSend,,{Text}%txt%,ahk_class SelectContactWnd ahk_exe WeChat.exe
Sleep 500
ControlSend,,{Enter},ahk_class SelectContactWnd ahk_exe WeChat.exe
}
声明:本站所有文章,如无特殊说明或标注,均为本站原创发布。任何个人或组织,在未征得本站同意时,禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益,可联系我们进行处理。
就喜欢这种一本正经的分享劲!
大佬牛逼,学习学习