即时通讯转发工具 – QQ/微信

即时通讯转发工具 - QQ/微信

水群达人经常想批量转发给别人,这个工具可以实现:

  1. 自定义经常转发人或群,快速后台选择转发对象
  2. 记忆式多选转发(10人上限,因为QQ限制)
  3. 当激活微信窗口时自动切换微信转发模式

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
}

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

ahk调用snipaste截图工具命令行

2022-8-27 19:20:49

其他案例

闲来无事,Gui对话式文字游戏简单示例

2022-8-28 7:13:50

4 条回复 A文章作者 M管理员
  1. AHK中文社区
    1河许人给您捐赠了¥2
  2. 蜜獾哥
    HoneyBadger给您捐赠了¥5
  3. 蜜獾哥

    就喜欢这种一本正经的分享劲!

  4. laiwei

    大佬牛逼,学习学习

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