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 |
Partager