Mot de passe pour multi utilisateur
sisi1980
Messages postés
8
Date d'inscription
samedi 29 mars 2003
Statut
Membre
Dernière intervention
29 octobre 2009
-
30 avril 2003 à 11:53
K@zuya Messages postés 306 Date d'inscription vendredi 21 février 2003 Statut Membre Dernière intervention 15 février 2016 - 30 avril 2003 à 12:59
K@zuya Messages postés 306 Date d'inscription vendredi 21 février 2003 Statut Membre Dernière intervention 15 février 2016 - 30 avril 2003 à 12:59
A voir également:
- Mot de passe pour multi utilisateur
- Mot aléatoire ✓ - Forum C
- Mélangeur de mot - Forum PHP
- Mélanger les lettres d'un mot - Forum Javascript / DHTML
- Mot de passe aleatoire - Conseils pratiques -PHP
- Mélanger un mot ✓ - Forum Delphi / Pascal
1 réponse
K@zuya
Messages postés
306
Date d'inscription
vendredi 21 février 2003
Statut
Membre
Dernière intervention
15 février 2016
30 avril 2003 à 12:59
30 avril 2003 à 12:59
déja, tu devrai déclarer un type
Private Type User
>>>Login as string
>>>Password as String
End Type
dim Usilisateur(1 to 50) as User
Puis quand un utilisateur s'enregistre, tu enregisre ses paramètres comme sa:
Utilisateur(NbUtilisateurs + 1).Login = inputbox("Veuillez _ entrer votre login","Enregistrement")
Utilisateur(NbUtilisateurs + 1).Password = inputbox("Veuillez _ entrer votre mot de pass","Enregistrement")
et enfin, por tester si un utilisateur tape le bon mot de pass, tu fait:
dim val as integer
for val = 1 to NbUtilisateurs
>>>if Utilisateur(val).login = text1.text then
>>>>>>if Utilisateur(val).Password = text2.text then
>>>>>>>>> call msgbox("Password Correct",vbOKonly,"Test_
du password")
>>>>>>else
>>>>>>>>> call msgbox("Mauvais password",vbOKonly,"Test
du password")
>>>>>>end if
>>>end if
next
K@zuya 8-)
Private Type User
>>>Login as string
>>>Password as String
End Type
dim Usilisateur(1 to 50) as User
Puis quand un utilisateur s'enregistre, tu enregisre ses paramètres comme sa:
Utilisateur(NbUtilisateurs + 1).Login = inputbox("Veuillez _ entrer votre login","Enregistrement")
Utilisateur(NbUtilisateurs + 1).Password = inputbox("Veuillez _ entrer votre mot de pass","Enregistrement")
et enfin, por tester si un utilisateur tape le bon mot de pass, tu fait:
dim val as integer
for val = 1 to NbUtilisateurs
>>>if Utilisateur(val).login = text1.text then
>>>>>>if Utilisateur(val).Password = text2.text then
>>>>>>>>> call msgbox("Password Correct",vbOKonly,"Test_
du password")
>>>>>>else
>>>>>>>>> call msgbox("Mauvais password",vbOKonly,"Test
du password")
>>>>>>end if
>>>end if
next
K@zuya 8-)