VB-Homepage Tipp 051
Direktaufruf des Screensavers über SendMessage
Sicherheit geht doch über alles, deshalb wäre es doch nicht schlecht, wenn man den Screensaver gleich aktiv setzen könnte, wenn man den Platz verläßt.
Dies geht unter anderem auch mit der API-Funktion SendMessage.

Legen Sie dazu ein neues Projekt an und geben in den Abschnitt
Allgemein/Deklarationen der Form diesen wenigen Text ein.

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

Const WM_SYSCOMMAND = &H112&
Const SC_SCREENSAVE = &HF140&

Nun noch den Aufruf über
Form/Load oder Command?/Click definieren und fertig.

Dim result As Long
result = SendMessage(Form1.hWnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)
Tipp-Download
Quelle :
Zurück zur Übersichtsseite