PwdChangePassword-Funktion Diese Funktion ruft einen Dialog auf, der eine Passworteingabe zur Änderung eines in der Registry abgelegten Passworts erfordert.
Betriebssystem:  Win95, Win98, WinNT 4.0, WinME	Views:  7.777

Deklaration:

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

Beschreibung:
Diese Funktion ruft einen Dialog auf, der eine Passworteingabe zur Änderung eines in der Registry abgelegtenPassworts erfordert.

Parameter:

lpcRegkeyname	Erwartet den Registryschlüssel des Passworts, welches geändert werden soll.
hWnd	Erwartet das Handle eines Fensters, zu dem sich der Änderungsdialog modal verhalten soll.
uiReserved1	Reserviert, übergebenSie hier den Wert "0".

Rückgabewert:
Wurde das Passwort erfolgreich geändert, so wird der Wert "0" zurückgegeben, andernfalls einWert "ungleich 0".

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 Boolean

' 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