Système de captcha

[deleted293454]

Bonjour

Je vais vous présenter un petit tutoriel entièrement fait par moi, parlant des Captchas !

Pour commencer mettez :

2 Boutons
2 Textbox


Nous allons commencer par le random, pour générer des lettres et nombres aléatoirement !

Voici le code à mettre au button1 :

Button1.Text = "Recharger" 'Le texte du button change
Dim rand As New Random 'On créer la variable rand de la fonction random
Dim lettre As String = "" 'On créer la variable lettre
For i = 0 To 10 'Nombre de charactères
lettre = lettre & ChrW(Rand.Next(Asc("A"), Asc("Z") + 1)) 'Génére des chiffres et lettres
Next
TextBox1.Text = lettre 'La textbox affiche la varible lettre

Maintenant il faut vérifier si l'utilisateur à réécrit le captcha correctement.

Code pour le button 2 :

If TextBox2.Text = TextBox1.Text Then 'Si le texte de la textbox2 correspond à la textbox1 alors...
MsgBox("OK") 'Une boite de dialogue s'affiche avec pour texte : OK
Me.Close() 'La form se ferme
Else 'Sinon
MsgBox("Raté...") 'Une boite de dialogue s'affiche avec pour texte : Raté
TextBox2.Clear() 'Le texte de la textbox2 s'efface
TextBox1.Clear() 'Le texte de la textbox1 s'efface
Button1.Text = "Charger" 'Le texte du button1 se change
End If

Voilà, mon tutoriel touche à sa fin !

Si vous avez une question ou une erreur dites le moi !

PS : Pour copier le tutoriel sur un autre forum dites le moi.
Cordialement

 

[Moncler]

GG Même si je connaiser . mais Précision si la personnes ne génére va de captcha est qui clique sur valider sa fait ok ^^ sinon trés bon tutoriel

 

[Moncler]

A Oui, pour régler se probléme il faut mettre le code dans le bouton est dans la form je parle de se code
Button1.Text = "Recharger" 'Le texte du button change
Dim rand As New Random 'On créer la variable rand de la fonction random
Dim lettre As String = "" 'On créer la variable lettre
For i = 0 To 10 'Nombre de charactères
lettre = lettre & ChrW(rand.Next(Asc("A"), Asc("Z") + 1)) 'Génére des chiffres et lettres
Next
TextBox1.Text = lettre 'La textbox affiche la varible lettre