电脑版微信自动发送微信消息给好友或者群聊

一.软件下载

点击微信自动发送消息下载

二.相关使用方法

1.打开软件，输入想自动发送的内容
2.确保登录了微信电脑版【PC端】，然后切换到想要自动发送的好友或群聊的窗口。
3.点击开始，现在自动发送即可，稍等三秒程序自动运行。
4.点击结束程序自动结束，或者鼠标移开聊天窗口也可自动关闭。

三.相关代码

创建界面：

在这里插入图片描述

按钮功能脚本

Global wxMsg
Global sendFlag
Global 线程ID
//当窗体被加载时触发的事件
Event Form1.Load
    //   Call  Plugin.File.WriteINI ("微信","sendFlag","发送",basePath+"/wxSend.ini")
    sendFlag = "不发送"
End Event
//开始按钮
Event Form1.Button2.Click
    wxMsg = Form1.InputBox1.Text
    If wxMsg="" Then
        MsgBox "请输入消息内容"
    Else 
        TracePrint "【开始按钮】当前发送标志====" & sendFlag
        If sendFlag = "发送" Then 
            MsgBox "程序正在执行"
        Else 
            sendFlag = "发送"
            TracePrint "【开始按钮】修改为====" & sendFlag
            Hwnd = Plugin.Window.Find("WeChatMainWndForPC", "微信")
            Delay 1000
            Call Plugin.Window.Show(Hwnd)
            Delay 1000
            call Plugin.Bkgnd.MoveTo (Hwnd,650,650)
            线程ID=BeginThread (sendWxMsg)
        End If
    End If
End Event
//清除按钮
Event Form1.Button1.Click
    If sendFlag = "发送" Then 
        MsgBox "程序正在执行,不能暂停"
    Else 
        Form1.InputBox1.Text = wxMsg
    End If
End Event
//结束按钮
Event Form1.Button3.Click
    TracePrint "【结束按钮】当前发送标志====" & sendFlag
    If sendFlag = "不发送" Then 
        MsgBox "程序还未开始"
    Else 
        StopThread 线程ID
        Delay 3000
        sendFlag = "不发送"
        TracePrint "【开始按钮】修改为====" & sendFlag
    End If
End Event
//发送
Sub sendWxMsg
    For i=0 To 99
        Delay 100
        TracePrint "发送微信消息:" & wxMsg
        SayString wxMsg
        Delay 1000
        KeyPress "Enter",1
    Next  
End Sub