Keygen
Posted: Fri Nov 27, 2009 9:55 pm
add 1 button
add 1 textbox
button1 change the text to Generate
Use this code for button1 click event
where stands cd key there has to be the serial
and of course you can add more cases
add 1 textbox
button1 change the text to Generate
Use this code for button1 click event
Code: Select all
This generates the serial key TextBox1.Text = Int(Rnd() * 4)
Select Case TextBox1.Text
Case 0
TextBox1.Text = "CD key"
Case 1
TextBox1.Text = "CD key"
Case 2
TextBox1.Text = "CD key"
Case 3
TextBox1.Text = "CD key"
Case 4
TextBox1.Text = "CD key"
Case 5
TextBox1.Text = "CD key"
End Select
where stands cd key there has to be the serial
and of course you can add more cases