Bonjour / Bonsoir Tout le monde :) !
Vous avez envie de Crée un Keygen met vous ne savez pas comment avec Visual Basic ? Ce tuto est fait pour vous !
Le projet seras en 2 partie :
• Graphisme ~ Interface
• Codage ~ Programmation
I - Graphisme ~ Interface
C'est très Facile , Commençons :
Tout d'abord allumé Visual Basic , Crée un nouveau Projet Windows Form ( appelez le comme vous voulez) !
Vous êtes en face de votre Form1 .
Faite s'en a rectangle en longueur comme ceci :
Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
Ensuite insérer La texte Box et le Bouton comme ceci :
Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
Si vous voulez mettre une Image ( comme moi ) cliquez sur Back Ground Image :
Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
Et si vous voulez changer d’icône c'est ici :
Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
/!\ Pour avoir sa il faut que vous cliquez sur Form1 /!\
II - Codage ~ Programmation
Tout d'abord cliquez 2 fois sur Bouton 1 , Vous obtenez sa :
Nous allons rajouter ceci :
4 Signifie le nombre de case, C'est a dire le nombre de clé.
Ensuite rajoutons ceci :
TextBox1.Text Pour dire ou va s'écrire les CD key quand j'appuierais sur le Button 1.
Ensuite rajoutons la 1er case :
CD Key 1 pour dire ce qu'on l'on va écrire (a la place met une clé . ex :5789-987-6547-89947
Et faisons pareil jusqu’à :
Pourquoi 4 ? Car 4 c'est le nombre de case !
Ensuite fermer votre Select avec End Select.
Ce qui nous donne a la fin :
Voila le Tutoriel est finis merci de l'avoir suivi . Si il y' a des erreur ou des chose qu'il vous semble compliqué. N' hésité pas a me le dire.
Vous avez envie de Crée un Keygen met vous ne savez pas comment avec Visual Basic ? Ce tuto est fait pour vous !
Le projet seras en 2 partie :
• Graphisme ~ Interface
• Codage ~ Programmation
I - Graphisme ~ Interface
C'est très Facile , Commençons :
Tout d'abord allumé Visual Basic , Crée un nouveau Projet Windows Form ( appelez le comme vous voulez) !
Vous êtes en face de votre Form1 .
Faite s'en a rectangle en longueur comme ceci :
Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
Ensuite insérer La texte Box et le Bouton comme ceci :
Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
Si vous voulez mettre une Image ( comme moi ) cliquez sur Back Ground Image :
Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
Et si vous voulez changer d’icône c'est ici :
Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
/!\ Pour avoir sa il faut que vous cliquez sur Form1 /!\
II - Codage ~ Programmation
Tout d'abord cliquez 2 fois sur Bouton 1 , Vous obtenez sa :
PHP:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
End Sub
End ClassNous allons rajouter ceci :
PHP:
TextBox1.Text = Int(Rnd() * 4)4 Signifie le nombre de case, C'est a dire le nombre de clé.
Ensuite rajoutons ceci :
PHP:
Select Case TextBox1.TextTextBox1.Text Pour dire ou va s'écrire les CD key quand j'appuierais sur le Button 1.
Ensuite rajoutons la 1er case :
PHP:
Case 0
TextBox1.Text = "CD key 1"CD Key 1 pour dire ce qu'on l'on va écrire (a la place met une clé . ex :5789-987-6547-89947
Et faisons pareil jusqu’à :
PHP:
Case 3
TextBox1.Text = "CD key 4"Pourquoi 4 ? Car 4 c'est le nombre de case !
Ensuite fermer votre Select avec End Select.
Ce qui nous donne a la fin :
PHP:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = Int(Rnd() * 4) '4 Signifie le nombre de case
Select Case TextBox1.Text 'TextBox1.Text Pour dire ou va s'écrire les CD key quand j'appuierais sur le Button 1.
Case 0
TextBox1.Text = "CD key 1" 'CD Key 1 pour dire ce qu'on l'on va écrire (a la place met une clé . ex :5789-987-6547-89947
Case 1
TextBox1.Text = "CD key 2"
Case 2
TextBox1.Text = "CD key 3"
Case 3
TextBox1.Text = "CD key 4"
End Select
End Sub
End ClassVoila le Tutoriel est finis merci de l'avoir suivi . Si il y' a des erreur ou des chose qu'il vous semble compliqué. N' hésité pas a me le dire.
