Aplikasi trial adalah aplikasi yang mempunyai batasan waktu penggunaan berdasarkan lama hari atau berapa kali aplikasi dijalankan.
Pembuatanya biasanya digunakan pada aplikasi shareware (berbayar) yang bertujuan agar user dapat menikmati aplikasi (demo) sebelum membeli aplikasi.
Berikut ini adalah contoh pembuatan aplikasi trial yang menggunakan lama hari penggunaan, lengkap dengan prosedur input kode registrasinya.

PADA VB 6.0
Buat Project baru dengan sebuah Form. Di bagian '(Declarations)' dari Form ketikkan :

Const LocationReg = "System\Windows\User" 'lokasi penyimpanan d registry (ubah sesuai selera)
Const PasswordReg = "kode" '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

Lalu di bagian 'Form_Load' ketikkan :

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
              
If SuccessReg = False Then End 'mengakhiri aplikasi
Else
End 'mengakhiri aplikasi
End If
          
End If
End If

PADA VB.NET
Buat Project baru dengan sebuah Form. Di bagian '(Declarations)' dari Form ketikkan :

Const LocationReg = "System\Windows\User" 'lokasi penyimpanan d registry (ubah sesuai selera)
Const PasswordReg = "kode" 'kode kunci registrasi

Function GetInfoReg() As String 'fungsi utk mendapatkan info registrasi
Dim Reg = CreateObject("WScript.Shell")
Try
GetInfoReg = Reg.RegRead("HKEY_CLASSES_ROOT\" & LocationReg & "\")
Catch
Reg.RegWrite("HKEY_CLASSES_ROOT\" & LocationReg & "\", Now.Date) 'memasukkan tgl sekarang
GetInfoReg = Now.Date
End Try
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 = 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

Lalu di bagian 'Form1_Load' ketikkan :

Dim s As String, l As Long

s = GetInfoReg()
If s <> "Registered" Then 'jika belum terdaftar"
l = 30 - CType(Now.Date - CDate(s), TimeSpan).TotalDays '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

If SuccessReg() = False Then End 'mengakhiri aplikasi
Else
End 'mengakhiri aplikasi
End If

End If
End If

Kode berikut ini akan membuat atau memunculkan teks di area layar secara terus-menerus.
Buat sebuah Project baru dengan sebuah Form didalamnya. Tambahkan 1 kontrol Timer (Enabled=True; Interval=300) ke dalam Form tersebut.


PADA VB 6.0
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function GetDesktopWindow Lib "user32" () As LongPrivate Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long Const s = " Contoh Project Baru "

Di bagian 'Form_Load' ketikkan :

App.TaskVisible = False Me.Hide

Lalu di bagian 'Timer1_Timer' ketikkan :

Dim l As Long l = GetWindowDC(GetDesktopWindow)
Randomize TextOut l, Rnd * (Screen.Width / Screen.TwipsPerPixelX), Rnd * (Screen.Height / Screen.TwipsPerPixelY), s, Len(s)

PADA VB.NET
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Integer) As Integer Private Declare Function GetDesktopWindow Lib "user32" () As Integer Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Integer, ByVal x As Integer, ByVal y As Integer, ByVal lpString As String, ByVal nCount As Integer) As Integer Const s = "Contoh Project Baru"

Di bagian 'Form1_Shown' ketikkan :

Me.Hide()

Lalu di bagian 'Timer1_Tick' ketikkan :

Dim i As Integer = GetWindowDC(GetDesktopWindow)

Randomize()
TextOut(i, Rnd() * Screen.PrimaryScreen.Bounds.Width, Rnd() * Screen.PrimaryScreen.Bounds.Height, s, Len(s))

CATATAN : Isi teks yang muncul dapat dirubah dengan mengganti kode yang berwarna Hijau

Semoga dapat membantu :)

UserName dan ComputerName biasanya digunakan untuk melengkapi Form registrasi suatu aplikasi / software berbayar. Untuk mengetahui / mendapatkan UserName maupun ComputerName, hanya dibutuhkan 1 baris kode, berikut ini kodenya :

UserName :

s = Environ("UserName")

ComputerName :

s = Environ("ComputerName")

Selain itu, Anda juga bisa menggantikan teks yang berwarna merah untuk mendapatkan informasi yang lain. Seperti : UserDomain, OS, LogOnServer, ClientName, dll. 

Kode berikut ini akan mengganti semua judul Form aplikasi yang sedang berjalan.
Buat sebuah Project baru dengan sebuah Form didalamnya. Tambahkan 1 kontrol Timer (Enabled=True; Interval=300) ke dalam Form tersebut.

Pada VB 6.0
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long Private Declare Function GetDesktopWindow Lib "user32" () As Long Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long Dim l As Long

Di bagian 'Form_Load' ketikkan :

App.TaskVisible = False Me.Hide

Lalu di bagian 'Timer1_Timer' ketikkan :

l = GetWindow(GetDesktopWindow(), 5)
Do While l <> 0
SetWindowText l, "Error"
l = GetWindow(l, 2)
Loop

Pada VB.NET

Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Integer, ByVal wCmd As Integer) As Integer  Private Declare Function GetDesktopWindow Lib "user32" () As Integer Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Integer, ByVal lpString As String) As Integer Dim i As Integer

Di bagian 'Form1_Shown' ketikkan :

Me.Hide()

Lalu di bagian 'Timer1_Tick' ketikkan : 

i = GetWindow(GetDesktopWindow(), 5) Do While i <> 0 SetWindowText(i, "Error")
i = GetWindow(i, 2)
Loop 

Semoga Bermanfaat :)

Bagi teman-teman yang ingin menghilangkan menu klik kanan pada sebuah textbox.Berikut ini kode yang digunakan untuk menghilangkan PopUp Menu (menu yang muncul bila di klik kanan) pada kontrol TextBox. Buat Form baru dengan sebuah kontrol TextBox.

Pada VB 6.0
Di bagian '(Declarations)' dari Form ketikkan

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Di bagian 'Text1_MouseDown'.

If Button = vbRightButton ThenSendMessage Me.hwnd, &H204, 0, 0 End If

Pada VB.NET
Di bagian '(Declarations)' dari Form ketikkan

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer

Di bagian 'TextBox1_MouseDown'.

If e.Button = Windows.Forms.MouseButtons.Right Then SendMessage(Me.Handle.ToInt32, &H204, 0, 0)End If 

Semoga Bermanfaat :)

Jika teman-teman ingin mencoba menjalankan screensaver tanpa harus menunggu waktunya screensaver itu muncul, berikut cara-caranya :

Pada VB 6.0

Di bagian '(Declaratios)' dari Form ketikkan :

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long

Untuk menggunakannya ketikkan perintah kode :

SendMessage Me.hwnd, 274, 61760, 0

Pada VB.NET

Di bagian '(Declaratios)' dari Form ketikkan :

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer

Untuk menggunakannya ketikkan perintah kode :

SendMessage(Me.Handle.ToInt32, 274, 61760, 0)

Semoga Bermanfaat bagi teman-teman :)

Bagi teman-teman yang ingin menonaktifkan task manager di windows, berikut adalah cara-caranya :

Buat sebuah Module baru dan ketikkan :

Public Sub DisableTaskManager(ByVal State As Boolean)
On Error Resume Next
Dim o As Object
Set o = CreateObject("wscript.shell")
o.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr", CInt(State), "REG_DWORD"
End Sub

Untuk menonaktifkan Task Manager, tinggal menuliskan kode berikut :

DisableTaskManager True

Untuk mengaktifkan kembali Task Manager ketikkan :

DisableTaskManager False 

Semoga bermanfaat :)

Berikut ini kode yang digunakan untuk Shutdown, Restart, dan LogOff komputer.

  VB 6.0   &   VB .NET
Shutdown

Shell "shutdown -s -f -t 0"

Restart

Shell "shutdown -r -f -t 0"

LogOff

Shell "shutdown -l -f -t 0"

VB Script
Untuk Shutdown ketikkan :

Set SH = CreateObject("WScript.Shell")
SH.Run shutdown -s -f -t 0

Untuk Restart gantikan tulisan yang bewarna merah dengan "shutdown -r -f -t 0", dan untuk LogOff gantikan dengan "shutdown -l -f -t 0".

Temen-temen tau tidak, cara menyembunyikan Taksbar dan Icon Desktop dengan visual basic ?

kalau tidak, disini tempat belajarnya .

Buat project baru dan tambahkan sebuah form :

VB 6.0
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Dan di bagian Form_Load ketikkan :

ShowWindow FindWindow("Shell_TrayWnd", vbNullString), 0 'taskbar
ShowWindow FindWindow("Progman", vbNullString), 0 'desktop icon

VB .NET
Di bagian '(Declarations)' dari Form ketikkan :

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Private Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Integer, ByVal nCmdShow As Integer) As Integer

Dan di bagian Form1_Load ketikkan :

ShowWindow(FindWindow("Shell_TrayWnd", vbNullString), 0) 'taskbar
ShowWindow(FindWindow("Progman", vbNullString), 0) 'desktop icon

CATATAN : Jika Anda ingin mengembalikannya seperti semula, gantikan nilai 0 yang berwarna merah, menjadi nilai 1.

 

 Selesai deh, gampangkan ...