Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB 6 et antérieur Discussion :

CAPTCHA


Sujet :

VB 6 et antérieur

  1. #1
    Membre à l'essai
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    octobre 2018
    Messages
    16
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Santé

    Informations forums :
    Inscription : octobre 2018
    Messages : 16
    Points : 11
    Points
    11
    Par défaut CAPTCHA
    Bonsoir,

    je cherche à créer une fonction qui permettra d'afficher dans une txtbox des caractères aléatoires (comme un captcha) en cliquant sur un label.

    Voici mon code, le probleme est qu'au lancement du fichier.exe se sont toujours les memes qui sont générer

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub valide_Click()
    captcha = TXTCAPTCHA(10)
    End Sub
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Private Function Rndtxt(Optional Chrlength As Integer = 8) As String
    Dim RNDWORD As String
    Dim LoopVar As Integer
     
    Const rndstring = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    For LoopVar = 1 To Chrlength
    RNDWORD = RNDWORD & Mid(rndstring, Int(Rnd * 32) + 1, 1)
    Next LoopVar
    TXTCAPTCHA = RNDWORD 
    End Function
    Merci pour votre aide

  2. #2
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    décembre 2004
    Messages
    4 989
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 63
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 4 989
    Points : 11 634
    Points
    11 634
    Par défaut
    Salut
    le probleme est qu'au lancement du fichier.exe se sont toujours les memes qui sont générer
    Citation Envoyé par aide en ligne
    Rnd[(number)]
    Avant d'appeler la fonction Rnd, utilisez l'instruction Randomize sans argument pour initialiser le générateur de nombres aléatoires avec une valeur initiale basée sur l'horloge système.



    Randomize [number]
    L'instruction Randomize utilise l'argument number pour initialiser le générateur de nombres aléatoires de la fonction Rnd, en lui donnant une nouvelle valeur initiale. Si vous omettez l'argument number, la valeur renvoyée par l'horloge système est utilisée comme nouvelle valeur initiale.
    ProgElecT
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    ......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.

  3. #3
    Membre à l'essai
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    octobre 2018
    Messages
    16
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Santé

    Informations forums :
    Inscription : octobre 2018
    Messages : 16
    Points : 11
    Points
    11
    Par défaut
    Simple et efficace MERCi !

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. captchas et robots
    Par ledisciple dans le forum Sécurité
    Réponses: 5
    Dernier message: 31/08/2009, 11h06
  2. Réponses: 24
    Dernier message: 17/03/2005, 01h36
  3. [GD] Code graphique anti robot
    Par miel_pops dans le forum Bibliothèques et frameworks
    Réponses: 17
    Dernier message: 03/03/2005, 01h03
  4. Réponses: 6
    Dernier message: 24/01/2005, 15h12
  5. les robots et les scripts
    Par khayyam90 dans le forum Balisage (X)HTML et validation W3C
    Réponses: 3
    Dernier message: 26/10/2004, 14h12

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo