Resumen Apagar y encender el monitor desde un programa

Mensaje enviado por Alvarez Gómez Miguel <malvarez@tamatan.uat.mx>

Leiverx No se que pretendas hacer pero si decides apagar el monitor un tiempo la siguiente función te puede servir y después lo puedes volver a encender desde tu programa.
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
Public Enum MonitorState
  MonitorOn = -1
  MonitorOff = 2
  MonitorStandby = 1
End Enum

Public Sub SetMonitorState(frmForm As Form, eState As MonitorState)
Dim lngResult As Long
lngResult = SendMessage(frmForm.hwnd, &H112, &HF170, eState)
End Sub

Saludos Miguel



Resumen Resumen

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com