set wshshell=wscript.createobject("wscript.shell")
dim a
a=InputBox("您将更改自动关机选项,确定将关机时间更改为20:45吗?是Y否N",32,"提示")
if a="Y"then
set wshshell = createobject("wscript.shell")
wshshell.Run"cmd.exe /c schtasks /create /tn "关机" /tr "shutdown /p" /sc once /st 20:45
dim b
b=InputBox("您将更改自动关机选项,确定将关机时间更改为17:35吗?是Y否N",32,"提示")
if b="Y"then
set wshshell = createobject("wscript.shell")
wshshell.Run"cmd.exe /c schtasks /create /tn "关机" /tr "shutdown /p" /sc once /st 17:35
dim c
c=InputBox("您将自定义自动关机时间,请输入关机时间,格式为XX:XX(小时仅一位数时,格式为0X:XX),半角符号,之后确定Y取消N;若不设置,请按三次回车",64,"提示")
wshshell.Run"cmd.exe /c schtasks /create /tn "关机" /tr "shutdown /p" /sc once /st %c%
dim d
d=InputBox("您将取消所有自动关机任务,这是最后一次提示,确定继续吗?删除Y保留N",48+4096,"重要提示")
if d="Y"then
set wshshell = createobject("wscript.shell")
wshshell.Run"cmd.exe /c schtasks /delete /tn "关机"
Msgbox"完成!",64,"提示"
就不能格式化发出来吗😓