How to Create a Simple Keygen using Visual Basic 6.0
How to Create a Simple Keygen using Visual Basic 6.0
Very Easy!!
Code: Copy/Paste
Private Sub Command1_Click()
Dim key As Integer
key = Int(Rnd() * 10)
Select Case key
Case 0
text1.Text = "serial1"
Case 1
text1.Text = "serial2"
Case 2
text1.Text = "serial3"
Case 3
text1.Text = "serial4"
Case 4
text1.Text = "serial5"
Case 5
End Select
End Sub
Enter Serials