qq炸弹

关于qq炸弹消息，qq炸弹这个很多人还不知道，今天菲菲来为大家解答以上的问题，现在让我们一起来看看吧！

1、用记事本（.txt）存……把扩展名改成.vbs就行了……另外，你这脚本有错误，不用测试，我看得出来。

2、这脚本恐怕没有用呢。

3、我把我写的QQ炸弹给你吧。

4、msgbox "启动后在两秒内将光标移到炸弹信息窗口哪儿。

5、注意QQ发信息设置按Ctrl+ENTER弹信息。

6、"xx=inputbox("炸弹信息","必须是英文，禁止中文标点。

7、违者包你完蛋","qisiwole1")a=int(inputbox("炸弹次数",,100))jg=1000/int(inputbox("每秒炸弹次数（输1启动"机枪"模式）",,4))if jg=1000 thenyyy=msgbox ("启动机枪模式？可能对方/你死机！甚至服务器瘫痪……(连作者都没测试过：信息10000条，电脑最快速度发送)",16+vbyesno,"相当危险!")if yyy=vbyes thenjg=1a=10000else msgbox "已取消，默认设置。

8、确认开始"a=100jg=250end ifend ifmsgbox "预计耗时"&a*jg/1000+a*0.05&"秒"dim i,pppppp=(10000/(a*jg))i=0wscript.sleep 2000Set Wshell=WScript.CreateObject("***.Shell")doi=i+1if a

9、"exit doend ifwscript.sleep jgWShell.SendKeys xxWShell.SendKeys "^{enter}"loo。

本文到此分享完毕，希望对大家有所帮助。