UC知道这段定时关机的代码哪里写错了?
来源：百度知道 编辑：UC知道 时间：2024/06/17 13:57:29
写了一段定时关机的代码, 是用倒计时的代码改的, 发现要好多亢烦的步骤, 而且运行后无法关机, 麻烦解释一下哪里写错了, 那里多余了,怎么改, 说明理由, 高分答谢!
========================================================
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c at 2:10 shutdown -s -c ""解除定时密码为 1"" ",0 ,true
dim a
do while(a <> "1")
a = inputbox ("指定时间前未输入正确密码系统将自动关机"" ","请输入解除定时密码","在此输入密码",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "密码正确！"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "关机系统解除"
========================================================
那个等号是我提问用来标记边界的,实际程序中没有. 我的程序也可以运行,问题是没有作用, 不会自
========================================================
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c at 2:10 shutdown -s -c ""解除定时密码为 1"" ",0 ,true
dim a
do while(a <> "1")
a = inputbox ("指定时间前未输入正确密码系统将自动关机"" ","请输入解除定时密码","在此输入密码",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "密码正确！"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "关机系统解除"
========================================================
那个等号是我提问用来标记边界的,实际程序中没有. 我的程序也可以运行,问题是没有作用, 不会自
把 ====================================这些去掉就可以了
或逗号注释一下
保存为 关机.vbs
----
我在windows2003下可以运行，要不到别的电脑上试试？
右键，open with > Microsoft Windows Based Script Host
----
at 2:10
计划任务时间没到，半夜2点
改成这样试试？
WSHshellA.run "cmd.exe /c shutdown -s -t 60 -c ""解除定时密码为 1"" ",0 ,true
---
如果用at计划任务，解除的命令是：
WSHshell.run "cmd.exe /c at /delete /yes",0 ,true