M
Modded Crazy
Enthusiast
How to make a Serial Protected Program
this tutorial was made by me and only me
Please Enjoy and give me Rep
If you are just starting a project, read this otherwise skip to Step 4..
1.) Open Visual Basic
2.) Create a Project
3.) make it how you want it
4.) add another form to your program and name it Login
5.) add a Label saying "Serial Key:"
6.) add a textbox make sure its called "Textbox1"
7.) add 2 Buttons, button1 saying "&Ok" and button2 saying "&Cancel" (the & just adds a line underneth the first letter, just looks cool lol)
What Mine Looks like:
8.) Double Tap the Cancel button and just type
this just ends the whole program...
9.) go to "Solution Explorer and Double Click the bit that says "My Project"
10.) go to Settings and copy what i have done in the picture...
11.) once done just go back to your Login/Serial Form, Now comes the coding
12.) Double tap the top of your form..
13.) now add all the coding i do in the picture...
Full Code for login/serial form:
I hope you liked my tutorial
More Soon
this tutorial was made by me and only me
Please Enjoy and give me Rep
If you are just starting a project, read this otherwise skip to Step 4..
1.) Open Visual Basic
2.) Create a Project
3.) make it how you want it
4.) add another form to your program and name it Login
5.) add a Label saying "Serial Key:"
6.) add a textbox make sure its called "Textbox1"
7.) add 2 Buttons, button1 saying "&Ok" and button2 saying "&Cancel" (the & just adds a line underneth the first letter, just looks cool lol)
What Mine Looks like:
8.) Double Tap the Cancel button and just type
Code:
End
9.) go to "Solution Explorer and Double Click the bit that says "My Project"
10.) go to Settings and copy what i have done in the picture...
11.) once done just go back to your Login/Serial Form, Now comes the coding
12.) Double tap the top of your form..
13.) now add all the coding i do in the picture...
Full Code for login/serial form:
Code:
Public Class login
Private Sub login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If My.Settings.Entered = "true" Then
main.Show()
Me.Close()
End If
End Sub
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
If Textbox1.Text = "This is what you want to be the serial" Then
MsgBox("Correct Key!", MsgBoxStyle.Information, "Correct Key")
main.Show()
My.Settings.Entered = "true"
My.Settings.Save()
My.Settings.Reload()
Me.Close()
Else
MsgBox("Incorrect Key", MsgBoxStyle.Exclamation, "Incorrect Key!")
End If
End Sub
Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
End
End Sub
End Class
I hope you liked my tutorial
More Soon