' Как включить ждущий режим?
' для работы необходимо добавить:
' кнопку Command1
Private Declare Function SetSystemPowerState Lib "kernel32" _
(ByVal fSuspend As Long, ByVal fForce As Long) As Long
Private Sub Command1_Click()
SetSystemPowerState 1, 0
End Sub
Private Sub Form_Load()
Me.Caption = "Перевод компьютера в ждущий режим"
Command1.Caption = "включить ждущий режим"
End Sub
Как включить ждущий режим? (1 349 байт)