How to Create Key-Gun in Visual Studio?

Want to create Key-gun of your own?

Then You are at Right Place.

You can create your own keygen with some program or software like: Ms Visual Studio/Basic (any Version)

Now let's Start The tutorial:

1. Add Two buttons,
2. label,
3. Textbox,
4. combobox.

Now let rename your Form to "Product Name - Keygen"

Then Rename your buttons with Generate and Exit

Rename Label as your Name or you want to use your Nickname

Now type in the textbox: "Please Click on Generate"

And make the text align in "Center" in the properties tab.

Arranged All the things in the good Look.

Now let go to code: With the example of product :

"Product A"

"Product B"

"Product C"

this were be named in the Combobox.

ok, Lets get the code for Generate Button:

Now Double Click on Generate And type the Code:

If Combobox1.SelectedItem = "" Then

MsgBox("Please Select Your One of the Product",MsgBoxStyle.Exclamation,"Your msgbox Title")

End If

If combobox1.SelectedText = "Product A" Then

Dim key as Integer

key = (Rnd() * _)  {Here "_" this means What the no. of keys you have for the Product A, just enter it}

Select Case Key

Case 1

TextBox1.Text = " Your 1st Serial For product A"

Case 2

TextBox1.Text = " Your 2st Serial For product A"

Case 3

TextBox1.Text = " Your 3st Serial For product A"

Case 4

TextBox1.Text = " Your 4st Serial For product A"

Case 5

TextBox1.Text = " Your 5st Serial For product A"

Case 6

TextBox1.Text = " Your 6st Serial For product A"

{Just Continue uptill what your cases are there}

End Select

{In same way, for Product B and C}

If combobox1.SelectedText = "Product B" Then

Dim key as Integer

key = (Rnd() * _)  {Here "_" this means What the no. of keys you have for the Product B, just enter it}

Select Case Key

Case 1

TextBox1.Text = " Your 1st Serial For product B"

Case 2

TextBox1.Text = " Your 2st Serial For product B"

Case 3

TextBox1.Text = " Your 3st Serial For product B"

Case 4

TextBox1.Text = " Your 4st Serial For product B"

Case 5

TextBox1.Text = " Your 5st Serial For product B"

Case 6

TextBox1.Text = " Your 6st Serial For product B"

{Just Continue uptill what your cases are there For Product B}

End Select

If combobox1.SelectedText = "Product C" Then

Dim key as Integer

key = (Rnd() * _)  {Here "_" this means What the no. of keys you have for the Product C, just enter it}

Select Case Key

Case 1

TextBox1.Text = " Your 1st Serial For product C"

Case 2

TextBox1.Text = " Your 2st Serial For product C"

Case 3

TextBox1.Text = " Your 3st Serial For product C"

Case 4

TextBox1.Text = " Your 4st Serial For product C"

Case 5

TextBox1.Text = " Your 5st Serial For product C"

Case 6

TextBox1.Text = " Your 6st Serial For product C"

{Just Continue uptill what your cases are there}

End Select

Lets get the code for Exit Button:

Me.Close()

You have Complete Your Keygen...

Please Subscribe Us....