Contoh Progam Trial dengan Visual Basic 6.0

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 :

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