bonjour,

comme d'habitude soyer indulgent avec mes compétence si peu nombreuses.
ci-dessous vous trouverez le code de mon form login (sécuriter) dont voici les problèmes même si je pense que les connaisseur les remarqueront d'eux-même .
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
Option Explicit On
Option Strict On
Public Class Sécuriter
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "id" And TextBox2.Text = "mdp" Then 'id & mdp admin
            MsgBox("Session @dministrateur  Bonjour, Z!T¤ùN£_@nT!C!P-W!n-32", vbExclamation, "Z!T¤ùn€ @NT!C!P-W!N-32")
            Me.Hide()
            Admin.Show()
        Else
            If TextBox2.Text = "anonyme" Then
                MsgBox("Session Publique  Bonjour, " + TextBox1.Text, vbExclamation, "Z!T¤ùn€ @NT!C!P-W!N-32")
                Me.Hide()
                publique.Show()
            End If
        End If
        Dim Id As String
        Dim Autorisation As Boolean
 
        Id = ""
        Autorisation = False
        Id = TextBox1.Text
        Select Case Id
            Case "id", "id", "id", "id", "id" 'mes utilisateur
                Autorisation = True
        End Select
        Autorisation = False
 
        Dim MotDePasse As String
        Dim Autorisationa As Boolean
 
        MotDePasse = ""
        Autorisationa = False
        MotDePasse = TextBox2.Text
        Select Case MotDePasse
            Case "mdp", "mdp", "mdp", "mdp" 'les mdp attribuer
                Autorisationa = True
                MsgBox("Accès autoriser Bonjour, " + TextBox1.Text, vbExclamation, "Z!T¤ùn€ @NT!C!P-W!N-32")
                Me.Hide()
                famille.Show()
        End Select
        Autorisationa = False
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        MsgBox("Bonjour, afin de vous identifier merci de saisir votre prénom ainsi que le Mot De Passe qui vous a été communiquer. Dans le cas où aucun Mot De Passe vous a été attribuer veuillez indiquer dans celui-ci : anonyme, ", vbInformation, "Z!T¤ùn€ @NT!C!P-W!N-32")
    End Sub
End Class
donc en faite pour ceux qui ont saisi, malheureusement les ID là serve cas faire beau car seul le respect des MDP fonctionne
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
Dim Id As String
        Dim Autorisation As Boolean
 
        Id = ""
        Autorisation = False
        Id = TextBox1.Text
        Select Case Id
            Case "id", "id", "id", "id", "id" 'mes utilisateur
                Autorisation = True
        End Select
        Autorisation = False
 
        Dim MotDePasse As String
        Dim Autorisationa As Boolean
 
        MotDePasse = ""
        Autorisationa = False
        MotDePasse = TextBox2.Text
        Select Case MotDePasse
            Case "mdp", "mdp", "mdp", "mdp" 'les mdp attribuer
                Autorisationa = True
                MsgBox("Accès autoriser Bonjour, " + TextBox1.Text, vbExclamation, "Z!T¤ùn€ @NT!C!P-W!N-32")
                Me.Hide()
                famille.Show()
        End Select
        Autorisationa = False
    End Sub
pouvez-vous m'aider ??