Bildschirmschoner einschalten
Leserbewertung(0):bewerten...
kommentieren...
Hans Happel

Wenn Sie ihren Arbeitsplatz vorübergehend verlassen, ist Ihr PC für jedermann zugänglich. Wenn Sie dies ändern wollen, so brauchen Sie ein Programm mit dem Sie den Bildschirmschoner den Sie gewählt haben jederzeit einschalten können.

Hier ist der Code:

Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Const WM_SYSCOMMAND = &H112
Const SC_SCREENSAVE = &HF140

Private Sub Command1_Click()
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&
End Sub