Discussion :

[MADA BLACK]

Bonjour Forum
Bonjour a tous et a toutes
SVP gentelman ..je sollicites vos aides afin de resoudre ce probleme
Dans ce code .. meme si je vais essayer 1000 fois avec faux mot de passe .. le programme reste ouvert

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
Dim SIREAL As String
Dim X As New MADA.XP10
Private Sub Command1_Click()
SIREAL = Text1 + Text2 + Text3 + Text4 + Text5 + Text6 + Text7 + Text8
Me.Caption = SIREAL
If UCase(SIREAL) = UCase(X.MD5(Trim$(Text9.Text))) Then
MsgBox "Le programme est activé", vbOKOnly
Form1.Show
Else
MsgBox "programme non activé", vbCritical
End If
End Sub

Je veux si vous pouvez m'aider bien sur .. mettre simplement 3 fausses tentatives apres la troisieme fausse tentative le programme se ferme et on quitte l'application
Merci beaucoup d'avance de me regler ce code
Tres cordialement
MADA BLACK

[DAUDET78]

Ben ... y a pas de compteur de tentatives fausses !
Quand ce compteur arrive à 3, tu fermes le programme.
Et pour compliquer la prochaine tentative, tu stockes dans le fichier.INI ou la base de registre la valeur de l'heure (sous une forme un peu codée). Si on relance le programme avant "heure stockée"+15mn, c'est macache bonbon !

[MADA BLACK]

Bonjour DAUDET78
Merci 1000 fois pour votre intention d'aide
Je suis vraiment vraiment heureux de vous rencontrer
J'adore cher gentelman vos idees .. j'attend avec impatience suggestion ..surtout si se sera avec compteur UserForm qui s'affichera au lieu d MsgBox
Merci d'avance cher DAUDET78
Cordialement
MADA BLACK

[DAUDET78]

.surtout si se sera avec compteur UserForm qui s'affichera au lieu d MsgBox

Tu peux parfaitement afficher la valeur d'un compteur dans une MsgBox !

[MADA BLACK]

Tu peux parfaitement afficher la valeur d'un compteur dans une MsgBox !

Bonjour DAUDET78
Oui effectivement vous avez bien raison
J'ai confiance a vous et a vos codes cher DAUDET78
Merci pour toute suggestion .. l'essentiel le meme but
Cordialement
MADA BLACK

[DAUDET78]

Tiens , je t'ai trouvé une solution ICI

[MADA BLACK]

Bonsoir DAUDET78
Merci pour ce lien
Lorsque j'ai posté mon sujet ici cher DAUDET78
Est ce que j'etais sur que je vais trouver une solution ou trouver quelqu'un qui peut m'aider ..est ce que j'etais sur que vais vous trouver pour me repondre
Et je ne vois pas aucun derangement de poster ici ou d'ailleur ..d'abord il ya que ces deux forum .. aussi j'aime bien avois des differentes solutions .. pour mieux apprendre ..
Enfin je suis tres tres desolu si ca vous derange ça ..
Cordialement
MADA BLACK

[ProgElecT]

Salut

Il y a aussi cette possibilité: Une boite de dialogue Mot de Passe

[MADA BLACK]

Bonjour ProElect
Merci beaucoup pour ce interessant projet
Je vais essayer de l'appliquer
Tres gentil de votre part
Merci encore une autre fois
Tres cordialement
MADA BLACK