Membuat Program via Visual Basic Trial Version

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

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

3 Responses to "Membuat Program via Visual Basic Trial Version"

  1. Lalu kalo mau MeReset settingan gmn Sob?...

    Masa' iya, kita buat tuh program tp reset SaveSetting_nya gag bisa... kan Lucu.. hahahaaa...

    ReplyDelete
  2. Admin nya juga gak ngerti kali gan :p
    tinggal copas doang XD

    ReplyDelete
  3. admin sih copas aja neh artikel...

    ReplyDelete

- Tuangkan saran maupun kritik dan jangan meninggalkan Spam.
- Berkomentarlah dengan bijak sesuai dengan konten yang tersedia.
- Dilarang Promosi disini