整蛊：聊天中，连续发送消息的vbs脚本

如何实现连续发送消息呢？

准备工作：

只要我们将下面这段代码复制放在记事本里，然后保存退出将记事本文件后缀名改为.vbs就可以了

On Error Resume Next 
 
Dim wsh,s,xTimes,tle
 
set wsh=createobject("wscript.shell") 
xTimes = inputbox("请输入重发消息的次数")
 
'clipboardData.SetData s
 
for i=1 to Cint(xtimes)
wscript.sleep 30
wsh.AppActivate(cStr(tle)) 
wsh.sendKeys "^v"
wsh.sendKeys "%s" 
next 
 
wscript.quit

进行连续发送整蛊操作方式😄：

先复制一下你想发送的内容，再双击运行vbs脚本,在输入框里输入想发送的次数点击确认。

此脚本只要是有聊天框都可以实现自动重复发消息，微信、QQ、甚至可以用来发弹幕。

建议慎用，避免被拉黑哦（手动滑稽）

运行之后界面：