|
Un keygen génère une valeur de chaîne aléatoire que vous affichez à vos lecteurs. Si vous hébergez un service de raccourcisseur d' URL , vous devez créer une valeur générée de façon aléatoire qui contient le domaine auquel les points d'URL générées . Vous pouvez générer aléatoirement une chaîne de n'importe quelle longueur en Visual Basic 6 pour faciliter la génération du service keygen URL. Le service utilise la fonction de VB6 "Rnd " pour générer un nombre aléatoire de points à une lettre de l'alphabet. Instructions
1 Ouvrez le fichier de code VB6 que vous souhaitez utiliser pour générer la valeur keygen . Il peut être n'importe quel fichier qui héberge votre URL code de service de raccourcisseur . En général, vous placez ce code dans la section de la soumission du formulaire lorsque votre lecteur de site soumet le domaine de shortening.
2 Définir les lettres de l'alphabet que vous souhaitez utiliser pour générer la chaîne . Le tableau que vous créez associe chaque lettre avec un numéro et ces chiffres récupérer une lettre au hasard à partir de la matrice. Ajoutez le code suivant pour créer le tableau de lettres :
LettersArray As Char () LettersArray = " ABCDEFGHIJKLMNOPQRSTUVWXYZ "
3 Créer une variable pour contenir la chaîne aléatoire lettres ; cette chaîne devient finalement votre valeur keygen retourné, mais vous devez parcourir chaque lettre et de récupérer un personnage qui est ajouté à la variable chaîne. Ajoutez le code suivant pour créer la variable : Trouvez keygen Dim As String
4 Créer une boucle qui génère aléatoirement un numéro et utilise ce nombre pour récupérer une lettre du tableau de caractères. Après la lettre est récupéré, l'ajouter à la variable " keygen " . Le code suivant génère la chaîne URL :
For i = 0 à 10Randomize () Random1 = Rnd ( ) keygent = keygen et LettersArray ( Random1 ) Boucle
5 imprimer les générée ligne dans la page Web . Par exemple, si votre service de raccourcisseur a le domaine " domain.com ", le code suivant affiche le keygen URL créé pour l' URL raccourcie :
Response.Write " http://domain.com /"& keygen
|
