Hier stelle ich meine "kleine" Sammlung von VB6 Projekten zur Verfügung.
Der Code bassiert i.d.R. auf dem Visual Basic 6 mit SP 6
Weitere Vorschläge und/oder Anregungen nehme ich gerne entgegen.

Monitor in Standby versetzen

11.04.2010 posted by Frank Wenner

Hier wird gezeigt wie man einen Monitor per Windows API in den Standby-Modus versetzen kann.

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
  	
  Private Const WM_SYSCOMMAND = &H112&
  Private Const SC_MONITORPOWER = &HF170&
  Private Const MONITOR_ON = -1&
  Private Const MONITOR_OFF = 2&
  	
  Public Sub Main()
    On Error Resume Next
    Load Form1
    Call SendMessage(Form1.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal MONITOR_OFF)
    Unload Form1
    DoEvents
  End Sub