(Vb.net) Teste Mote de passe ???
ultra_chardo
-
holow1 Messages postés 739 Statut Membre -
holow1 Messages postés 739 Statut Membre -
Bonjour,
j'ai crée une fenêtre mot de passe contient deux zone de texte "Login" et "PassWord"
je veut faire un test sur les données saisie par l'utilisateur et si il entre trois fois les données erronée il sorte de l'application puit lui donne un message "Tentative d'accée dépasser"
voilà le code sources dans le boutton Valider
---------------------------------------------------------------------------------------------------------------------
Option Explicit On
Public Class Form1
Dim Login, Pass As String
Private Sub CmdValider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdValider.Click
Login = txtLogin.Text
Pass = txtPass.Text
Dim i As Integer
i = 0
Do
If Login = "Ultra_chardo" And Pass = "123456" Then
MsgBox("Accée autorisé")
Else
MsgBox("Vous avez entrer des donnée erronée")
End If
i = i + 1
txtLogin.Text = ""
txtPass.Text = ""
Loop While Login = "Ultra_chardo" And Pass = "123456" Or i = 2
If i = 3 Then
MsgBox("Tentative d'accée dépasser")
End
End If
End Sub
End Class
j'ai crée une fenêtre mot de passe contient deux zone de texte "Login" et "PassWord"
je veut faire un test sur les données saisie par l'utilisateur et si il entre trois fois les données erronée il sorte de l'application puit lui donne un message "Tentative d'accée dépasser"
voilà le code sources dans le boutton Valider
---------------------------------------------------------------------------------------------------------------------
Option Explicit On
Public Class Form1
Dim Login, Pass As String
Private Sub CmdValider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdValider.Click
Login = txtLogin.Text
Pass = txtPass.Text
Dim i As Integer
i = 0
Do
If Login = "Ultra_chardo" And Pass = "123456" Then
MsgBox("Accée autorisé")
Else
MsgBox("Vous avez entrer des donnée erronée")
End If
i = i + 1
txtLogin.Text = ""
txtPass.Text = ""
Loop While Login = "Ultra_chardo" And Pass = "123456" Or i = 2
If i = 3 Then
MsgBox("Tentative d'accée dépasser")
End
End If
End Sub
End Class
Configuration: Windows XP Internet Explorer 6.0
1 réponse
-
Bonjour,
Public Class Form1 Dim Login As String Dim Pass As String Dim i As Short = 0 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Login = TextBox1.Text Pass = TextBox2.Text If Login = "a" And Pass = "1" Then MsgBox("Accée autorisé") Else MsgBox("Vous avez entrer des donnée erronée") TextBox1.Text = "" TextBox2.Text = "" i += 1 End If MsgBox(i) If i = 3 Then MsgBox("Tentative d'accée dépasser") Application.Exit() End If End Sub End Class
