第二筆記本

Sub 關機()
    Shell shutdown - s - t1800
End Sub

Sub 取消關機()
  Shell ("shutdown -a") ' 取消關機
  Shell ("cmd") ' 取消關機
End Sub

Sub test_at()
  Dim s1 As String
  s1 = "at 14:10 " & Chr(13) & "shutdown -s -t120" & Chr(13)
  Shell (s1)

End Sub
at 16:15 "shutdown -s -t180"