Rubrik: Windows/System | 22.03.05 |
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.495 |
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