用API使電腦休眠或待機

Private Declare Function SetSuspendState Lib "Powrprof" (ByVal Hibernate As Boolean, ByVal ForceCritical As Boolean, ByVal DisableWakeEvent As Boolean) As Boolean

樣本:
SetSuspendState True, True,True

'參數Hibernate: =False:待機; =True:休眠
'參數ForceCritical: =False:不強行中止運行中的進程; =True:強行中止運行中的進程
'參數DisableWakeEvent =False:允許系統事件喚醒電腦; =True:系統不能喚醒電腦

如果函數成功，傳回值為非零。
如果函數失敗，傳回值為零。為了獲得更多的錯誤資訊，調用GetLastError。