vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 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
VerifyScreenSavePwd-Funktion

Diese Funktion blendet einen Dialog ein, der die Eingabe des Bildschirmschonerpassworts erfordert.

Betriebssystem:  Win95, Win98, WinNT 4.0, WinMEViews:  2.709 

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:
hWndErwartet 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

Diese Seite wurde bereits 2.709 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