Je créer ce tuto pour vous montrer comment créer un système de connexion / inscription pour votre logiciel Visual Basic !
----------------------------------------------------------------
Difficulté = llllllllll
Pour votre confort je décrirait chaque partie du code .
Donc vous allez créer une Form1 que vous nommerai comme vous voulez
----------------------------------------------------------------
FORM 1
La Form1 servira de Form de connexion1.La GUI) Pour cet partie , je vais faire un screen :
Il vous faut :
- 2 Label
- 1 LinkLabel
- 2 TextBox
- 1 Bouton
Ce qui vous donnent :
Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
2.Les données d'inscription) Alors , je vais vous expliquer en screen cette étape :
3.Code de la Form1) C'est la que le code va commençait , donc voici le code :
Vous pouvez laissez les '.... , ceci n'influencera pas le code .Public Class Form1
Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
Form2.Show() 'Affiche la Form2
Me.Hide() 'Cache la Form1
'Ceci ouvrira la Form2 qui servira a l'inscription
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.TextBox1.Text = My.Settings.username 'Données du nom de compte
Me.TextBox2.Text = My.Settings.password 'Données du mot de passe
'Ceci verifira les données d'inscriptions
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = My.Settings.nom And TextBox2.Text = My.Settings.mdp Then 'Si les informations des textbox sont justes , la Form3 s'affiche
Form3.Show() 'Affiche la Form3
Me.Hide() 'Cache la Form1
Else ' Sinon
MsgBox("Nom De Compte ou Mot De Passe Incorrecte !", vbOKOnly + vbCritical, ("Erreur de connexion")) 'MsgBox d'erreur
End If
'Ceci affichera la form3 si les informations sont correcte ou une msgbox d'erreur si incorrecte
End Sub
End Class
----------------------------------------------------------------
FORM 2
Vous allez créer une Form2 qui servira de Form D'inscription1.LA GUI) Un petit screen comme d'hab , mais placer comme vous voulez bien sur , c'est juste un exemple
- 3 Label
- 3 TextBox
- 1 bouton
Ce qui vous donnent :
Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
2.Code de la Form2) Voici le code , toujours expliquer Bien sur :
----------------------------------------------------------------Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
My.Settings.Username = TextBox1.Text 'Sauvegarde le contenue de la TextBox dans le parametres Username
My.Settings.Save() 'Sauvegarde
My.Settings.Password = TextBox2.Text 'Sauvegarde le contenue de la TextBox dans le parametres Password
My.Settings.Save() ' Sauvegarde
My.Settings.Email = TextBox3.Text 'Sauvegarde le contenue de la TextBox dans le parametres Email
My.Settings.Save() ' Sauvegarde
MsgBox("Inscription réussi !", vbOKOnly + vbInformation, ("Validation d'inscription")) 'MsgBox de validation
Me.Hide() 'Cache la Form2
Form1.Show() ' Ouvre la Form1
'Ceci enregistre les informations du compte et réouvre la Form1 de connexion
End Sub
End Class
FORM 3
Vous allez créer une Form3 qui sera la Form qui s'affichera après la connexion au logiciel .Après a vous de choisir la GUI , le codage est tout .
----------------------------------------------------------------
Un Ptit Bonus
Le bonus servira a envoyer un e-mail de bienvenue au nouveau membre ;)Voici la partie du code a insérez dans le bouton "Inscription" de la Form2 :
InsérezPublic Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
My.Settings.nom = TextBox1.Text
My.Settings.Save()
My.Settings.mdp = TextBox2.Text
My.Settings.Save()
My.Settings.mail = TextBox3.Text
My.Settings.Save()
MsgBox("Inscription réussi !", vbOKOnly + vbInformation, ("Validation d'inscription"))
Me.Hide()
Form1.Show()
'La partie d'avant est le code qui doit être obligatoirement insérez
'La partie d'en dessous permet d'envoyer un e-mail au nouveau
Dim MyMailMessage As New MailMessage()
Dim SMTPServer As New SmtpClient("smtp.gmail.com")
MyMailMessage.From = New MailAddress(TextBox3.Text) 'Destinataire
MyMailMessage.To.Add("VotreAdresseMail@gmail") 'Expéditeur
MyMailMessage.Subject = ("SujetQueVousVoulez") 'Sujet
MyMailMessage.Body = ("MessageQueVousVoulez") 'Corps
'SMTP
SMTPServer.Port = ("587")
SMTPServer.Credentials = New System.Net.NetworkCredential("VotreAdresseMail@gmail", "VotreMotDePasseGmail") 'Email et Mot de passe
SMTPServer.EnableSsl = True
Try
SMTPServer.Send(MyMailMessage) 'Envoi
Catch ex As Exception
End Try
End Sub
End Class
Avant la Public ClassForm2Imports System.Net.Mail
Imports System.Net
----------------------------------------------------------------
Voilà votre petit système d'inscription qui sera utile pour vos programmes :)
PS : Si il y a un problème dans My.Settings.Machin , enlever la majuscule a "Machin" .
A Bientôt pour un nouveau tuto !
Last edited: