如何编程使系统待机或休眠

Public Declare Function SetSuspendState Lib "Powrprof" (ByVal Hibernate As Boolean, ByVal ForceCritical As Boolean, ByVal DisableWakeEvent As Boolean) As Boolean ' '‘‘参数Hibernate:=False:待机;=True:休眠 '‘‘参数ForceCritical:=False:不强行中止运行中的进程;=True:强行中止运行中的进程 '‘‘参数DisableWakeEvent=False:允许系统事件唤醒计算机;=True:系统不能唤醒计算机 例子： Private Sub Command1_Click() Dim result As Boolean result = SetSuspendState(False, True, False) End Sub powrprof.dll 　　powrprof - powrprof.dll - DLL文件信息 　　DLL 文件： powrprof 或者 powrprof.dll 　　DLL 名称： Microsoft Power Profile Helper DLL 　　描述： 　　powrprof.dll是微软Microsoft Windows电源管理配置工具相关模块。 　　属于： Microsoft Windows 　　系统 DLL文件： 是 　　常见错误： File Not Found, Missing File, Exception Errors 　　安全等级 (0-5): 0 　　间谍软件： 否 　　广告软件： 否