Mot de passe en VB6
Résolu
lionyz
Messages postés
62
Date d'inscription
samedi 10 janvier 2009
Statut
Membre
Dernière intervention
30 octobre 2012
-
6 juin 2009 à 23:10
castou60 Messages postés 28 Date d'inscription mercredi 1 décembre 2010 Statut Membre Dernière intervention 18 novembre 2012 - 29 sept. 2011 à 19:10
castou60 Messages postés 28 Date d'inscription mercredi 1 décembre 2010 Statut Membre Dernière intervention 18 novembre 2012 - 29 sept. 2011 à 19:10
2 réponses
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
6 juin 2009 à 23:20
6 juin 2009 à 23:20
page d'accueil :
http://www.vbfrance.com/codes/MOT-PASS-AVEC-POSSIBILITE-MULTIUSER_50118.aspx
bonjour également
http://www.vbfrance.com/codes/MOT-PASS-AVEC-POSSIBILITE-MULTIUSER_50118.aspx
bonjour également
castou60
Messages postés
28
Date d'inscription
mercredi 1 décembre 2010
Statut
Membre
Dernière intervention
18 novembre 2012
29 sept. 2011 à 19:10
29 sept. 2011 à 19:10
Castou60
dim pwd,pws
pwd="castou60"
pws=inputbox("Entrer votre mot de passe","Test de mot de passe")&pws
if pws=pwd then bon()
if pws=pws then faux()
Function bon()
wscript.echo("mot de passe correct")
wscript.quit 0
End function
Function faux()
wscript.echo("Votre mot de passe ")&pws,(" est incorrect")
pws=empty : pwd=empty
'by ©*castou60*©
wscript.quit 0
End function
Essais ce code sa fonctionne très bien, ceci est le code que j'utilise moi meme c'est clair,simple et facile à comprendre normal
dim pwd,pws
pwd="castou60"
pws=inputbox("Entrer votre mot de passe","Test de mot de passe")&pws
if pws=pwd then bon()
if pws=pws then faux()
Function bon()
wscript.echo("mot de passe correct")
wscript.quit 0
End function
Function faux()
wscript.echo("Votre mot de passe ")&pws,(" est incorrect")
pws=empty : pwd=empty
'by ©*castou60*©
wscript.quit 0
End function
Essais ce code sa fonctionne très bien, ceci est le code que j'utilise moi meme c'est clair,simple et facile à comprendre normal