vbs定时关机
请教个简单的VBS关机程序。要求:开机后30分钟后强制关机,不要提示,不要任何输入,星期六不限制。另外,要能开机自启动~...
请教个简单的VBS关机程序。要求:开机后30分钟后强制关机,不要提示,不要任何输入,星期六不限制。
另外,要能开机自启动~ 展开
另外,要能开机自启动~ 展开
展开全部
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后缀运行一次即可,有问题就追问哈,能实现你的目的还望及时采纳。
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到您的电脑,试试定时关机的效果怎么样?
给电脑定时关机,我使用的是定时关机3000.
定时关机 3000有五种让电脑定时关机的方法,如每天几点几分关机或者等待多长时间后关机或者开机多长时间关机以及网速低于多少的时候关机和键盘鼠标多次时间没有反应关机。
还不赶快下载定时关机3000到您的电脑,试试定时关机的效果怎么样?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
推荐你使用《定时任务》
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询