自动发消息小脚本2.0

基于上一篇文章在原有的代码上添加新的功能

代码直接复制可以使用，在桌面创建tet 文本，复制进去，保存，更改后缀名vbs。双击就可以使用。

可以填写发送的内容

可以指定短信发送次数

Msg=Inputbox("输入需要发送的内容")
num=Inputbox("输入发消息的次数")

a=1
b=num

set wshshell=CreateObject("wscript.shell")  '创建Windows的shell对象打开shell窗口
wscript.sleep 5000    '单位毫秒，每次发消息的时间间隔

for i=a to b   '循环发送
	str = Msg
	wshshell.Run "cmd.exe /c echo " & str & " | clip.exe",0,True '内容放入剪切板
	wshshell.sendKeys "^v"  '粘贴要发送的消息内容

	wscript.sleep 1000
	wshshell.sendKeys "{ENTER}"    '按enter键进行发送
next
wscript.quit

在桌面新建一个文本，并把文本的后缀名更改为vbs，再把代码复制到其中保存。

打开你要为谁发信息的聊天框，点击运行脚本，先写入想重复信息的内容，在填写次数

再点击聊天框(若没有实现发送，自己可以发送一下)，就可以实现自动发信息了。

感谢收看，点个赞呗！！！