VBScript脚本自动发信息

使用VBScript脚本语言写了一个脚本，大概逻辑就是：打开微信（或其它通信程序），Ctrl+F搜索指定人，回车Enter即选中搜到的第一个，再把事先写好的内容Ctrl+V进去，再回车Enter发送。

想让朋友试试，但是不懂编程的人改设置又很麻烦，我索性封装一下，然后将设置参数放到一个txt文件中，脚本每次读取数据，想要修改的话也方便些。

如下运行vbs文件，只要电脑的微信安装在默认路径，就会给文件手机助手发送txt文件的5行以后的内容。

一个简单的自动发信息脚本就实现了。

' test1.vbs
' 配置文件总内容，文件路径，vx程序路径，目标名，循环次数，间隔时间，等待时间，发送内容
dim value,url,exePath,userName,num,intervalTime,delayTime,arr

set fs =createobject("scripting.filesystemobject")
' 配置文件路径
url=getPath(WScript.ScriptFullName)&"1.txt"
' 读取文件，无则新建
set ts=fs.opentextfile(url,1,true)

If ts.atendofstream<>false Then
    msgBox "配置文件内容为空"
Else
    value = ts.ReadAll
    arr=split(value,Chr(13))
    If ubound(arr)<4 Then
        msgBox "配置文件内容行数不够"
        msgBox ubound(arr)
    Else
        exePath=trim(split(arr(0),"|")(0))
        userName=trim(split(arr(1),"|")(0))
        num=Cint(trim(split(arr(2),"|")(0)))
        intervalTime=Cint(trim(split(arr(3),"|")(0)))
        delayTime=Cint(trim(split(arr(4),"|")(0)))

        ' 等待时长
        wscript.sleep delayTime
        ' 循环次数
        for i=1 to num
            set wshshell=CreateObject("wscript.shell")  '创建Windows的shell对象打开shell窗口
            for j=5 to ubound(arr)
                ' 打开程序
                set oexec=wshshell.exec(exePath)
                ' 复制到剪切板
                SetClipboardText(userName)
                ' Ctrl + F
                wshshell.sendKeys "^f"
                ' Ctrl + A
                wshshell.sendKeys "^a"
                ' Ctrl + V
                wshshell.sendKeys "^v"
                ' 等待程序搜索
                wscript.sleep intervalTime
                ' 回车
                wshshell.sendKeys "{ENTER}"
                ' 复制内容到剪切板
                SetClipboardText(arr(j))
                '粘贴要发送的msg消息内容
                wshshell.sendKeys "^v"
                '按enter键进行发送
                wshshell.sendKeys "{ENTER}"
            next
        next
    End If
End If

'获取当前文本路径
Function getPath(strFileName)
strFileName=Replace(strFileName,"/","\")
Dim ipos
ipos=InStrRev(strFileName,"\")
getPath=Left(strFileName,ipos)
End Function

'写入信息到剪切板
Sub SetClipboardText(Text)
    Set wsShell = CreateObject("WScript.Shell")
    wsShell.Run "mshta vbscript:ClipboardData.SetData("&chr(34)&"text"&chr(34)&"," &Chr(34)& Text &Chr(34)& ")(close)",0,True
End Sub

注意test1.vbs文件后缀为vbs，1.txt记事本格式，都要要保存为ANSI编码

' 1.txt
C:\Program Files (x86)\Tencent\WeChat\WeChat.exe    |       微信路径
文件传输助手                                          |       发送对象
1                                                   |       循环次数
1000                                                |       间隔时间
5000                                                |       等待时间
以上为配置内容，从此行起为发送内容。配置内容左右使用竖线 | 分隔，| 前面空格可忽略，发送内容每行为一条，且从前往后按顺序，想改成随机发送请从代码里改
本文件【1.txt】若是新建，且内容有中文，请另存为【编码ansi】并替换，（默认utf-8）
脚本逻辑：运行过了【等待时间】后，从【微信路径】打开微信，搜索【发送对象】，然后回车，即选择搜到的第一个好友，复制粘贴【发送内容】，回车发送出去，间隔【间隔时间】后，再打开微信，重复步骤，把每行【发送内容】发完为一次，总共【循环次数】次
微信路径要用英文符号右斜杠，带上WeChat.exe的完整路径，脚本会打开微信程序，但没有自动登录，请先登录
程序路径，其他文件比如也可以，只要【Ctrl + F】快捷键也是搜索，回车也是发送而非换行。
时间单位都是毫秒（ms）1秒为1000毫秒（1s=1000ms）
间隔时间太短，会被微信禁言，且微信搜索需要反应时间，避免卡住建议10ms以上，避免刷屏建议1000ms以上。此脚本本意是定时发问候语，请勿恶意刷屏辱骂。
请谨慎操作，避免主观恶意和配置失误造成不良后果。【tzj 2022-06-03 10:39:21】