[VB6]Passwort

UserForm mit Passwort schützem

Schwierigkeitsgrad: ||| ( Etwas Schwerer )

Objekte: 3
-Command Button
-Command Button
-TextBox

Variablen: 2
-mstrPasswort As String
-mintVersuche As Integer

Zeit: 5 Mins
Ihr werdet nicht länger als 5 Minuten brauchen um dass zu machen

Code:

Option Explicit
Private mintVersuche As Integer
Private mstrPasswort As String
Private Sub Form_Load()
MsgBox "Passwortgeschützter Bereich!" & vbCr & "Bitte geb dass Passwort ein." ,vbExclamaion, "Passwort benötigt!"
End Sub

Private Sub cmdOk_Click()
If intVersuche < 2 Then MsgBox "Du hast zu oft versucht dass Passwort einzugeben!" ,vbCritical, "Fehler!": End
strPasswort = "SA:MP"
If txtPasswort.Text = strPasswort Then
PasswortOK
Else
MsgBox "Inkorrektes Passwort!" ,vbExclamation, "Falsches Passwort!"
intVersuche = intVersuche + 1
End If
End Sub

Private Sub cmdAbbrechen_Click()
End
End Sub

Private Sub PasswortOk()
MsgBox "Dass Passwort ist Korrekt" ,vbInformation, "Korrektes Passwort"
WASS PASSIEREN SOLL WENN DASS RICHTIGE PASSWORT EINGEGEBEN WURDE Z.B. frmblabla.show
End Sub

Erfolgreich getestet in:

Gruß,
[GRC]Flip