'以下代码是定时关机或重启的脚本，在windows 2000下通过
dim ActionID
ActionID = 1 '0注销，1关机，2重启,
ActionTime = "2005-11-7 13:42:30" '关机或重启时间
function ShutDown()
dim objShell
Set objShell = WScript。
CreateObject("Wscript。Shell")
dim Application
set Application = CreateObject("Shell。Application。1")
Application。
ShutdownWindows()
dim upi
for upi = 0 to 4
WScript。Sleep(50)
ndKeys("{UP}")
next
For upi = 1 to ActionID
WScript。
Sleep(50)
ndKeys("{DOWN}")
next
'使用时，请把下行的注释符去掉
' ndKeys("{ENTER}")
end function
While true
if DateDiff("s", Now, ActionTime) < 0 then
ShutDown()
end if
WScript。
Sleep(5*1000)
wend
'将上面代码存为vbs文件，如：shutdown。vbs，然后双击或在文件上点右键选择以命令提示打开,
'如果到了你设置重启的时候，系统会出现关机的对话框。
'直接下面代码程序会出现关机的对话框，最后的回车注释掉了，正常使用时，请去掉注释符。
。
问题很简单.不知道几位朋友为何写的代码这么复杂?
我还是说得清楚一点吧.
把代码复制到一个记事本中,保存为VBS脚本文件,写入如下代码:
Dim DelayTime
Set ShutdownRunner = CreateObject("wscript.shell")
DelayTime = InputBox("请问多少秒后关机？")
If DelayTime > 3600 Then ShutdownRunner.run "shutdown -s -t " + DelayTime, vbHide
此代码完全测试通过.代码默认关机时间为3600秒,也就是1小时.即是说,如果您运行此代码,可是您却在打开的对话框中点击取消,那么此代码也会在1小时后强制关闭您的计算机,并且代码不会有任何提示.
不用VB也可以啊，在CMD中就可以，没这么麻烦啊！ 例如： at 12:00 shutdown -s
n=inputbox("请输入等待时间（分钟）：","系统提示")
eep 1000*60*n
createobject(" ell").run "cmd /c shutdown -s -f -t 0",0,true
建一个.BAT的文件就得了,然后在里面敲入shutdown -s -f -t 0,然后保存关闭.再双击该文件即可快速关机了
方法很多，软件也很多，不知道是否是你要的 1、设置： 2、软件：
答：'以下代码是定时关机或重启的脚本，在windows 2000下通过 dim ActionID ActionID = 1 '0注销，1关机，2重启, Ac...详情>>
