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

Question

• 同志们帮我看看这几行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,"提示"
  

Answer 1

就不能格式化发出来吗😓