Soyez le premier à donner votre avis sur cette source.
Vue 12 830 fois - Téléchargée 956 fois
Option Explicit Private Sub Form_Activate() 'Placement du Setfocus dans la TextBox txt_mot_de_passe.SetFocus 'Affiche l'image du niveau de sécurité img_niveau_securite_vide.Visible = True End Sub Private Sub txt_mot_de_passe_Change() 'Déclarations de variables Dim str_mot_passe As String 'Variable qui va reccueillir le mot de passe Dim int_niveau As Integer 'Variable qui va reccueillir le niveau de sécurité 'Affectation de la boîte de texte à la variable str_mot_passe = txt_mot_de_passe.Text 'Initialisation de la variable int_niveau = 0 'Test s'il y a des chiffres dans le mot de passe If str_mot_passe Like "*#*" Then int_niveau = int_niveau + 1 'Test s'il y a des majuscules dans le mot de passe If str_mot_passe Like "*[A-Z]*" Then int_niveau = int_niveau + 1 'Test s'il y a des minuscules dans le mot de passe If str_mot_passe Like "*[a-z]*" Then int_niveau = int_niveau + 1 'Test pour savoir si la boîte de texte est vide si oui on affiche l'image du niveau 'de sécurité vide If txt_mot_de_passe.Text = "" Then 'MsgBox "Attention la sécurité de votre mot de passe est élevé !" img_niveau_securite_vide.Visible = True img_niveau_securite_faible.Visible = False img_niveau_securite_moyen.Visible = False img_niveau_securite_fort.Visible = False End If If Mid(str_mot_passe, 1) > 0 Then If int_niveau = 1 Then 'MsgBox "Attention la sécurité de votre mot de passe est faible !" img_niveau_securite_faible.Visible = True img_niveau_securite_vide.Visible = False img_niveau_securite_moyen.Visible = False img_niveau_securite_fort.Visible = False ElseIf int_niveau = 2 Then 'MsgBox "Attention la sécurité de votre mot de passe est moyen !" img_niveau_securite_moyen.Visible = True img_niveau_securite_vide.Visible = False img_niveau_securite_faible.Visible = False img_niveau_securite_fort.Visible = False ElseIf int_niveau = 3 Then 'MsgBox "Attention la sécurité de votre mot de passe est élevé !" img_niveau_securite_fort.Visible = True img_niveau_securite_vide.Visible = False img_niveau_securite_faible.Visible = False img_niveau_securite_moyen.Visible = False End If End If End Sub
12 sept. 2008 à 14:39
9 sept. 2008 à 14:41
Titpeanut, pourrais-tu me donner le lien de ta source car la recherche ne fonctionne pas bien à mon avis !!!!
Merci
9 sept. 2008 à 14:22
8 sept. 2008 à 22:09
1. Option Explicit
2.
3.
4. Private Sub Form_Activate()
5.
6.
7. 'Placement du Setfocus dans la TextBox
8.
9. txt_mot_de_passe.SetFocus
10.
11.
12. 'Affiche l'image du niveau de sécurité
13.
14. img_niveau_securite_vide.Visible = True
15.
16.
17. End Sub
18.
19.
20.
21. Private Sub txt_mot_de_passe_Change()
22.
23.
24. 'Déclarations de variables
25.
26. Dim str_mot_passe As String 'Variable qui va recueillir le mot de passe
27.
28. Dim int_niveau As Integer 'Variable qui va recueillir le niveau de sécurité
29.
30.
31.
32. 'Affectation de la boîte de texte à la variable
33.
34. str_mot_passe = txt_mot_de_passe.Text
35.
36.
37. 'Initialisation de la variable
38.
39. int_niveau = 0
40.
41.
42. 'Test s'il y a des chiffres dans le mot de passe
43.
44. If str_mot_passe Like "*#*" Then int_niveau = int_niveau + 1
45.
46.
47. 'Test s'il y a des majuscules dans le mot de passe
48.
49. If str_mot_passe Like "*[A-Z]*" Then int_niveau = int_niveau + 1
50.
51.
52. 'Test s'il y a des minuscules dans le mot de passe
53.
54. If str_mot_passe Like "*[a-z]*" Then int_niveau = int_niveau + 1
55.
56.
57. 'Test pour savoir si la boîte de texte est vide si oui on affiche l'image du niveau
58.
59. 'de sécurité vide
60.
61. If txt_mot_de_passe.Text = "" Then
62.
63.
64. 'MsgBox "Attention la sécurité de votre mot de passe est élevée !"
65.
66. img_niveau_securite_vide.Visible = True
67.
68. img_niveau_securite_faible.Visible = False
69.
70. img_niveau_securite_moyen.Visible = False
71.
72. img_niveau_securite_fort.Visible = False
73.
74.
75. End If
76.
77.
78.
79. If Mid(str_mot_passe, 1) > 0 Then
80.
81.
82.
83. If int_niveau = 1 Then
84.
85.
86.
87. 'MsgBox "Attention la sécurité de votre mot de passe est faible !"
88.
89. img_niveau_securite_faible.Visible = True
90.
91. img_niveau_securite_vide.Visible = False
92.
93. img_niveau_securite_moyen.Visible = False
94.
95. img_niveau_securite_fort.Visible = False
96.
97.
98.
99. ElseIf int_niveau = 2 Then
100.
101.
102.
103. 'MsgBox "Attention la sécurité de votre mot de passe est moyenne "
104.
105. img_niveau_securite_moyen.Visible = True
106.
107. img_niveau_securite_vide.Visible = False
108.
109. img_niveau_securite_faible.Visible = False
110.
111. img_niveau_securite_fort.Visible = False
112.
113.
114.
115. ElseIf int_niveau = 3 Then
116.
117.
118.
119. 'MsgBox "Attention la sécurité de votre mot de passe est élevée !"
120.
121. img_niveau_securite_fort.Visible = True
122.
123. img_niveau_securite_vide.Visible = False
124.
125. img_niveau_securite_faible.Visible = False
126.
127. img_niveau_securite_moyen.Visible = False
128.
129.
130.
131. End If
132.
133.
134.
135. End If
136.
137.
138. End Sub
8 sept. 2008 à 07:19
J'avais fait un code de ce type en vb6, mais j'avais inclus les caractères plus spéciaux comme les '@' ou les '#^%' etc...
Par contre une chose...
'MsgBox "Attention la sécurité de votre mot de passe est élevé !" ==> ?
ca fait peur non ? ^^
bonne continuation !
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.