Rubrik: Windows/System | 22.03.05 |
VerifyScreenSavePwd-Funktion Diese Funktion blendet einen Dialog ein, der die Eingabe des Bildschirmschonerpassworts erfordert. | ||
Betriebssystem: Win95, Win98, WinNT 4.0, WinME | Views: 7.287 |
Deklaration:
Declare Function VerifyScreenSavePwd Lib "password.cpl" ( _ ByVal hWnd As Long) As Long
Beschreibung:
Diese Funktion blendet einen Dialog ein, der die Eingabe des Bildschirmschonerpassworts erfordert.
Parameter:
hWnd | Erwartet das Fensterhandle des Fensters, zu dem sich der Dialog modal verhalten soll. |
Rückgabewert:
Wurde das korrekte Passwort eingegeben, so ist die Rückgabe ein Wert "ungleich 0". Trat ein Fehler auf oder wurde der Dialog abgebrochen so wird derWert "0" zurückgegeben.
Beispiel:
Private Declare Function PwdChangePassword Lib "mpr.dll" _ Alias "PwdChangePasswordA" ( _ ByVal lpcRegkeyname As String, _ ByVal hWnd As Long, _ ByVal uiReserved1 As Long, _ ByVal uiReserved2 As Long) As Long Private Declare Function VerifyScreenSavePwd Lib "password.cpl" ( _ ByVal hWnd As Long) As Long
' Bildschirmschoner-Passwort abfragen Private Sub Form_Load() Dim Retval As Long On Error Resume Next Retval = VerifyScreenSavePwd(Me.hWnd) ' Ergebnis auswerten If Retval << 0 Then MsgBox "Ihre Eingabe war korrekt oder es ist kein Passwort erforderlich" Else MsgBox "Sie haben das falsche Passwort eingegeben oder es ist ein _ Fehler aufgetreten." Command1.Enabled = False End If End Sub
' Neues Bildschirmschoner-Passwort setzen Private Sub Command1_Click() Dim Retval As Long ' Passworteingabedialog aufrufen Retval = PwdChangePassword("SCRSAVE", Me.hWnd, 0&, 0&) If Retval << 0 Then MsgBox "Die Eingabe wurde abgebrochen" End If End Sub