Vous aurrez besoin de:
-1 boutons (1: Generer)
-1 Textbox
(Vous pouvez ajouter une listbox ou un truc du genre avec les jeux marquer dessu pour faire plus vrais )
Code:
Bouton1 : (Générer)
Code :
TextBox1.Text = Int(Rnd() * 20) ' [le nombre 20 , ces le nombre de case!]
Select Case TextBox1.Text
Case 0
TextBox1.Text = "Votre licence fake"
Case 1
TextBox1.Text = "Votre licence fake"
Case 2
TextBox1.Text = "Votre licence fake"
Case 3
TextBox1.Text = "Votre licence fake"
Case 4
TextBox1.Text = "Votre licence fake"
Case 5
TextBox1.Text = "Votre licence fake"
Case 6
TextBox1.Text = "Votre licence fake"
Case 7
TextBox1.Text = "Votre licence fake"
Case 8
TextBox1.Text = "Votre licence fake"
Case 9
TextBox1.Text = "Votre licence fake"
Case 10
TextBox1.Text = "Votre licence fake"
Case 11
TextBox1.Text = "Votre licence fake"
Case 12
TextBox1.Text = "Votre licence fake"
Case 13
TextBox1.Text = "Votre licence fake"
Case 14
TextBox1.Text = "Votre licence fake"
Case 15
TextBox1.Text = "Votre licence fake"
Case 16
TextBox1.Text = "Votre licence fake"
Case 17
TextBox1.Text = "Votre licence fake"
Case 18
TextBox1.Text = "Votre licence fake"
Case 19
TextBox1.Text = "Votre licence fake"
Case 20
TextBox1.Text = "Votre licence fake"
End Select
Ps: Vous pouvez changer le nombre de case ^^ Parceque c'est beaucoup 20 case xDu
Voila vous avez finis votre propre keygen fake
-1 boutons (1: Generer)
-1 Textbox
(Vous pouvez ajouter une listbox ou un truc du genre avec les jeux marquer dessu pour faire plus vrais )
Code:
Bouton1 : (Générer)
Code :
TextBox1.Text = Int(Rnd() * 20) ' [le nombre 20 , ces le nombre de case!]
Select Case TextBox1.Text
Case 0
TextBox1.Text = "Votre licence fake"
Case 1
TextBox1.Text = "Votre licence fake"
Case 2
TextBox1.Text = "Votre licence fake"
Case 3
TextBox1.Text = "Votre licence fake"
Case 4
TextBox1.Text = "Votre licence fake"
Case 5
TextBox1.Text = "Votre licence fake"
Case 6
TextBox1.Text = "Votre licence fake"
Case 7
TextBox1.Text = "Votre licence fake"
Case 8
TextBox1.Text = "Votre licence fake"
Case 9
TextBox1.Text = "Votre licence fake"
Case 10
TextBox1.Text = "Votre licence fake"
Case 11
TextBox1.Text = "Votre licence fake"
Case 12
TextBox1.Text = "Votre licence fake"
Case 13
TextBox1.Text = "Votre licence fake"
Case 14
TextBox1.Text = "Votre licence fake"
Case 15
TextBox1.Text = "Votre licence fake"
Case 16
TextBox1.Text = "Votre licence fake"
Case 17
TextBox1.Text = "Votre licence fake"
Case 18
TextBox1.Text = "Votre licence fake"
Case 19
TextBox1.Text = "Votre licence fake"
Case 20
TextBox1.Text = "Votre licence fake"
End Select
Ps: Vous pouvez changer le nombre de case ^^ Parceque c'est beaucoup 20 case xDu
Voila vous avez finis votre propre keygen fake