Автор статьи: Беседин Игорь
Как перевести компьютер в ждущий режим?
Используя API-функцию, можно обесточить несколько портов на материнской плате, что равнозначно переходу в ждущий режим:
Private Declare Function SetSystemPowerState Lib "kernel32" Alias
"SetSystemPowerState" (ByVal fSuspend As Long, ByVal fForce As Long) As Long
Sub Form_Load ()
Call SetSystemPowerState (&H0, &H0)
End Sub
При любом воспроизведении этой статьи (и других статей с этого сайта) ставьте ссылку на сайт www.igoryksoft.narod.ru