Question

如何让vbs 脚本在windows锁定的状态下运行，例如写一个定时关机的脚本 在锁定状态下就不管用了

如题
代码如下 在7:00-21:00 电脑可以正常运行 超过晚上21:00 就自动关机，问题是人不在的时候电脑处于锁定状态就不能自动关机了
On Error Resume Next
do
if hour(now)>=21 or hour(now)<7 then
CreateObject("Wscript.Shell").Popup "非上班时间请勿使用此机，系统将于1分钟后自动关闭请注意保存文件！", 60, "提示(确定直接关机)", 0
call shut_down()
end if
wscript.sleep 10000
loop
private sub shut_down()
Set colOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * FROM Win32_OperatingSystem")
For Each eOs In colOS
eOs.Win32Shutdown(1)
Next
end sub

Answer 1

set AutoClose=createobject("wscript.shell")
if msgbox("您要使用定时关机程序？",vbokcancel,"阿庆提示：")=vbOK then
msgbox"欢迎使用！",64,"欢迎！"
NT=now()
InAuto=inputbox("现在是 " & NT &"," & chr(13)&"您计划在几分钟后关机？请输入：","计划" ,"5")
if InAuto=vbempty then
msgbox"您退出了该程序！",48,"Windows提示"
else
if InAuto="" then
msgbox"您的本次操作有误！"&chr(13)&" 请重新启动程序",48,"Windows错误"
else
Min=dateadd("n",InAuto,time())
if msgbox("计算机将在 " & Min &" 后关机！",vbokcancel,"windows消息")=vbok then
Autosecond=InAuto*60
AutoClose.run"cmd.exe /c shutdown -s -t " & Autosecond,vbhide ' vbhide有隐藏执行cmd时出现的黑色窗口的作用
else
msgbox"程序终止！",48,"终止"
end if
end if
end if
else
msgbox"您退出了本次操作！",48,"结束"
end if

复制以上代码到记事本 改后缀为 .vbe 保存 。这是一个定时关机的vbs小程序。

希望能帮到您！

追问

不是要关机代码 拜托

追答

要让脚本在电脑锁定状态下不可以运行？？

追问

反了 是在锁定状态下也可以运行 不要卡在那