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