Loger des utilisateurs dans son prgrm avec mot de passeRésolu

Question

j'aimerai savoir comment faire pour enregistrer dans un fichier les mot de passe et leur login pour avoir "leur session"??? (si vous comprenez pas ce que je cherche a faire je peu vous expliquer ya 0 pb ;)  )

si quelqu un de gentil pourai mexpliker sa serai bien cool

tchao a tous 

d'jack

cs_kojo · Accepted Answer

merci gars!!!

cs_CanisLupus · Answer

Pas comprendre.

Tu veux g&#233;rer les acc&#232;s &#224; une appli pour savoir si un utilisateur est habilit&#233; ou pas &#224; l'utiliser ?
Ou Quoi ?

Cordialement, CanisLupus

cs_ITALIA · Answer

Utilise une petite base de donn&#233;e ACCESS..il ni a rien de bien compliqu&#233;

It@li@

cs_kojo · Answer

ba par exemple dans un carnet d'adresse , pour avoir plusieurs utilisateurs pour ne pas avoir les meme personnes enregistrer....alors jvoudrai bien savoir ou stoker les login et mdp et comment

merci beaucoup

cs_ITALIA · Answer

Cr&#233;&#233; toi une Base ACCESS...

T'as ACCESS au moins !!

It@li@

cs_kojo · Answer

je ne croi pas jvais regarder moi j ai visual basic 6 entreprise edition mais j ai un amis il enregistrait dans un fichier texte'ou ini) mais il ne veux pas m expliquer il dis ke c mieu daprendre seul!!!

merci

cs_ITALIA · Answer

C'est vrai que tu peux enregistrer dans un .ini

Cr&#233;e toi un Fichier Param.ini &#224; cot&#233; de ton exe avec &#231;a dedans :

Ensuite cr&#233; un module dans ton projet et mets ce code :

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 & "" & "Param.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 & "" & "Param.ini"
WriteINI = WritePrivateProfileString(Entete, Variable, Valeur, Fichier)
    
End Function
-------------------------------------------------------------------
Pour ecrire dans ton .ini :
Call EcrireINI("Chemin", "Base", Combo1.Text)

Pour Lire dans ton .ini :

TaVariable = LireINI("Chemin", "Base")

It@li@

cs_ITALIA · Answer

Si OK coches reponse accept&#233;e

It@li@