(Vb.net) Teste Mote de passe ???

Fermé

ultra_chardo - 19 janv. 2010 à 15:44
holow1 Messages postés 680 Date d'inscription lundi 21 décembre 2009 Statut Membre Dernière intervention 7 décembre 2012 - 19 janv. 2010 à 20:58

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

A voir également:

(Vb.net) Teste Mote de passe ???
Piratage facebook changer mot de passe - Guide
Voir mot de passe wifi android - Guide
Mettre un mot de passe sur un dossier - Guide
Mot de passe administrateur - Guide
Mot de passe oublié outlook - Guide

1 réponse

Réponse 1 / 1

holow1 Messages postés 680 Date d'inscription lundi 21 décembre 2009 Statut Membre Dernière intervention 7 décembre 2012 71
19 janv. 2010 à 20:58

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

Discussions similaires

Mot de passe administrateur Freebox : où le trouver ?

Discussions similaires

Newsletters