prob mot de passeRésolu

Question

Bonjours j'ai un probl&#233;me . je voudrai que mon logiciel demande un mot de passe au premier lancement mai plu apres . est ce que cela est possible ? pouvez vous me dire comment?

PCPT · Accepted Answer

salut,
il faut soit &#233;crire dans le registre (mais perso j'aime pas), soit simplement faire un fichier txt ou ini.
premi&#232;re fois, le fichier ini contient Faux. s'il se logg bien, tu &#233;cris True et &#224; chaque fois que tu lances le Log, tu passes &#224; la 2e Form si True.
plein de sources sur les fichier ini, et bient&#244;t une suppl&#233;mentaire^^

++
PCPT   [AFCK]

capoueidiablo · Answer

Bonsoir,



tu n'as qu'a mettre une variable global dans ton programme qui est a
faux au d&#233;part et d&#232;s que l'utilisateur est loggu&#233; tu la met &#224; vrai

ensuite tu n'a plus qu'a tester cette Variable ;o)
--Capoueidiablo--

cs_sasu · Answer

ok est ce ke tu pourrai me donner un exemple stp je ss pas tr&#232;s douer voici mon code :

Private Sub Command1_Click()
If Text1.Text = "bonjours" Then
Form2.Show
Unload Me
Else
MsgBox "recommence", vbCritical, "Error"


End If


End Sub

capoueidiablo · Answer

Voila, tu a donc une variable logged accessible depuis toutes les fonctions de form1 (puisque private)

et la si tu &#233;cris log, tu te log et tu le reste 

si tu entre une commande qui n'existe pas il ne se passe rien

et si tu ecris delog, on revient a l'&#233;tat initiale





Private logged



Private Sub Command1_Click()

    If (Text1.Text "log" Or logged True) Then

        logged = True

        Debug.Print "ok"

    ElseIf (Text1.Text = "delog") Then

        logged = False

        Debug.Print "on est d&#233;loggu&#233;"

    Else

        logged = False

        Debug.Print "ko"

    End If

End Sub


--Capoueidiablo--

cs_sasu · Answer

ok mai si je faire le programme et si je le relance il me redemande de me logged mai je ve po je ve que kan je ferme et je relance je soi logged san kil me redemande mon pass

felsfr · Answer

Enregistre l'&#233;tat dans la base de registre par exemple..

cs_sasu · Answer

ok merci je vai essayer tt sa

capoueidiablo · Answer

En meme temsp je vois pas trop comment il repasse a faux apres ...

Et pis c'est pas tres securis&#233; de ne pas redemander le mot de passe a
chaque re-demarrage du logiciel, n'importe qui pourrait passer derriere
toi pendant que tu vas au pipi room et prendre des informations ...

enfin jdis ca mais je dis rien
--Capoueidiablo--

cs_sasu · Answer

ben c kon ma demander de le cree comme ca c pour ca ^^

PCPT · Answer

sasu -> continue ici stp. les Messages Priv&#233;s ne sont pas trop faits pour &#231;&#224;...
et n'oublie pas de clot&#251;rer le Topic

cs_sasu · Answer

oki 
ben la source c http://www.vbfrance.com/code.aspx?ID=32
je ss en vb6

PCPT · Answer

re, ' ---------- ' Form1 ' ---------- ' ' Option Explicit ' ' Private Sub Form_Load() ' on lit le fichier ini Dim sShowForm2 As String sShowForm2 = LireINI("Config", "ShowForm2") ' si True, on ouvre 2 et on quitte If CBool(sShowForm2) Then Form2.Show Unload Me End If End Sub ' ' Private Sub Command1_Click() If Text1.Text = "bonjours" Then ' on enregistre. ' ATTENTION, cela signifie que le seul MDP possible ' est celui indiqué ("bonjours"), et qu'on peut accéder ' à la suite en modifiant manuellement le fichier INI Call EcrireINI("Config", "ShowForm2", "1") Form2.Show Unload Me Else Text1.Text = "" MsgBox "Recommencez svp", vbCritical, "MDP incorrect" End If End Sub ' --------------------------------------------------- ' Mod_Ini.bas ' --------------------------------------------------- ' http://www.vbfrance.com/code.aspx?ID=32 ' NIX ' --------------------------------------------------- ' ' Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _ (ByVal lpApplicationName As String, ByVal lpKeyName As Any, _ ByVal lpDefault As String, ByVal lpReturnedString As String, _ ByVal nSize As Long, ByVal lpFileName As String) As Long ' Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" _ (ByVal lpApplicationName As String, ByVal lpKeyName As Any, _ ByVal lpString As Any, ByVal lpFileName As String) As Long ' ' Function LireINI(Entete As String, Variable As String) As String Dim Retour As String Fichier = App.Path & "" & App.EXEName & ".ini" Retour = String (255, Chr(0)) LireINI = Left$(Retour, GetPrivateProfileString(Entete, ByVal Variable, "", Retour, Len(Retour), Fichier)) End Function ' ' Function EcrireINI(Entete As String, Variable As String, Valeur As String) As String Fichier = App.Path & "" & App.EXEName & ".ini" WriteINI = WritePrivateProfileString(Entete, Variable, Valeur, Fichier) End Function ' et un fichier "Projet1.ini" (pour l'exemple...) dans le même répertoire, contenant : [Config] ShowForm2=0 Coloration syntaxique automatique [AFCK] @+ PCPT [AFCK]

cs_sasu · Answer

merci je vai tester ca tt de suite

Prob mot de passe

13 réponses

Discussions similaires