使用vbscript和wscript.shell实现连续多次发送微信消息

创建文本文档，复制以下内容至文档中，修改文件扩展名，由“.txt”修改为“.vbs”，双击文件即可运行。

On Error Resume Next
Dim name,Msg,num
name = Inputbox("请输入你要给谁发送消息","对方名称")
if name="" then
wscript.quit
end if

Msg = Inputbox("请输入你要发送的消息内容","消息内容")
if Msg="" then
wscript.quit
end if

num = Inputbox("请输入你要重复发送的次数","重复次数")
if num="" then
wscript.quit
end if

Dim wsh
set wsh=createobject("wscript.shell")

wsh.run "mshta vbscript:clipboardData.clearData()(close)"

wsh.run "mshta vbscript:clipboardData.setData(""Text"","""&name&""")(close)"
wsh.sendKeys "^%w"  '通过Ctrl+Alt+W快捷键打开微信

wscript.sleep 500

wsh.sendKeys "^f"    '执行ctrl + F快捷键在微信窗口唤醒搜索功能

wscript.sleep 500

wsh.sendKeys "^v" '粘贴要搜索的name

wscript.sleep 500

wsh.sendKeys "{ENTER}"   '按键盘的enter键，进入要发送消息的name联系人窗口

wscript.sleep 500
wsh.run "mshta vbscript:clipboardData.setData(""Text"","""&Msg&""")(close)"
wscript.sleep 500

for i=1 to num
wsh.sendKeys "^v"
wsh.sendKeys "%s"
wscript.sleep 10    '消息发送间隔时间，毫秒
next

wscript.quit