Post: How To Make A Serial Required Program [TUT]
Options
07-18-2011, 07:52 PM
#1
AngryHD
Banned
Add 1 Button
(Optional) Add 1 Label
Shape your form to its desired shape and add the button its your desired place
also be sure to name your button "Go" or "Enter" etc
(Optional) Add a label called "Please enter the serial code" or whatever text
Double click the "Go" button and add this coding
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "Serial Code here" Then
MsgBox("Correct Key", MsgBoxStyle.Information, "Correct Key!")
Form2.Show()
Else
MsgBox("Incorrect Key!", MsgBoxStyle.Critical, "Error")
End If
End Sub
End Class
Now you can sell your serial keys for your programs!
The following 2 users say thank you to AngryHD for this useful post:
07-18-2011, 08:00 PM
#2
Warlockplayer19
< ^ > < ^ >
07-23-2011, 12:00 AM
#5
CodingNation
Banned
07-30-2011, 11:32 PM
#7
ii_SNiPEzZ_xX
Banned
for multiple serials could you do this?
As Well as a 3rd, 4th, 5th etc.?
Originally posted by another user
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "Serial Code here", "Second Serial Here" Then
MsgBox("Correct Key", MsgBoxStyle.Information, "Correct Key!")
Form2.Show()
Else
MsgBox("Incorrect Key!", MsgBoxStyle.Critical, "Error")
End If
End Sub
End Class
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "Serial Code here", "Second Serial Here" Then
MsgBox("Correct Key", MsgBoxStyle.Information, "Correct Key!")
Form2.Show()
Else
MsgBox("Incorrect Key!", MsgBoxStyle.Critical, "Error")
End If
End Sub
End Class
As Well as a 3rd, 4th, 5th etc.?
PICHU.
Copyright © 2026, NextGenUpdate.
All Rights Reserved.
