vbs定时关机

Set ws=CreateObject("WScript.shell")
ws.regwrite"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\vbsAutoRun",WScript.ScriptFullName,"REG_SZ" '添加开机启动项，需要杀毒软件信任
Dim TimeD : TimeD = 0

Do
    WScript.Sleep 1000 '开机记时1秒
    TimeD = TimeD + 1
Loop Until TimeD = 30*60 '30分钟是1800S，当记时到1800则退出循环，执行下面语句

If Weekday(Now) = 7 Then Wscript.Quit '如果是星期六则直接退出，不执行下面的关机语句
ws.Run "shutdown -s 0",0 '直接关机命令，没有任何提示

以上代码基本上都有注释，保存为vbs后缀运行一次即可，有问题就追问哈，能实现你的目的还望及时采纳。

这个我不知道。

给电脑定时关机，我使用的是定时关机3000.

定时关机 3000有五种让电脑定时关机的方法，如每天几点几分关机或者等待多长时间后关机或者开机多长时间关机以及网速低于多少的时候关机和键盘鼠标多次时间没有反应关机。

还不赶快下载定时关机3000到您的电脑，试试定时关机的效果怎么样？

推荐你使用《定时任务》