同志们帮我看看这几行vbs自动关机代码错哪儿了?帮我改一改thanks!

  • 同志们帮我看看这几行vbs自动关机代码错哪儿了?帮我改一改谢谢!

    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,"提示"
    

就不能格式化发出来吗😓