信息轰炸

1.创建一个txt文件

2.复制代码

On Error Resume Next

Dim xda,ye

set xda=createobject("wscript.shell")

for i =1 to 5

wscript.sleep 70

xda.AppActivate

xda.sendKeys "^v"

xda.sendKeys "%s"

next wscript.quit 

3.改变后缀为vbs。

4.打开微信聊天框，聊天框中输入要发送的内容，复制。

5.双击打开vbs程序，再次点击聊天框。