pada program yang akan di publikasikan kepada konsumen haruslah di sediakan securitas kepada konsumen khususnya bukan untuk keperluan umum, supaya tidak bisa di pakai oleh konsumen lain. program ini di buat dengan vb 6, sesuai dengan niche blog kami yaitu visual basic.
pada tutorial belajar vb ini, membahas tentang cara membuat sebuah registrasi program atau sesuai program trial kalau tidak memasukan serial number valid dengan visual basic 6. Tutorial ini sangat sederhana namun dari segi contoh program padat dan jelas sehingga mudah untuk di kembangkan bagi yang mau belajar visual basic 6 terutama bagi pemula/newbie.
Contoh program ini tidak menggunakan komponen apapun, hanya menggunakan 1 buah form, yang di dalamnya menggunakan metode prosedur dan msgbox untuk penginputan serial number. Untuk tutorial nya silahkan praktekan secara langsung, jikalau ada kesalahan atau ada yang tidak di mengerti bisa meninggalkan komentar di bawah artikel yang sudah di sediakan
Buat Project baru dengan sebuah Form seperti desain form di bawah
Di bagian '(Declarations)' dari Form ketikkan :
Const LocationReg = "System\Windows\User" 'lokasi penyimpanan d registry (ubah sesuai selera)
Const PasswordReg = "kode" 'kode kunci registrasi
Const LocationReg = "System\Windows\User"
Const PasswordReg = "123" 'kode kunci registrasi
Function GetInfoReg() As String 'fungsi utk mendapatkan info registrasi
On Error GoTo Ero
Dim Reg As Object
Set Reg = CreateObject("WScript.Shell")
GetInfoReg = Reg.RegRead("HKEY_CLASSES_ROOT\" & LocationReg & "\")
Exit Function
Ero:
Reg.RegWrite "HKEY_CLASSES_ROOT\" & LocationReg & "\", Format(Now, "short date") 'memasukkan tgl sekarang
GetInfoReg = Format(Now, "short date")
End Function
Function SuccessReg() As Boolean 'fungsi utk prosedur pemasukan kode registrasi
Dim s As String
Lagi:
s = InputBox("Masukkan kode registrasi", "Registrasi")
If s = PasswordReg Then
Dim Reg As Object
Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKEY_CLASSES_ROOT\" & LocationReg & "\", "Registered" 'mendaftarkan k registry
MsgBox "Terima kasih telah melakukan registrasi", vbInformation, "Registrasi Sukses"
SuccessReg = True
ElseIf s = "" Then
SuccessReg = False
Else
If MsgBox("Maaf kode registrasi salah, coba lagi ?", vbYesNo + vbExclamation, "Registrasi") = vbYes Then GoTo Lagi
SuccessReg = False
End If
End Function
Private Sub Form_Load()
Dim s As String, l As Long
s = GetInfoReg
If s <> "Registered" Then 'jika belum terdaftar"
l = 30 - (CDate(Format(Now, "short date")) - CDate(s)) 'max penggunaan trial 30 hari
If l > 0 And l <= 30 Then 'jika masih ada sisa hari
If MsgBox("Aplikasi ini hanya dapat digunakan sampai " & l & " hari lagi." & vbCrLf & _
"Jika ingin menggunakan tanpa batasan waktu, masukkan kode registrasi" & vbCrLf & vbCrLf & _
"Masukkan kode registrasi sekarang ?", vbYesNo + vbInformation, "Registrasi") = vbYes Then SuccessReg
Else 'jika kadaluarsa
If MsgBox("Aplikasi ini sudah tidak dapat digunakan lagi." & vbCrLf & _
"Jika ingin menggunakannya kembali, masukkan kode registrasi" & vbCrLf & vbCrLf & _
"Masukkan kode registrasi sekarang ?", vbYesNo + vbExclamation, "Registrasi") = vbYes Then
'mengakhiri aplikasi
If SuccessReg = False Then End
Else
End 'mengakhiri aplikasi
End If
End If
End If
End Sub
pada tutorial belajar vb ini, membahas tentang cara membuat sebuah registrasi program atau sesuai program trial kalau tidak memasukan serial number valid dengan visual basic 6. Tutorial ini sangat sederhana namun dari segi contoh program padat dan jelas sehingga mudah untuk di kembangkan bagi yang mau belajar visual basic 6 terutama bagi pemula/newbie.
Contoh program ini tidak menggunakan komponen apapun, hanya menggunakan 1 buah form, yang di dalamnya menggunakan metode prosedur dan msgbox untuk penginputan serial number. Untuk tutorial nya silahkan praktekan secara langsung, jikalau ada kesalahan atau ada yang tidak di mengerti bisa meninggalkan komentar di bawah artikel yang sudah di sediakan
Buat Project baru dengan sebuah Form seperti desain form di bawah
Di bagian '(Declarations)' dari Form ketikkan :
Const LocationReg = "System\Windows\User" 'lokasi penyimpanan d registry (ubah sesuai selera)
Const PasswordReg = "kode" 'kode kunci registrasi
Const LocationReg = "System\Windows\User"
Const PasswordReg = "123" 'kode kunci registrasi
Function GetInfoReg() As String 'fungsi utk mendapatkan info registrasi
On Error GoTo Ero
Dim Reg As Object
Set Reg = CreateObject("WScript.Shell")
GetInfoReg = Reg.RegRead("HKEY_CLASSES_ROOT\" & LocationReg & "\")
Exit Function
Ero:
Reg.RegWrite "HKEY_CLASSES_ROOT\" & LocationReg & "\", Format(Now, "short date") 'memasukkan tgl sekarang
GetInfoReg = Format(Now, "short date")
End Function
Function SuccessReg() As Boolean 'fungsi utk prosedur pemasukan kode registrasi
Dim s As String
Lagi:
s = InputBox("Masukkan kode registrasi", "Registrasi")
If s = PasswordReg Then
Dim Reg As Object
Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKEY_CLASSES_ROOT\" & LocationReg & "\", "Registered" 'mendaftarkan k registry
MsgBox "Terima kasih telah melakukan registrasi", vbInformation, "Registrasi Sukses"
SuccessReg = True
ElseIf s = "" Then
SuccessReg = False
Else
If MsgBox("Maaf kode registrasi salah, coba lagi ?", vbYesNo + vbExclamation, "Registrasi") = vbYes Then GoTo Lagi
SuccessReg = False
End If
End Function
Private Sub Form_Load()
Dim s As String, l As Long
s = GetInfoReg
If s <> "Registered" Then 'jika belum terdaftar"
l = 30 - (CDate(Format(Now, "short date")) - CDate(s)) 'max penggunaan trial 30 hari
If l > 0 And l <= 30 Then 'jika masih ada sisa hari
If MsgBox("Aplikasi ini hanya dapat digunakan sampai " & l & " hari lagi." & vbCrLf & _
"Jika ingin menggunakan tanpa batasan waktu, masukkan kode registrasi" & vbCrLf & vbCrLf & _
"Masukkan kode registrasi sekarang ?", vbYesNo + vbInformation, "Registrasi") = vbYes Then SuccessReg
Else 'jika kadaluarsa
If MsgBox("Aplikasi ini sudah tidak dapat digunakan lagi." & vbCrLf & _
"Jika ingin menggunakannya kembali, masukkan kode registrasi" & vbCrLf & vbCrLf & _
"Masukkan kode registrasi sekarang ?", vbYesNo + vbExclamation, "Registrasi") = vbYes Then
'mengakhiri aplikasi
If SuccessReg = False Then End
Else
End 'mengakhiri aplikasi
End If
End If
End If
End Sub
This post first appeared on Belajar Visual Basic 6.0 Indonesia, please read the originial post: here
