在这里举一个例子：（源代码 Fixed By Me）
Set objWSHShell = wscript.CreateObject("wscript.shell") '定义并初始化Shell对象
objWSHShell.Run "shutdown.exe -r -t 60 -c ""说我是猪，不说“我是猪”就会关机，不信邪的你可以试下。"" ", 0, True
此行代码作用是调用 shutdown 进行重启，60秒倒计时。
Dim uMaMe
Do While (strReturn <> "我是猪") '循环语句，直到变量 strReturn 等于 “我是猪” 时退出循环。
strReturn = InputBox("说我是猪,就可以不关机，快点，说 ""我是猪"" ", "好好考虑吧……", "你才是", 8000, 7000)
If strReturn = "你才是" Then
f uMaMe <> "yes" Then
uMaMe = "yes"
objWSHShell.popup "敢骂我，你再骂一次试看看！",1,"",4096
Else
objWSHShell.popup "好哇，天堂有路你不走，关机无门你偏来，关机吧~~~", 1,"",4096
objWSHShell.Run "shutdown.exe -r -t 0 ", 0, True '直接关机
End If
End If
Loop
'如果你说了“我是猪”，则退出循环，往下执行
objWSHShell.Run "shutdown.exe -a", 0, True '解除定时关机
objWSHShell.popup "早说不就行了嘛",1,"",4096
教程:
系统关机程序代码：
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 25 -c ""说我是畜生，不说就20秒关你机，不信，试试···"" ",0 ,true
在第4行的-r -t 25 -c中间的数字可以修改，那是修改关机时间（秒）的
文字可以改，
例：说我是猪，不说20秒关你机，不信，试试。。。
系统关机程序关闭代码（系统关机程序必用）
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
（不可修改）
无限刷对话栏
do
msgbox("你要写的")
loop
文字可以修改
有限刷对话栏
例：10000个
do until s=10000
s=s+1
msgbox（"你要写的")
loop
do until s=10000
s=10000可以修改刷多少
例：500个
do until s=500
s=s+1
msgbox（"你要写的")
loop
on error resume next
直接关机
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 0 -c ""你要写的"" ",0 ,true
直接关机，时间0秒，（不能输入关闭系统关机代码）
对话栏msgbox + chr(13) + chr(13) + chr(13) + "你要写的"
对话栏题目对话msgbox + chr(13) + chr(13) + chr(13) + a，0，"你要写的"
记得写文件把名字从“*.txt”改成你要写的“你要写的名字.vbe”
破解方法"
对于这个恶搞程序，解决很简单。在
任务管理器中找到进程“wscript.exe”（脚本宿主程序）并结束之，然后在运行中输入并运行“shutdown -a”即可解除定时关机。
[ 此帖被wswz.黑暗在2011-05-08 00:26重新编辑 ]
