求一段定时关机的vbs代码,还要能放入开机自启动。能简单解释一下更好!各位请帮忙!

 我来答
剑6澡
2015-04-29 · TA获得超过769个赞
知道小有建树答主
回答量:352
采纳率:0%
帮助的人:211万
展开全部
运行输入:at xx:xx shutdown -s 其中xx:xx表示的是时间 ,就是在几点的时候关机- -
更多追问追答
追问
不是,是vbs代码,不是cmd,bat,另外要能开机启动的
追答
建n个bat文件,里面写上打开自身,一开机会就崩溃,越多崩溃的越快
如建一个1.bat,然后打开编辑写上1.bat,可以自己试试
漫步的星光 | 07-08-03
'以下代码是定时关机或重启的脚本,在windows 下通过
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,然后双击或在文件上点右键选择以命令提示打开,
'如果到了你设置重启的时候,系统会出现关机的对话框。
'直接下面代码程序会出现关机的对话框,最后的回车注释掉了,正常使用时,请去掉注释符。

收起
本回答被提问者和网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
657kkk
2015-05-04 · TA获得超过9111个赞
知道大有可为答主
回答量:2.2万
采纳率:0%
帮助的人:7916万
展开全部
这个我不会。

电脑定时关机,我使用的是定时关机软件。

用定时关机3000设置定时关机非常的简单。

启动定时关机3000软件,在主界面点击添加任务按钮。

在弹出的添加任务窗口中根据自己的需要选择适合自己的关机条件,点击确定按钮就可以了。如需要电脑开机多长时间后关机,只需点击现在开始等待选项,设定等待时间就可以了。

定时关机3000软件有11种执行条件和可以执行电脑定时关机在内的14种任务。你只需选中你需要的执行那种定时自动关机的方法和要执行的任务,然后设定好时间,点击确定按钮就可以了。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
白鹰lg
2018-01-23
知道答主
回答量:12
采纳率:0%
帮助的人:1.1万
展开全部
在电脑端新建文本文档,更改后缀名为vbs,名字随便取,复制下面的代码,保存,双击即可(注意如果手速不快的,提前准备好注销关机命令),设置为开机自启,第一次启动后就不用管它
dim fso,ws,file,pt
Set fso=createobject("scripting.filesystemobject")
Set ws=createobject("wscript.shell")
Set file=fso.getfile(wscript.scriptfullname)
pt = ws.specialfolders("startup") & "\"
file.copy pt '脚本添加到注册表 开机自启'
ws.run "cmd.exe /c shutdown /s /f /t 60",1 ,true
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式