MOT DU PASS SIMPLE

---

Commentaire sur cette source (3)
Ajouter un commentaire et/ou une note

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

'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

• COFFRE-FORT
• LES ACL (ACCESS CONTROL LIST ) STANDARD EN VB
• SIMULATION D'UNE CONNEXION NETBUS
• TRACE ERASE
• VBSPAMCHECK : RÉCUPÉRER LES COURRIELS LÉGITIMES DANS UNE BASE DE SPAM DBX