VBS实现微信轰炸

不知道大家有没有遇到过以下情况：

1.发现自己被骗了

2.问对方一个问题对方迟迟不回答

3.在群里或私信有人骂你，你特别想报复他

不知道大家与没遇到过，反正我是全遇到了。最典型的就是有人在同学群@所有人说我的坏话，作为一个程序员最不能忍的就是在线上被欺负。所以，也没有所以了，对方惨了。我的手段就是微信轰炸。

废话不多说，直接上代码

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

将文件扩展名改为.vbs。

因为我当时真的怒了，所以把参数调的“猛了一点点点”，但大家可以调回来：

1.

for i =1 to 100

这块负责发送数量，改的话只需把100改为自己想发的数即可。

2.

wscript.sleep 50

这段代码负责发送间隔，建议改为100以上(不要问我为什么调的是50)，否则对自己的电脑和对方的手机都不好。

使用说明

1.打开微信，找到想轰炸的人。

2.在微信输入框内输入想轰炸的内容，并且全选+复制

3.(建议把代码放到桌面)双击运行程序，把鼠标移至微信输入框内。注意：运行程序时不会有任何界面的黑框，而且速度在5秒内才能运行，具体的要看电脑配置。双击时不会报错，出现界面就等于报错，可以私信联系我。

4.延迟的时间便是最后的考虑时间，如还想轰炸请忽略，不想轰炸就赶快退出微信。轰炸中如果想停止的话退出微信即可。

友情提示

不想被对方揍一顿就不要乱轰