04-15-2010, 06:32 AM
Today i will show you how to make a simple keygen in VB.
![[Image: 244thd3.png]](http://i39.tinypic.com/244thd3.png)
What you will need.
2 TextBoxes
1 Button
Now rename,change,etc to make your keygen look nice.
When you have finished that,double click the button
Then enter paste the code from below..
And use your own serials..
Done.
Enjoy
What you will need.
2 TextBoxes
1 Button
Now rename,change,etc to make your keygen look nice.
When you have finished that,double click the button
Then enter paste the code from below..
And use your own serials..
Code:
TextBox1.Text = Int(Rnd() * 6)
Select Case TextBox1.Text
Case 0
TextBox1.Text = "1330-1813-5332-3018-4123-4267"
TextBox2.Text = "1330-1182-3585-9477-5524-4839"
Case 1
TextBox1.Text = "1330-1167-8857-3801-9962-4540"
TextBox2.Text = "1330-1246-4571-8394-1888-0838"
Case 2
TextBox1.Text = "1330-1182-3585-9477-5524-4839"
TextBox2.Text = "1330-1813-2281-9917-1754-3749"
Case 3
TextBox1.Text = "1330-1813-5332-3018-4123-4267"
TextBox2.Text = "1330-1814-7519-3975-0873-6968"
Case 4
TextBox1.Text = "1330-1011-6547-2116-7061-1195"
TextBox2.Text = "1330-1813-5332-3018-4123-4267"
Case 5
TextBox1.Text = "1330-1430-9860-3108-6588-8053"
TextBox2.Text = "1330-1147-9851-4130-3716-7375"
End SelectDone.
Enjoy