Zitat von eisi
Beitrag anzeigen
Code:
' Hier die benötigte API-Deklaration
Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" ( _
ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long
' und die zu verwendenden Konstanten
Private Const WM_SYSCOMMAND = &H112&
Private Const SC_SCREENSAVE = &HF140&
Private Const SC_MONITORPOWER = &HF170&
'Ausführen
If s = "BSON" Then
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal -1&
ElseIf s = "BSOFF" Then
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal 2&


Kommentar