VB-Homepage Tipp 087

STRG-ALT-ENTF deaktivieren [nur Win95]

Interessant dürfte dieser Tipp vor allem für die sein, die sich Ihren eigenen Screensaver basteln wollen. Denn dort besteht die Problematik, das sich die Tastenkombination über KeyPress und KeyDown nicht abfangen läßt und so der User bei laufendem Screensaver an die Taskliste kommt und so den Screensaver Task beenden kann.  Sicherheit gleich null.

Und dabei gehört gar nicht soviel dazu, dies zu unterbinden.
Erstellen Sie wie gewohnt ein neues VB4-Projekt und gehen nun wie folgt vor.

1. Allgemein/Deklarationen
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const SPI_SETSCREENSAVEACTIVE = 97

2. Allgemein/DisableCAD
Sub DisableCAD(bState As Boolean)
Dim x As Long
Dim lngWas As Long
x = SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, bState, lngWas, 0)
End Sub

3. Fügen Sie nun zwei CommandButton der Form hinzu

4. Command1/Click
Private Sub Command1_Click()
DisableCAD True
End Sub

5. Command2/Click
Private Sub Command2_Click()
DisableCAD False
End Sub

Wenn Sie nun das Programm starten und auf den Button1 klicken, wird die Tastenkombination aufgehoben. Testen Sie es.
Mit dem Button2 heben Sie dies wieder auf.
Wenn Sie dies nun in Ihr Screensaverprojekt einbinden und zum Programmstart die Syntax des Buttons1 ausführen lassen, kommt keiner mehr am Screensaver vorbei.
Vergessen Sie nicht beim Beenden diese Funktion wieder auf zuheben.
[ Diesen Tipp hab ich auf den Internetseiten von "Planet VB Sample Code" gefunden ]

Tipp-Download

Quelle :

Zurück zur Übersichtsseite