vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Erstellen von dynamischen Kontextmen?s - wann immer Sie sie brauchen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2015
 
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.940 

Summer-Special bei Tools & Components!
Gute Laune Sommer bei Tools & Components
Top Summer-Special - Sparen Sie teilweise über 100,- EUR
Alle sev-Entwicklerkomponenten und Komplettpakete jetzt bis zu 25% reduziert!
zum Beispiel:
  • Developer CD nur 455,- EUR statt 569,- EUR
  • sevDTA 2.0 nur 224,30 EUR statt 299,- EUR
  •  
  • vb@rchiv   Vol.6 nur 18,70 EUR statt 24,95 EUR
  • sevCoolbar 3.0 nur 58,70 EUR statt 69,- EUR
  • - Werbung -Und viele weitere Angebote           Aktionspreise nur für kurze Zeit gültig

    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.940 mal aufgerufen.

    nach obenzurück
     
       

    Druckansicht Druckansicht Copyright ©2000-2015 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