close

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"

arrow
arrow
    文章標籤
    程式 excel 聚集
    全站熱搜

    pixso 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄