Membuat program via viual basic trial version
| kali ini saya akan mencoba berbagi cara membuat program menjadi trial
version alias habis masa pemakaian. pasti kalian sering menemukan
program-program yang trial version....oke kita langsung aja ke TKP...:D
- Buat Project Baru (Standart Exe)
- Tambah dua buah Label pada Form
Ketik code berikut pada Form
- Tambah dua buah Label pada Form
Ketik code berikut pada Form
Option Explicit
Dim x
Dim y
Dim jumlah
Dim sisa
Private Sub Form_Load()
MsgBox "Program ini hanya dapat di gunakan 5 kali", 48, "Info"
x = GetSetting("y", "y", "y")
jumlah = Val(x) + 1
SaveSetting "Y", "Y", "Y", jumlah
Label1.Caption = "Program sudah dijalankan " & jumlah & " Kali"
sisa = 5 - jumlah
Label2.Caption = "Sisa pemakaian " & sisa & " Kali"
If jumlah > 5 Then
MsgBox "Batas waktu pemakaian sudah habis" + vbCrLf + _
"untuk menggunakan program ini lagi" + vbCrLf + _
"Anda harus menghubungi saya ....", 4, "Info"
Unload Me
End If
End Sub
Salam Blogger Indonesia
EmoticonEmoticon