[Visual Basic]Systeme de connexion / inscription

    Publicités

Users Who Are Viewing This Thread (Total: 1, Members: 0, Guests: 1)

proto57400

Membre
Sep 1, 2012
26
0
206
:welcome:

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 connexion

1.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 :
En résumé , vous allez sur la barre des menus , vous cliquer sur Projets , Propriété de ..... Ensuite vous allez dans l’onglet Paramètres et vous allez créer 3 autre paramètre que vous nommerai : Username , Password et Email .

3.Code de la Form1) C'est la que le code va commençait , donc voici 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
Vous pouvez laissez les '.... , ceci n'influencera pas le code .
----------------------------------------------------------------
FORM 2
Vous allez créer une Form2 qui servira de Form D'inscription

1.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 :
Public 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")
'Email
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
Insérez
Imports System.Net.Mail
Imports System.Net
Avant la Public ClassForm2
----------------------------------------------------------------
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:
Oct 18, 2011
1,063
0
942
Alsace
Pas mal c'est juste dommage qu'il ne viens pas de toi il me semble et qu'il ne marche que sur son propre ordi ...
 

proto57400

Membre
Sep 1, 2012
26
0
206
A , sa je savait pas ;s
Sinon si je rajoute une DLL qui enregistre des paramètre , sa peut marcher ?
 

Ben

Master Chief
V
Ancien staff
Mar 3, 2011
4,069
3
944
Un peut partout.
Alors juste pour info "My.Settings" donc les paramètres de l'application peuvent être utilisé partout et pas seulement sur un PC, je sais pas d’où vous tenez cette info edgekiller & Evaelis.

Ps: le " My.Settings.Save()" n'est pas nécessaire c'est sauvegardé automatiquement une fois que tu lui donne une nouvelle valeur.

@proto57400, avec une dll ça marche aussi.

Ben non, faudrais plutot passer par une Base De donné SQL ou ftp ...
T'a pas un peux fumé toi ? xD
 

Youth973

Marchand
V
Dec 31, 2010
1,216
6
944
Pas mal :)
Sa se combinerai bien avec un système de licence :)
Pour bien vendre ses programmes :biere:
 
Oct 18, 2011
1,063
0
942
Alsace
Alors juste pour info "My.Settings" donc les paramètres de l'application peuvent être utilisé partout et pas seulement sur un PC, je sais pas d’où vous tenez cette info edgekiller & Evaelis.

Ps: le " My.Settings.Save()" n'est pas nécessaire c'est sauvegardé automatiquement une fois que tu lui donne une nouvelle valeur.

@proto57400, avec une dll ça marche aussi.


T'a pas un peux fumé toi ? xD

Alors déjà, pour ce qui à des My.Settings, je suis d'accord qu'on peu les utiliser sur plusieurs PC mais si tu t'enregistre sur un pc et que tu ouvre le logiciel sur un autre pc, ton compte n'existeras pas ...

Et pour se qui est de la base de donné je comprend pas pourquoi j'ai fumé un truc :D ? C'est possible de le faire ;)

---------- Message ajouté à 12h58 ---------- Le message précédent était à 12h55 ----------

Et aussi, je trouve pas vraiment que c'est un tuto, c'est plutôt du c/c ...
 

Evaelis

La Voix de la Sagesse
V
Ancien staff
Apr 28, 2010
22,949
468
1,699
Valhalla
Alors juste pour info "My.Settings" donc les paramètres de l'application peuvent être utilisé partout et pas seulement sur un PC, je sais pas d’où vous tenez cette info edgekiller & Evaelis.

Ps: le " My.Settings.Save()" n'est pas nécessaire c'est sauvegardé automatiquement une fois que tu lui donne une nouvelle valeur.

@proto57400, avec une dll ça marche aussi.


T'a pas un peux fumé toi ? xD

La base de donnée Mysql ou le ftp (FTP bof) c'est pas une idée bête.
Ensuite le My.setting est utilisable sur un pc (Transportable) mais n'est pas comme une BDD