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

2025-02-26 08:21:32
推荐回答(1个)
回答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小程序。

希望能帮到您!