vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2014
 
zurück
Rubrik: Windows/System22.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, WinMEViews:  3.223 

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:
lpcRegkeynameErwartet den Registryschlüssel des Passworts, welches geändert werden soll.
hWndErwartet das Handle eines Fensters, zu dem sich der Änderungsdialog modal verhalten soll.
uiReserved1Reserviert, ü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

Diese Seite wurde bereits 3.223 mal aufgerufen.

nach obenzurück
 
   

Druckansicht Druckansicht Copyright ©2000-2014 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel