qq炸彈消息（qq炸彈）
關(guān)于qq炸彈消息，qq炸彈這個(gè)很多人還不知道，今天菲菲來為大家解答以上的問題，現(xiàn)在讓我們一起來看看吧！
1、用記事本（.txt）存……把擴(kuò)展名改成.vbs就行了……另外，你這腳本有錯(cuò)誤，不用測試，我看得出來。
2、這腳本恐怕沒有用呢。
3、我把我寫的QQ炸彈給你吧。
4、msgbox "啟動(dòng)后在兩秒內(nèi)將光標(biāo)移到炸彈信息窗口哪兒。
5、注意QQ發(fā)信息設(shè)置按Ctrl+ENTER彈信息。
6、"xx=inputbox("炸彈信息","必須是英文，禁止中文標(biāo)點(diǎn)。
7、違者包你完蛋","qisiwole1")a=int(inputbox("炸彈次數(shù)",,100))jg=1000/int(inputbox("每秒炸彈次數(shù)（輸1啟動(dòng)"機(jī)槍"模式）",,4))if jg=1000 thenyyy=msgbox ("啟動(dòng)機(jī)槍模式？可能對(duì)方/你死機(jī)！甚至服務(wù)器癱瘓……(連作者都沒測試過：信息10000條，電腦最快速度發(fā)送)",16+vbyesno,"相當(dāng)危險(xiǎn)!")if yyy=vbyes thenjg=1a=10000else msgbox "已取消，默認(rèn)設(shè)置。
8、確認(rèn)開始"a=100jg=250end ifend ifmsgbox "預(yù)計(jì)耗時(shí)"&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。
本文到此分享完畢，希望對(duì)大家有所幫助。
標(biāo)簽： qq炸彈