Kansen over: 3

[xX Da Master Xx]

Ik heb een Login gemaakt in VB 6.0 en ik zou het graag zo maken dat als je passwoord of username fout is een kans of gaat.

Zodat je 3 kansen krijgt en dan sluit het programme af of wordt je doorverezen naar een ander venster waarop staat probeer over 5min opnieuw met de timer erbij.

Thx

Ohja als je een goede TuT over VB 6.0 weet dan mag je die ook geven

 

[killermenace]

Je kan een int-variabele bijhouden.
Deze zet aan het begin op 0.
Als er een fout inlogpoging is gedaan zet je deze een hoger...
En als hij dus 3 is, dan krijg je dat schermpje.

 

[xX Da Master Xx]

Dat had ik ook al in gedacht maar weet niet wat waar zetten en hoe moet ik dat dan precies typen.

 

[That Guy]

bovenin je code:

Dim iCounter as integer

Ergens in je form_load event:

iCounter = 0

dan, nadat je kijkt of de wachtwoord/username goed is:

if iCounter > 3 then
   msgbox "Zo is het genoeg"
else
   iCounter = iCounter + 1
end If

je kan altijd www.planetsourcecode.com checken, heel veel vb6.0 scripts te vinden.

 

[xX Da Master Xx]

Het lukt nog altijd niet dit is men code:

Private Sub Login_Click()
If Username = "admin" And Password = "adminadmin" Then
Me.Hide
hoofdvenster.Show
Else
Username = ""
Password = ""
MsgBox "Password or Username is incorrect!", vbCritical, "Error"
End If
End Sub

Kan jij het toevoegen in de code?

 

[xX Da Master Xx]

Niet meer nodig heb het al gevonden maar toch bedankt!

 

[That Guy]

err, okay, mooi

zet je de status op 'opgelost' ?

 

[xX Da Master Xx]

euhm nu ziet men code er zo uit :

Dim kans As Integer
Private Sub Login_Click()
If Username = "admin" And Password = "adminadmin" And kans < 3 Then
Me.Hide
hoofdvenster.Show
Else
If kans < 3 Then
Username = ""
Password = ""
MsgBox "Password or Username is incorrect!", vbCritical, "Error"
kans = kans + 1
If kans > 2 Then
MsgBox "This is your 3rd incorrect login! You are banned for 5 min !"
End If
End If
End If
End Sub

Maar als ik aan men 3rd fout log in zit krijg ik de melding dat men pass of naam fout is en daarnaa --> You are banned.
Dat zou ik willen veranderen dat ik direct de melding krijg --> you are banned

En als ik na men 3rd foute login nog eens probeer in te loggen dan kan ik op login klikken maar er gebeurt niets. Hier wil ik dat er zolang kans > 2 is komt te staan You are banned.



Thx

 

[That Guy]

Dim kans As Integer
Private Sub Login_Click()
If Username = "admin" And Password = "adminadmin" And kans < 3 Then
Me.Hide
hoofdvenster.Show
Else

[COLOR="seagreen"]'hier een editje - maak er een if-else-endif loop van[/COLOR]
If kans < 3 Then
Username = ""
Password = ""
MsgBox "Password or Username is incorrect!", vbCritical, "Error"
kans = kans + 1
else  [COLOR="seagreen"]'zie hier[/COLOR]
MsgBox "This is your 3rd incorrect login! You are banned for 5 min !"
End If
[COLOR="SeaGreen"]'einde edit[/COLOR]

End If
End Sub

 

[xX Da Master Xx]

Thx ik was ook al aan het proberen met die Else If maar nu heb ik het.
Probleem opgelost :thumb: