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))