Конференция VBStreets

**Eduard** » 27.12.2003 (Сб) 18:41

Как можно грамотно программно отправить компьютер спать (Suspend, Sleep) ?

**gaidar** » 27.12.2003 (Сб) 19:36

Функция проверяет поддерживает ли ПК suspend:

Код: Выделить всё: Declare Function IsPwrSuspendAllowed Lib "Powrprof.dll" () As Long

Эта функция и делает "черное дело":

Код: Выделить всё: Declare Function SetSuspendState Lib "Powrprof" (ByVal Hibernate As Long, ByVal ForceCritical As Long, ByVal DisableWakeEvent As Long) As Long

Hibernate = True (Hibernation) | False (Suspend)
ForceCritical = True (быстро спать!)

DisableWakeEvent = True (отмена событий "пробуждающих")

**Eduard** » 28.12.2003 (Вс) 18:32

Проверить поддержку проверил он, вернул 1, а вот спать не в какую не хочет уходить, может что добавить надо ?

**gaidar** » 28.12.2003 (Вс) 19:33

Все просто:

Код: Выделить всё: Private Declare Function SetSuspendState Lib "Powrprof" (ByVal Hibernate As Long, ByVal ForceCritical As Long, ByVal DisableWakeEvent As Long) As Long Private Sub Form_Load() SetSuspendState 0, 0, 0 End Sub

Работает на Win98/2K/XP/2003.

**gaidar** » 28.12.2003 (Вс) 19:34

На всякий случай поясню: 0 = False, 1 = True

Как отправить компьютер спать ?