1. 首页 >创投 > 正文

qq炸弹消息(qq炸弹)

导读 关于qq炸弹消息,qq炸弹这个很多人还不知道,今天菲菲来为大家解答以上的问题,现在让我们一起来看看吧!1、用记事本( txt)存……把扩展

关于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。

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

标签:

免责声明:本文由用户上传,如有侵权请联系删除!