Contoh Progam Trial dengan Visual Basic 6.0

Contoh Progam Trial dengan Visual Basic 6.0 - Hallo sahabat Cheater251 | Free Download Cheat LostSaga, PointBlank, First Blood 2017, Pada Artikel yang anda baca kali ini dengan judul Contoh Progam Trial dengan Visual Basic 6.0, kami telah mempersiapkan artikel ini dengan baik untuk anda baca dan ambil informasi didalamnya. mudah-mudahan isi postingan Artikel tutorial, Artikel Visual Basic 6.0, yang kami tulis ini dapat anda pahami. baiklah, selamat membaca.

Judul : Contoh Progam Trial dengan Visual Basic 6.0
link : Contoh Progam Trial dengan Visual Basic 6.0

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

Demikianlah Artikel Contoh Progam Trial dengan Visual Basic 6.0

Sekianlah artikel Contoh Progam Trial dengan Visual Basic 6.0 kali ini, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sampai jumpa di postingan artikel lainnya.

Anda sekarang membaca artikel Contoh Progam Trial dengan Visual Basic 6.0 dengan alamat link http://cheatterbaru2.blogspot.com/2016/06/contoh-progam-trial-dengan-visual-basic.html