Suspender Windows

Enviando un “mensaje” a Windows, podemos suspender el sistema. Igual que si pulsáramos “Menú Inicio – Apagar el sistema… – Suspender”.

Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _
             ByVal wParam As Long, lParam As Any) As Long
Const WM_SYSCOMMAND As Long = &H112&
Const SC_SUSPENSYSTEM As Long = &HF140&

Function SuspenderSistema() As Boolean
    Dim hWnd&
    On Error Resume Next
    hWnd& = GetDesktopWindow()
    Call SendMessage(hWnd&, WM_SYSCOMMAND, SC_SUSPENSYSTEM, 0&)
    SuspenderSistema = (Err.Number = 0)
End Function
Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s