Problème gestion erreur login

**zitoune31** · 26/03/2011, 16h07

Bonjour,

je reviens vers vous afin de vous demander de bien vouloir m accorder un peu de votre temps et compétences d'ailleurs je vous en remercie par avance.
voilà la situation :

j'ai effectuer une form login qui lance d'autre form en fonction du mdp entrer, mais je n'arrive pas à gérer le fait qu'un mauvais mdp soit rentrer:
voici le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
 
Option Explicit On
Option Strict On
Public Class FrmLogin
    ' info :
    ' les frm suivi de ********** sont pas creer 
    '
    Private Sub FrmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox("Bonjour, bienvenue dans mon logiciel de partage de fichier via FTP. Si un identifiant ainsi qu'un mot de passe vous a été attribuer vous aurez accès à l'intégralité de mes fichiers, sans ça je vous invite à saisir dans mdp : <anonyme> et vous aurez accès à ce qu'on appel à un compte limité !(pour plus d'information Adresse de contact <email>.", vbInformation, "Z!T¤ùn€ @NT!C!P-W!N-32")
    End Sub
    Private Sub BtConexion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtConexion.Click
        'exemple pour 10 Utilisateurs
 
        Dim IdAdmin As String
        Dim MdpAdmin As String
        Dim MdpPlublik As String
        Dim Id(9) As String
        Dim Mdp(9) As String
        Dim ii As Integer
        Dim Autorisation As Boolean
 
        'tu rentre tous utilisateurs et les mot de passe dans les tableaux
        IdAdmin = "id" 'form admin
        'form famille
        Id(0) = "id"
        Id(1) = "id"
        Id(2) = "id"
        Id(3) = "id"
        Id(4) = "id"
        Id(5) = "id"
        Id(6) = "id"
        Id(7) = "id"
        Id(8) = "id"
        Id(9) = "id"
        '....
        MdpAdmin = "mdp" 'form admin
        MdpPlublik = "anonyme" 'form publik
        'form famille
        Mdp(0) = "mdp"
        Mdp(1) = "mdp"
        Mdp(2) = "mdp"
        Mdp(3) = "mdp"
        Mdp(4) = "mdp"
        Mdp(5) = "mdp"
        Mdp(6) = "mdp"
        Mdp(7) = "mdp"
        Mdp(8) = "mdp"
        Mdp(9) = "mdp"
        ' test pour tous les utilisateurs famille
        For ii = 0 To 9
            ' si le login est bon et si il corespond au mdp
            If ((Id(ii) = TextId.Text) And (Mdp(ii) = TextMdp.Text)) Then
                Autorisation = True
                ProgressBarLogin.Value = 0
                ProgressBarLogin.Value = 100
                MsgBox("Accès autoriser Bonjour, " + TextId.Text, vbInformation, "Z!T¤ùn€ @NT!C!P-W!N-32")
                ProgressBarLogin.Value = 0
                Me.Hide()
                FrmPrincipal.Show()
                Exit For   'dés que c'est bon tu quitte la boucle
                ' sinon tu n'autorise pas l'accés
            Else
                Autorisation = False
            End If
        Next
        '...................................................... 
        Me.Hide()
        ' test pour utilisateurs administrateur
        If ((IdAdmin = TextId.Text) And (MdpAdmin = TextMdp.Text)) Then
            FrmAdmin.Show()
            ' test pour utilisateurs publik
        ElseIf (TextMdp.Text = "anonyme") Then
            MsgBox("Accès autoriser Bonjour, " + TextId.Text, vbInformation, "Z!T¤ùn€ @NT!C!P-W!N-32")
            'lance FrmPublique si autoriser
            FrmRestrinte.Show()
        End If
 
    End Sub
 
    Private Sub BtQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtQuit.Click
        'ferme form
        End
    End Sub
 
    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBarLogin.Click
 
    End Sub
End Class

j'aurai penser que le MsgBox que je souhaite rajouter se situerai ici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
For ii = 0 To 9
            ' si le login est bon et si il corespond au mdp
            If ((Id(ii) = TextId.Text) And (Mdp(ii) = TextMdp.Text)) Then
                Autorisation = True
                ProgressBarLogin.Value = 0
                ProgressBarLogin.Value = 100
                MsgBox("Accès autoriser Bonjour, " + TextId.Text, vbInformation, "Z!T¤ùn€ @NT!C!P-W!N-32")
                ProgressBarLogin.Value = 0
                Me.Hide()
                FrmPrincipal.Show()
                Exit For   'dés que c'est bon tu quitte la boucle
                ' sinon tu n'autorise pas l'accés
            Else
                Autorisation = False
                MsbBox("accès denied") '*********message souhaiter********
            End If
        Next

mais ce n'est pas le cas.
en faite si je le situe ici le fait es que j'ai le Msgbox(" accès denied") qui s'affiche pour chaque teste des mdp moi j'aimerai uniquement qu'unMsgBox s'affiche une seule fois si un mdp erroné a été rentrer ?

**Sankasssss** · 26/03/2011, 16h24

Bonjour,
Avec ce code ça devrais passer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
 
Option Explicit On
Option Strict On
Public Class FrmLogin
    ' info :
    ' les frm suivi de ********** sont pas creer 
    '
    Private Sub FrmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox("Bonjour, bienvenue dans mon logiciel de partage de fichier via FTP. Si un identifiant ainsi qu'un mot de passe vous a été attribuer vous aurez accès à l'intégralité de mes fichiers, sans ça je vous invite à saisir dans mdp : <anonyme> et vous aurez accès à ce qu'on appel à un compte limité !(pour plus d'information Adresse de contact <email>.", vbInformation, "Z!T¤ùn€ @NT!C!P-W!N-32")
    End Sub
    Private Sub BtConexion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtConexion.Click
        'exemple pour 10 Utilisateurs
 
        Dim IdAdmin As String
        Dim MdpAdmin As String
        Dim MdpPlublik As String
        Dim Id(9) As String
        Dim Mdp(9) As String
        Dim ii As Integer
        Dim Autorisation As Boolean
 
        'tu rentre tous utilisateurs et les mot de passe dans les tableaux
        IdAdmin = "id" 'form admin
        'form famille
        Id(0) = "id"
        Id(1) = "id"
        Id(2) = "id"
        Id(3) = "id"
        Id(4) = "id"
        Id(5) = "id"
        Id(6) = "id"
        Id(7) = "id"
        Id(8) = "id"
        Id(9) = "id"
        '....
        MdpAdmin = "mdp" 'form admin
        MdpPlublik = "anonyme" 'form publik
        'form famille
        Mdp(0) = "mdp"
        Mdp(1) = "mdp"
        Mdp(2) = "mdp"
        Mdp(3) = "mdp"
        Mdp(4) = "mdp"
        Mdp(5) = "mdp"
        Mdp(6) = "mdp"
        Mdp(7) = "mdp"
        Mdp(8) = "mdp"
        Mdp(9) = "mdp"
        ' test pour tous les utilisateurs famille
        For ii = 0 To 9
            ' si le login est bon et si il corespond au mdp
            If ((Id(ii) = TextId.Text) And (Mdp(ii) = TextMdp.Text)) Then
                Autorisation = True
                ProgressBarLogin.Value = 0
                ProgressBarLogin.Value = 100
                MsgBox("Accès autoriser Bonjour, " + TextId.Text, vbInformation, "Z!T¤ùn€ @NT!C!P-W!N-32")
                ProgressBarLogin.Value = 0
                Me.Hide()
                FrmPrincipal.Show()
                Exit For   'dés que c'est bon tu quitte la boucle
                ' sinon tu n'autorise pas l'accés
            Else
                Autorisation = False
            End If
        Next
        '...................................................... 
        Me.Hide()
        ' test pour utilisateurs administrateur
        If ((IdAdmin = TextId.Text) And (MdpAdmin = TextMdp.Text)) Then
            FrmAdmin.Show()
            Autorisation = True
            ' test pour utilisateurs publik
        ElseIf (TextMdp.Text = "anonyme") Then
            Autorisation = True
            MsgBox("Accès autoriser Bonjour, " + TextId.Text, vbInformation, "Z!T¤ùn€ @NT!C!P-W!N-32")
            'lance FrmPublique si autoriser
            FrmRestrinte.Show()
        End If
 
        If not Autorisation Then
                MsbBox("accès denied") '*********message souhaiter********
        End If
 
    End Sub
 
    Private Sub BtQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtQuit.Click
        'ferme form
        End
    End Sub
 
    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBarLogin.Click
 
    End Sub
End Class

**zitoune31** · 26/03/2011, 16h58

bonjour,
je te remercie j'arrivais pas à trouver.

et petite question comment faire pour qu' àpres le MsgBox("denied")
la demande de saisie soit ré-affiché ?
sûrement une boucle je suppose ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
If Not Autorisation Then
            MsgBox("accès denied")
            'retourner à la demande de saisi
        End If

**Sankasssss** · 26/03/2011, 20h53

Une boucle ?!?!?
Tu fais un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Hide()

en plein milieu du code (moi je l'aurais mis uniquement si j'affiche une autre form mais chacun son truc ^^), "Me" étant ta form ça veut dire que tu la cache.
Donc si tu fais un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Show

après ton messageBox tu auras de nouveau la demande...

**zitoune31** · 26/03/2011, 21h21

Envoyé par Sankasssss

Une boucle ?!?!?

désoler je suis novice

Envoyé par Sankasssss

Tu fais un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Hide()

en plein milieu du code (moi je l'aurais mis uniquement si j'affiche une autre form mais chacun son truc ^^), "Me" étant ta form ça veut dire que tu la cache.

j'ai effectivement un me.Hide() mais suivi d'un lancement d'une nouvelle form

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Me.Hide()
FrmPrincipal.Show()

Envoyé par Sankasssss

Donc si tu fais un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Show

après ton messageBox tu auras de nouveau la demande...

je pensais pas si simple

dernièrement y a t-il une possibilité l'ors du

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Show

que les TextBox soit vide car il y a les id & mdp précédemment inscrit ?

**Sankasssss** · 26/03/2011, 21h24

Tu es vraiment débutant toi ^^

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
TextId.Text = ""
TextMdp.Text = ""

Je te conseil de lire le cours de Ph. Plasserre qui est vraiment bien fait pour débuter (je l'ai lu à mes début...)

**Sankasssss** · 26/03/2011, 21h29

Envoyé par zitoune31

j'ai effectivement un me.Hide() mais suivi d'un lancement d'une nouvelle form

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Me.Hide()
FrmPrincipal.Show()

Euh tu ne fais une nouvelle form que si tu as un utilisateur qui a mi un bon mdp :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 Me.Hide()
        ' test pour utilisateurs administrateur
        If ((IdAdmin = TextId.Text) And (MdpAdmin = TextMdp.Text)) Then
            FrmAdmin.Show()
            Autorisation = True
            ' test pour utilisateurs publik
        ElseIf (TextMdp.Text = "anonyme") Then
            Autorisation = True
            MsgBox("Accès autoriser Bonjour, " + TextId.Text, vbInformation, "Z!T¤ùn€ @NT!C!P-W!N-32")
            'lance FrmPublique si autoriser
            FrmRestrinte.Show()
        End If

Moi j'aurais fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
        ' test pour utilisateurs administrateur
        If ((IdAdmin = TextId.Text) And (MdpAdmin = TextMdp.Text)) Then
            Me.Hide()
            FrmAdmin.Show()
            Autorisation = True
            ' test pour utilisateurs publik
        ElseIf (TextMdp.Text = "anonyme") Then
            Autorisation = True
            MsgBox("Accès autoriser Bonjour, " + TextId.Text, vbInformation, "Z!T¤ùn€ @NT!C!P-W!N-32")
            'lance FrmPublique si autoriser
            Me.Hide()
            FrmRestrinte.Show()
        End If

Cela évite que si l'utilisateur a mi un mauvais mot de passe il ne voie ça form de demande disparaître et réapparaître après un message box

**zitoune31** · 27/03/2011, 10h03

Envoyé par zitoune31

dernièrement y a t-il une possibilité l'ors du

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Show

que les TextBox soit vide car il y a les id & mdp précédemment inscrit ?

[QUOTE=Sankasssss;5870012]Tu es vraiment débutant toi ^^

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
TextId.Text = ""
TextMdp.Text = ""

j'ai remarquer étant donner que j'ai passer la nuit à créer ma seconde form nomer : "restreinte" incluant un retour vers la form login pour un changement d'utilisateur mais la solution fonctionne pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Private Sub QuitterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuitterToolStripMenuItem.Click
        FrmLogin.Show()
        TextId.Text = ""
        TextMdp.Text = ""
        Close()
        End Sub

j'imagine que je doit indiquer que cela concerne la form login mais comment ?

**Sankasssss** · 26/03/2011, 21h40

J'ai changé un peu de ton code, c'est mieux comme ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
 
Option Explicit On
Option Strict On
Public Class FrmLogin
    ' info :
    ' les frm suivi de ********** sont pas creer 
    '
    Private Sub FrmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox("Bonjour, bienvenue dans mon logiciel de partage de fichier via FTP. Si un identifiant ainsi qu'un mot de passe vous a été attribuer vous aurez accès à l'intégralité de mes fichiers, sans ça je vous invite à saisir dans mdp : <anonyme> et vous aurez accès à ce qu'on appel à un compte limité !(pour plus d'information Adresse de contact <email>.", vbInformation, "Z!T¤ùn€ @NT!C!P-W!N-32")
    End Sub
    Private Sub BtConexion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtConexion.Click
        'exemple pour 10 Utilisateurs
 
        Dim IdAdmin As String
        Dim MdpAdmin As String
        Dim MdpPlublik As String
        Dim Id(9) As String
        Dim Mdp(9) As String
        Dim ii As Integer
        Dim Autorisation As Boolean
 
        'tu rentre tous utilisateurs et les mot de passe dans les tableaux
        IdAdmin = "id" 'form admin
        'form famille
        Id(0) = "id"
        Id(1) = "id"
        Id(2) = "id"
        Id(3) = "id"
        Id(4) = "id"
        Id(5) = "id"
        Id(6) = "id"
        Id(7) = "id"
        Id(8) = "id"
        Id(9) = "id"
        '....
        MdpAdmin = "mdp" 'form admin
        MdpPlublik = "anonyme" 'form publik
        'form famille
        Mdp(0) = "mdp"
        Mdp(1) = "mdp"
        Mdp(2) = "mdp"
        Mdp(3) = "mdp"
        Mdp(4) = "mdp"
        Mdp(5) = "mdp"
        Mdp(6) = "mdp"
        Mdp(7) = "mdp"
        Mdp(8) = "mdp"
        Mdp(9) = "mdp"
        ' test pour tous les utilisateurs famille
        For ii = 0 To 9
            ' si le login est bon et si il corespond au mdp
            If ((Id(ii) = TextId.Text) And (Mdp(ii) = TextMdp.Text)) Then
                Autorisation = True
                ProgressBarLogin.Value = 0
                ProgressBarLogin.Value = 100
                MsgBox("Accès autoriser Bonjour, " + TextId.Text, vbInformation, "Z!T¤ùn€ @NT!C!P-W!N-32")
                ProgressBarLogin.Value = 0
                Me.Hide()
                FrmPrincipal.Show()
                Exit For   'dés que c'est bon tu quitte la boucle
                ' sinon tu n'autorise pas l'accés
            Else
                Autorisation = False
            End If
        Next
        '...................................................... 
 
        ' test pour utilisateurs administrateur
        If ((IdAdmin = TextId.Text) And (MdpAdmin = TextMdp.Text)) Then
            Me.Hide()
            FrmAdmin.Show()
            Autorisation = True
            ' test pour utilisateurs publik
        ElseIf (TextMdp.Text = "anonyme") Then
            Autorisation = True
            MsgBox("Accès autoriser Bonjour, " + TextId.Text, vbInformation, "Z!T¤ùn€ @NT!C!P-W!N-32")
            'lance FrmPublique si autoriser
            Me.Hide()
            FrmRestrinte.Show()
        End If
 
        If not Autorisation Then
            MsbBox("accès denied") '*********message souhaiter********
            TextId.Text = ""
            TextMdp.Text = ""
        End If
 
    End Sub
 
    Private Sub BtQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtQuit.Click
        'ferme form
        End
    End Sub
 
    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBarLogin.Click
 
    End Sub
End Class

Bienvenu dans le monde de la programmation

**zitoune31** · 26/03/2011, 21h48

rien à redire MERCI

je vois que tu a rajouter en faite 2 Autorisation = True pour le lancement des autres form (je n'avais pas encore tester leur lancement

en tout cas merci à toi

**Sankasssss** · 26/03/2011, 21h53

Tu es obligé de rajouter ces 2 Autorisation = True aussi non tu aurais le message "accès denied" en rentrant sur les autres form ce qui serait un "bug"

en tout cas merci à toi.

Avec plaisir

mais fais toi plaisir et va lire le cours que je t'ai mi, il est vraiment exellant et tu ne pourras te faire que du bien

Sur ce, bon code

**zitoune31** · 26/03/2011, 21h59

Envoyé par Sankasssss

Tu es obligé de rajouter ces 2 Autorisation = True aussi non tu aurais le message "accès denied" en rentrant sur les autres form ce qui serait un "bug"

Avec plaisir

mais fais toi plaisir et va lire le cours que je t'ai mi, il est vraiment exellant et tu ne pourras te faire que du bien

Sur ce, bon code

encore merci de l'info et effectivement j'irai également m'instruire étant donné que j'en es besoin !!!