Membuat Serial Number Menggunakan Visual Basic

Pada Tutorial kali ini. Kami mencoba untuk membuat suatu aplikasi dekstop untuk membuat serial number, fungi dari serial number ini digunakan untuk membatasi aplikasi anda. Jika anda seorang programmer vb,dan anda ingin membuat batas pemakaian software yang anda buat(alias trial).anda bisa mengkopi source code di bawah ini.

Langkah pertama:

1. Buka notepad anda.
2. isikan angka (jumlah pemakaian software) misalkan 200 kali.
3. Simpan dengan nama Txr.dll
pada latihan ini,anda juga bisa memberikan nama yang lain dan jangan lupa type file harus .dll.jika anda ingin menganti nama file,gantikan nama file yang di cetak tebal di bawah ini pada kode program anda dengan nama file anda.karena di dalam file ini terdapat jumlah pemakaian.setiap kali program di jalankan,jika user mengklik continue maka akan di kurangi jumlah pemakaiannya.
4. Buka Visual basic 6.0 dan rancanglah seperti form di bawah ini.
5. Tambahkan label1,label2 sampai label6 dan timer.
6. Pada label4 captionnya (this application is not registered)
7. Pada label6 visiblenya di falsekan dan captionnya (your trial use of this application has expire),yang akan muncul automatis jika batas pakai telah habis. Dan button continue tidak bisa di aktifkan.seperti pada gambar di bawah ini.form serial number di tampilkan pertama kali saat program di jalankan.
8. Label1 sampai label4 lihat source code yang di cetak tebal.
9. Tambahkan 3 buah button,button continue akan mengurangi jumlah pemakaian software,button register akan mengecek serial number yang di inputkan.
10. Jika serial numbernya benar maka form enter serial number ini tidak akan muncul lagi pada saat software di jalankan.
11. Jika masih ada batas waktu,maka button continue masih active.jika sudah habis maka akan muncul text “this application is not registered”.
12. Simpan project anda.

view source
print?
001.———————————-
002.Private Sub Command1_Click()
003.End
004.End Sub
005.———————————-
006.Private Sub Command2_Click()
007.If Text1.Text = “” Then
008.Open App.Path & “\Txr.dll” For Output As #1
009.Print #1, Label3
010.Print #1, Label4
011.Print #1, “—————————-WARNING—————————–”
012.Print #1, “DO NOT CHANGE OR MODIFY THIS .TXT FILE IT IS NEEDED”
013.Print #1, “FOR AN APPLICATION TO WORK CORRECTLY (IF CHANGED APP
014.WONT WORK)”
015.Close #1
016.frmsplash.Show
017.Unload key
018.Exit Sub
019.End If
020.End Sub
021.———————————-
022.Private Sub Command3_Click()
023.Dim AccCnt As String
024.Dim AccNum As String
025.//disinilah serial number yang anda inginkan
026.If Text1.Text = “H4NY4-H2NQ-QSAYG” Then
027.MsgBox “Succesfuly…Thank you..!!”
028.Label4.Caption = “Registered”
029.Open App.Path & “\Txr.dll” For Output As #1
030.Write #1, AccCnt
031.Print #1, Text2
032.Close #1
033.Print #1, Label3
034.Print #1, Label4
035.Print #1, “—————————-WARNING—————————–”
036.Print #1, “DO NOT CHANGE OR MODIFY THIS .TXT FILE IT IS NEEDED”
037.Print #1, “FOR AN APPLICATION TO WORK CORRECTLY (IF CHANGED APP
038.WONT WORK)”
039.Close #1
040.frmsplash.Show
041.Unload key
042.Else
043.MsgBox “Nomor Register yang anda masukan salah! Contact the author.”, vbCritical,
044.”Number Register Is Invalid”
045.Label4.Caption = “This application is not registered”
046.Text1.Text = “”
047.Text2.Text = “”
048.Text1.SetFocus
049.Exit Sub
050.End If
051.End Sub
052.———————————-
053.Private Sub Form_Activate()
054.Text2.SetFocus
055.End Sub
056.———————————-
057.Private Sub Form_Load()
058.Open App.Path & “\Txr.dll” For Input As #1
059.Line Input #1, a
060.Line Input #1, B
061.Label1.Caption = a
062.Label2.Caption = B
063.Close #1
064.?disinilan akan terjadi pengurangan jumlah pakai software.
065.Label3.Caption = Label1.Caption – 1
066.If Label3.Caption = “-1” Then
067.Label6.Visible = True
068.Label3.Caption = “-1”
069.MDIForm1.Enabled = False
070.MDIForm1.Visible = False
071.login.Enabled = False
072.login.Visible = False
073.End If
074.Label4.Caption = Label2.Caption
075.If Label4.Caption = “Registered” Then
076.frmsplash.Show
077.Unload key
078.Exit Sub
079.End If
080.End Sub
081.———————————-
082.Private Sub Label10_Click()
083.LaunchSite Me, “MailTo:” & Label10.Caption
084.End Sub
085.———————————-
086.Private Sub Text1_Change()
087.If Text1.Text = “” Then
088.Command3.Enabled = False
089.Command2.Enabled = True
090.Else
091.Command3.Enabled = True
092.Command2.Enabled = False
093.End If
094.End Sub
095.———————————-
096.Private Sub Timer4_Timer()
097.If Label6.Visible = True Then
098.Command2.Enabled = False
099.End If
100.If Label4.Caption = “Registered” Then
101.Timer4.Enabled = False
102.frmsplash.Show
103.Unload key
104.End If
105.End Sub

Tutorial dpt diunduh di :
http://tutorial.persinggahan-netter.com/dekstop-aplication/visual-basic/membuat-serial-number-menggunakan-visual-basic/

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: