Mot du pass simple

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 763 fois - Téléchargée 35 fois

Contenu du snippet

Bah c'est trop simple comme code, mais ca peut proteger votre application aumoins de ceux qui se connaissent pas trop en programmation...en gros vous créez 2 formes (frm1 et frm2) ainsi que2 textbox(txt1 et txt2) et finalement un bouton(cmd1). Au dessus de "txt1" vous pouvez metre un Label "utilisateur" et un autre(mot du passe) audessus de (txt2). En executant le prog et en appuyant sur "cmd1" après avoir entre le nom d'utilisateur "moi" et le mot du passe "salut", la deuxième forme va apparaitre...une autre chose c que vous pouvez bien mettre dans
"Private Sub Form_Load()" la fonction " Frm1.Hide" ce qui va faire que la forme precedente va disparaitre.

Encore une fois, je sais que c'est TROP simple, ais pour qqn qui débute...bah ca peut être utile....

Source / Exemple :


'il vous faut créer 2 formes (frm1 et frm2) ainsi que 2 textBox(txt1 et txt2) et un bouton(cmd1)
'et finalement en executant le prog et en entrant le nom d'utilisateur "moi" dans dans txt1 ainsi que le pass "salut" dans txt2 et en apuyant sur cmd1, la 2e forme va apparaitre

Private Sub cmd1_Click()
    utilisateur = "moi" 'j'ai utilisé les variables(pass et Utilisateur) qui en verité ne sont pas necesaires, mais j'aime me compliquer la vie :P
    pass = "salut"
    If txt1.Text = utilisateur And txt2.Text = pass Then 'il faut que le nom d'utilisateur et le pass soient vrai pour que vous puissiez entrer dans la 2e forme, sinon vouz devez recommencer
    MsgBox ("Bien Venue!")
    Frm2.Show
    Else
    MsgBox ("reessayez!!") 'ici, après avoir recu le message "reessayez", tout texte est effacé des 2 "textbox"
    txt1.Text = ""
    txt2.Text = ""
    txt1.SetFocus
    End If
End Sub

Private Sub txt2_Change()
    If txt2 = "" Then 'de cette manière s'il n'ya pas du texte, le bouton "valider" ne fonctionjne pas
    cmd1.Enabled = False
    Else
      cmd1.Enabled = True
    End If
End Sub

A voir également

Ajouter un commentaire

Commentaires

Messages postés
1
Date d'inscription
dimanche 20 février 2005
Statut
Membre
Dernière intervention
21 mai 2009

merci
Messages postés
1
Date d'inscription
jeudi 22 janvier 2009
Statut
Membre
Dernière intervention
9 septembre 2008

Pas mal comme code car très facile pour un débutant mais et si l'on décide dans le future de changer le mot de passe à travers l'application comment si prendre?
merci.
Messages postés
13
Date d'inscription
samedi 11 janvier 2003
Statut
Membre
Dernière intervention
21 mai 2004

bin sa existe les vieu prog. :p
Messages postés
133
Date d'inscription
jeudi 27 mars 2003
Statut
Membre
Dernière intervention
27 février 2005
5
oui bah c tellement simple qu'en ouvrant l'exe avec bloc note [je sais pas propre] tu verras ton mot de passe en clair
el est po belle la vie
@+
Messages postés
368
Date d'inscription
dimanche 24 juin 2001
Statut
Membre
Dernière intervention
7 décembre 2015

Pour ceux ki cherchent en une seule ligne dans la sub Form_Load :
If InputBox("Entrez le mot de passe :", "Sécurité", "Mot de passe") <> "pass" Then MsgBox "Mot de passe incorrect !": End
Sinon le code est bon

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.