自动发短信小脚本3.0

这个小脚本可以实现微信上指定人发送短信。代码直接复制可以使用。

在桌面创建tet 文本，复制进去，保存，更改后缀名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 1000
wsh.run "mshta vbscript:clipboardData.setData(""Text"","""&Msg&""")(close)"
wscript.sleep 1000
 
for i=1 to num
wsh.sendKeys "^v"
wsh.sendKeys "%s"
wscript.sleep 1000    '消息发送间隔时间，毫秒
next
 
wscript.quit

首先输入想要发送人的名称，（这个名称，你可以去微信自己先搜索一下，在微信界面，搜索框中，脚本搜索出来后默认选择的是第一个）。 其次输入想要发送的内容， 再着就是发送的次数。

前提是你的微信已经登陆。并且能够通过快捷键唤醒微信，以及搜索人物。