设定时间自动关机

方法一：使用命令行设定（不让我妹妹老玩电脑时我就设定这个，然后说电脑开太久中暑了）

开始—运行—输入cmd—确定

这时会弹出一个命令行编辑界面，

输入内容：shutdown空格-s空格-f空格-t空格几秒后关机。

例如：“shutdown -s -f -t 3600”就是1小时后关机（3600秒）

方法二：使用VBS脚本（大学时用来逗人玩时我常用，呵呵，偷偷放在他的开机启动项里面，每次玩一小时电脑就自动关机，他都快崩溃了）

把以下内容复制到文本文档中，然后保存文件名为“自动关机.vbs”,并拖动到开机启动项里面，或者放在桌面上双击执行也可以。

dim os

set os = createobject("wscript.shell")

wscript.sleep 1000*1

os.run "cmd /c shutdown -s -f -t 3600"

方法三：这个也是VBS脚本，不过用来设定固定时间自动关机的（防止小孩沉迷于电脑挺好用吧）

把以下内容复制到文本文档中，然后保存文件名为“自动关机.vbs”,并拖动到开机启动项里面，或者放在桌面上双击执行也可以。

set ws=createobject("wscript.shell")

ws.run "at 20:00 shutdown.exe -s -t 0",hide,true

set ws=nothing

你想在几点关机就把20点改成你要的时间，比如晚上九点半，就是21：30 。

如果中途想取消，那就运行下面的vbs ：

set ws=createobject("wscript.shell")

ws.run "at /delete",hide ,true

set ws=nothing

方法四：设计有倒计时的自动关机（让你有时间保存文件）：

这个是我用C++面向对象思想编出来的，有些命令也记不清楚了，vbs不知道能不能实现：你没事了可以试一下，不过前三种也够你用了，呵呵。

Const EWX_SHUTDOWN = 1

Set WMI =

GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}\\.\root\cimv2 ")

Set B = WMI.ExecQuery ("Select * from Win32_OperatingSystem")

Do

For Each A in B

Set SWDT = CreateObject("WbemScripting.SWbemDateTime")

SWDT.SetVarDate Now, True

aNow = SWDT.GetV arDate(True)

If Hour(aNow) >= 22 Then

A.Win32Shutdown(EWX_SHUTDOWN)

End If

Next

WScript.Sleep 5000

Loop