mot de pass sous vb6

Question

SVP aidez moi je voudrais faire un mit de pass a mon projet en vb6 dès l'execution du 1er feuille

spamito · Answer

Bonsoir Hajar,

Tu dois nous spécifier de quoi t'as besoin exactement et on pourra t'aider.

Renfield · Answer

dans ta Form de départ, ajoutes une zone de texte pour laquelle tu as définit un PasswordChar
ajoutes aussi un bouton qui va lancer la vérification du mot de passe saisi.

ce bouton lancera la suite du programme ou le fermera

bref. rien de bien complexe

cs_Exploreur · Answer

Salut,

Uhmmm....Tu as besoin d'une Form, un bouton, un textbox :

Propriété Name des contrôles :
La form >> Form1
Bouton >> Cmd_Valider
TextBox >> Txt_PassWord

Option Explicit


Dim sPassWord As String


Private Sub Cmd_Valider_Click()


' Test
  If sPassWord = StrConv(Txt_Password.Text, vbProperCase) Then
     MsgBox "Mot de passe correct !"
  Else
     MsgBox "Erreur de mot de passe !"
  End If
  
End Sub


Private Sub Form_Load()


' init variable
  sPassWord = "Toto"
  
End Sub

Attention, le mot de passe est en dur dans la source....


A+
Exploreur

 Linux a un noyau, Windows un pépin

Renfield · Answer

insensible, donc, à la casse (majuscules/minuscules) :

If sPassWord = StrConv(Txt_Password.Text, vbProperCase) Then

un StrComp ferait également l'affaire

cs_Exploreur · Answer

Bien noté...

A+
Exploreur

 Linux a un noyau, Windows un pépin

hajar205 · Answer

Bonjour a tous







Voila le code que j'ai écrit 

Private Sub cmdvalider_Click()
    Dim PassWord As String
    PassWord = "fatifati"


    If txtpass = PassWord Then
    fermer
   Else
      MsgBox "Erreur de mot de passe !"
   End If
  
 End Sub

Sub fermer()
frmacceuil.Show   'car je voudrais activer frm aceuil aprés  que lemot de ppass est correct mais ca ne marche pas 

aider moi SVP

hajar205 · Answer

je veut que le projet affiche la frmacceuil aprés a saisie de mot de pass





Merci d'avance

cs_Exploreur · Answer

Salut,

Private Sub cmdvalider_Click()
    Dim PassWord As String
    PassWord = "fatifati"
    If txtpass = PassWord Then
    frmacceuil.Show:Unload Me
    Else
      MsgBox "Erreur de mot de passe !"
   End If
  
 End Sub

A+
Exploreur

 Linux a un noyau, Windows un pépin

hajar205 · Answer

Bonjour a tous

cs_Exploreur · Answer

Mais encore...????

A+
Exploreur

 Linux a un noyau, Windows un pépin

hajar205 · Answer

Bonjour a tous

hajar205 · Answer

Padon Mr 

Mais lorsque je mettre valider la frmpass ne veut  pas fermer + qu'elle cache frmacceuil

Ca ne marche pas

Et merci bien

Renfield · Answer

frmPass.Show vbModal

hajar205 · Answer

frmacceuil apparait
mais frmpass  ne veut pas fermer + qu'elle declanche l'execution de frmacceuil

Renfield · Answer

http://blogs.codes-sources.com/renfield/archive/2008/05/05/vb6-bo-tes-de-dialogue-communication-inter-form.aspx

bon, écoutes, tu as tous les elements qu'il ne te reste désormais plus qu'a assembler...
remonte un peu tes manches, que diantre !

ci-dessus, un lien vers un peu de théorie

hajar205 · Answer

rien du tout Mr

Alors de commence au début 
J'ai  une application et je voudrait la protéger avec un mot de pass 

j'ai creer un frmpass contiennt deux Label (user et  mot pass) avec 
deux zones de text

+button valider et je cherche le code que voudrai saisie ds cmdvalider 

pour que lorsque je click sur execter frmpass s'affiche  

c'est tous

Renfield · Answer

mets frmPass comme Form à lancer au démarrage de ton application (dans les propriétés du projet)
et dans CmdValider_Click, testes le mot de passe, et lances une autre Form au besoin.

Si un jour tu te décide à te mettre au boulot, ou a lire les réponses qui te sont faites, tu verra que je t'ai filé du code exploitable, dans le lien que je t'ai donné plus tôt.

tout le monde t'a filé des solutions, au bout de deux pages, tu es toujours bloqué.

mets y un peu du tiens !

Mot de pass sous vb6

17 réponses

Votre réponse

Discussions similaires