请教老师vbe的关机程序详解

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 1000000000 -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) + "早说就行了嘛"
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) + "哈哈哈哈，乖"

你把这些复制到一个TXT得文档里，随便放在一个文件夹里，然后点最后上面工具栏里的 工具 文件夹选项 查看里的 下面有个 隐藏已知文件类型的拓展名 前面的勾点掉 再把文档 重命名 接着吧 .TXT 改成 .vbe 就好了
很简单的
不懂得话在百度HI 上问我
给点