Possibilité 2taper un pwd ne depasse pa 3fois
Fermé
ena87
Messages postés
1
Date d'inscription
mercredi 17 juin 2009
Statut
Membre
Dernière intervention
17 juin 2009
-
17 juin 2009 à 15:15
Utilisateur anonyme - 17 juin 2009 à 16:54
Utilisateur anonyme - 17 juin 2009 à 16:54
A voir également:
- Possibilité 2taper un pwd ne depasse pa 3fois
- Pwd mac - Guide
- Cmos pwd - Télécharger - Divers Utilitaires
- Tu as dépassé la limite de fréquence de retrait tiktok ✓ - Forum Consommation & Internet
- Temps limite de connexion au serveur dépassé thunderbird ✓ - Forum gestion du temps
- Pourquoi ma batterie ne dépasse pas les 80% de charge ? ✓ - Forum Matériel & Système
3 réponses
Utilisateur anonyme
17 juin 2009 à 15:37
17 juin 2009 à 15:37
Salut crée une variable que tu incrémente de + 1 a chaque erreur ;
tu test si la condition est égale a 3 alors tu quittes, sinon tu incrémente de + 1
jusqu'a que ta variable soit égale a trois
tu test si la condition est égale a 3 alors tu quittes, sinon tu incrémente de + 1
jusqu'a que ta variable soit égale a trois
Alkaaran
Messages postés
285
Date d'inscription
dimanche 20 mai 2007
Statut
Membre
Dernière intervention
3 novembre 2009
37
17 juin 2009 à 15:39
17 juin 2009 à 15:39
Met en place un compteur, je ne connais pas plus que ca la syntaxe VB.Net (je suis encore au VB6 -_-) mais en algorithme tu peux faire ca :
Dim compteur As integer
compteur = 0
Do
\tIf compteur > 3 Then
Application.Quit
Else
mdp = InputBox( "Entrez le mdp (" & (3 - compteur) & " essais restants)" )
End If
compteur = compteur + 1
Loop Until mdp <> "mot_de_passe_bon"
Un truc dans le genre... :)
Dim compteur As integer
compteur = 0
Do
\tIf compteur > 3 Then
Application.Quit
Else
mdp = InputBox( "Entrez le mdp (" & (3 - compteur) & " essais restants)" )
End If
compteur = compteur + 1
Loop Until mdp <> "mot_de_passe_bon"
Un truc dans le genre... :)
Utilisateur anonyme
17 juin 2009 à 16:54
17 juin 2009 à 16:54
j ai utiliser le code en vb6
mais la méthode en dessous
****************************
Static i As Integer
rs.Open "select * from utilisateur where login='" & Trim(cbologin.Text) & "' and pw='" & Trim(txtpw.Text) & "'", cn
If Not rs.EOF Then
frmacceuil.Show
Unload Me
Else
i = i + 1
MsgBox "le login ou le mot de passe incorrecte"
txtpw.Text = ""
cbologin.SetFocus
End If
If i = 3 Then End
rs.Close
Set rs = Nothing
**************************
mais la méthode en dessous
****************************
Static i As Integer
rs.Open "select * from utilisateur where login='" & Trim(cbologin.Text) & "' and pw='" & Trim(txtpw.Text) & "'", cn
If Not rs.EOF Then
frmacceuil.Show
Unload Me
Else
i = i + 1
MsgBox "le login ou le mot de passe incorrecte"
txtpw.Text = ""
cbologin.SetFocus
End If
If i = 3 Then End
rs.Close
Set rs = Nothing
**************************