Ejemplos usando el Api de windows para Visual basic

73 - Apagar y encender el monitor

Volver al Listado Api - Anterior - Siguiente

Este ejemplo permite apagar el monitor durante unos segundos y luego reestablecerlo usando el api SendMessage.

El valor 2 en el último parámetro lo apaga, el valor -1 lo enciende.

Código fuente:

Option Explicit 'Api SendMessage 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 'Constantes para SendMessage Const WM_SYSCOMMAND = &H112& Const SC_MONITORPOWER = &HF170& Private Sub Command1_Click() If MsgBox("Pagar el monitor por 15 segundos ?", _ vbQuestion) = vbNo Then Exit Sub Timer1.Enabled = True 'Apaga el monitor SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal 2& End Sub Private Sub Form_Load() '15 segundos de lapso Timer1.Interval = 15000 Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Timer1.Enabled = False 'Prende el monitor SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal -1& End Sub

Recursos visual basic.net - Enlaces

Buscar en Recursos vb