Sie programmieren zur Zeit einen Passwortschutz oder eine Art Kindersicherung für den PC? Oder auch nicht? In beiden Fällen dürfte Ihnen der folgende Tipp gefallen. Denn mit Hilfe einer API-Funktion und den richtigen Parametern ist es möglich, den Bildschirm des Benutzers in den StandBy-Modus zu schalten und den Computer so bis zum nächsten Neustart oder Befehl Ihres Programms zum Rückgängigmachen der Funktion unbrauchbar zu machen...

Ihre Bewertung:   1 2 3 4 5

Bewertung dieses Tipps:

(bewertet von insgesamt 35 Besuchern)

Um diese Funktion in Ihren eigenen Projekten verwenden zu können, muss Sie zuerst im Kopf eines Moduls oder einer Form deklariert werden. Zusätzlich werden noch einige Konstanten benötigt. Ich empfehle Ihnen, diese Angaben in einem Modul zu plazieren, da die Funktion dann später im gesamten Projekt zur Verfügung stehen wird. Andernfalls müssen Sie jedes Vorkommen von Public in Private ändern.

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long
Public Const WM_SYSCOMMAND = &H112
Public Const SC_MONITORPOWER = &HF170

Public Const MONITOR_ON = -1&
Public Const MONITOR_OFF = 2&

Um nun den Monitor auszuschalten, übergeben wir einfach der Funktion SendMessage die richtigen Konstanten:

SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, MONITOR_OFF

Folgender Befehl schaltet den Bildschirm dann wieder in den normalen Modus:

SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, MONITOR_ON

---

Quellen: SHADOWare.de, eduard-sudniks.de Letzte Änderung: 10.11.00

©2000 by SHADOWare, Thomas Bachem