qq轰炸机代码vbs（qq轰炸代码vbs）

大家好，我是小新，我来为大家解答以上问题。qq轰炸机代码vbs，qq轰炸代码vbs很多人还不知道，现在让我们一起来看看吧！

1、用记事本（.txt）存……

2、把扩展名改成.vbs就行了……

3、另外，你这脚本有错误，不用测试，我看得出来。

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

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

6、msgbox "启动后在两秒内将光标移到炸弹信息窗口哪儿。注意QQ发信息设置按Ctrl+ENTER弹信息。"

7、xx=inputbox("炸弹信息","必须是英文，禁止中文标点。违者包你完蛋","qisiwole1")

8、a=int(inputbox("炸弹次数",,100))

9、jg=1000/int(inputbox("每秒炸弹次数（输1启动"机枪"模式）",,4))

10、if jg=1000 then

11、yyy=msgbox ("启动机枪模式？可能对方/你死机！甚至服务器瘫痪……(连作者都没测试过：信息10000条，电脑最快速度发送)",16+vbyesno,"相当危险!")

12、if yyy=vbyes then

13、jg=1

14、a=10000

15、else

16、msgbox "已取消，默认设置。确认开始"

17、a=100

18、jg=250

19、end if

20、end if

21、msgbox "预计耗时"&a*jg/1000+a*0.05&"秒"

22、dim i,ppp

23、ppp=(10000/(a*jg))

24、i=0

25、wscript.sleep 2000

26、Set Wshell=WScript.CreateObject("WScript.Shell")

27、do

28、i=i+1

29、if a<i then

30、msgbox "轰炸完毕。"

31、exit do

32、end if

33、wscript.sleep jg

34、WShell.SendKeys xx

35、WShell.SendKeys "^{enter}"

36、loop

本文到此讲解完毕了，希望对大家有帮助。