begin process at 2013 06 20 11:38:07
  Trouver un code source :
 
dans
 
Accueil > 

Tutoriels

 > 

Formulaire

 > Comment créer un système de login en VB.net

Comment créer un système de login en VB.net


 Information sur le tutoriel

Note :
Aucune note

 Description

Dans ce tutoriel, je vais vous apprendre à créer un système de login en VB.net.                                                                
                                                                                                                          
                                                                                                        
                                                                                                    
                                                                  

Tutorial

Comment créer un système de login en VB.NET ?

  • Système simple

Tout d’abord, commencez par créer une fenêtre ou vous ajouterez :

  1. Deux Label « Pseudo » et « Mot de passe »
  2. Deux TextBox à côté des label
  3. Un bouton


Ensuite, double-cliquez sur le bouton(le code).

Tapez ceci:

If TextBox1.Text = “votre nom d’utilisateur” And TextBox2.Text = “votre mot de passe” Then

MsgBox(Correct)

Else

MsgBox(Incorrect)

End If

Voilà, c’est bon.

  • A partir d’un fichier

Imaginons que vous avez un fichier comme ça.

Utilisateur1:motdepasse

Utilisateur2:motdepasse2

Refaites une fenêtre comme avant et dans le code tapez çà :

Dim rd As New System.IO.StreamReader(C:\monfichier.txt”)

Dim fich1 As String = rd.ReadAllLines()

Dim cestbon As Boolean = False

For Each utilisateur As String In fich1

Dim usr As String

Dim mdp As String

If TextBox1.Text = usr And TextBox2.Text = mdp Then

Cestbon = True

Exit For

Else

Cestbon = False

End If

Next

If cestbon Then

MsgBox(“Correct“)

Else

MsgBox(“Incorrect“)

End If




Commentaires

Commentaire de jordane45 le 13/02/2013 13:14:04

Bonjour,

Sans vouloir être désagréable, en lisant le titre j'esperais trouver quelque chose de plus "poussé"... Password Crypté.. utilisation de class...etc....

La il n'est question QUE de lire un fichier texte. ( avec un code faux au passage..)

ReadAllLines fait partie de FILE => File.ReadAllLines(MonFIchierTXT)

Dans ta boucle tu déclare USR et MDP... dans jamais les initialiser...
    Dim usr As String
    Dim mdp As String
    If TextBox1.Text = usr And TextBox2.Text = mdp Then
     ......


Je te laisse chercher la correction a y faire ... !!


Cordialement,
Jordane

Commentaire de jordane45 le 14/02/2013 13:52:30

Bonjour,

il semble qu'il y ai quelques erreurs dans ce code ......

- Usr et Mdp sont déclarés mais jamais initialisés...( donc toujours à vide..)
- ReadAllLines() ne fait pas parti de Streamreader mais de File.

A la rigueur ce "tuto" devrait se nomer lecture d'une textbox et d'un fichier texte... tout au plus..

Vu le titre je m'attendais à quelque chose de plus "utile" ...
-> utilisation de class, cryptage des passwords... utilisation d'un BDD ou  au moins des MySettings pour stocker les infos..


Enfin bon.. il en faut pour tous les niveaux... quoi qu'il en soit, il faudrait déjà commencer par corriger le code
Après, même en gardant cette simplicité, il y a largement de quoi améliorer ce code..( recherche dans un tableau autrement que par une boulce for each.. par exemple.. )

Commentaire de Adn56 le 21/02/2013 18:36:30

100% d'accord avec jordane45, franchement faut pas poster nawak non plus.
Autre exemple tu lis un tableau() dans une string toi ?
ralala en plus niveau sécu y'a qu'a ouvir le fichier texte avec le notepad pour avoir accés et puis basta. Je ne parle même pas des gestions d'erreur si le fichier n'éxiste pas ou pire s'il est vide lol

fais au mois un truc du style :
try
Dim Sr As New StreamReader(Application.StartupPath & "\destination_secu.txt")
'ou mieux avec un Using Sr as new... qui dispose à la fermeture du end using
        Dim destinataire As New List(Of String)

        ' lecture compléte des fichiers
              While Not Sr.EndOfStream()
            destinataire.Add(Sr.ReadLine())
        End While
        Dr.Close()
        Dr.Dispose()
catch
... end blabla

bonne prog

Commentaire de joypoet le 10/04/2013 02:44:21

salut tlm
et si j'ai les utilisateur et les mdp sur une base donnes access
qu'est ke dois je faire sachant que je suis un debutant
pourquoi ce code marche pas (me donne erreur sur mdp.utilisateur : je veux qu'il compare le mdp que j'ai entre dans VB avec le mdp de l'utilisateur entre dans ACCESS

Private Sub OK_Click()
If pseudo = "" Or mdp = "" Then
MsgBox "remplir les champs "
End If
With Adodc2.Recordset
.MoveFirst
.Find ("pseudo =") & utilisateur
If .EOF Then
MsgBox "utilisateur inexistant"
Else
.Find ("mdp=") & mdp.utilisateur
If .EOF Then
MsgBox "mdp incorrect"
Else
Form1.Hide
Menu.Show
End If
End If
End With
End Sub

 Ajouter un commentaire




Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Juin 2013
LMMJVSD
     12
3456789
10111213141516
17181920212223
24252627282930

Consulter la suite du CalendriCode

Photothèque

A découvrir



 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,218 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales