Proteksi CD Pribadi Anda !!
Pernahkah anda menyimpan data atau dokumen rahasia ?
Jika pernah, saya akan beritahukan solusi aman untuk menyimpan data tersebut.
Salah satunya dengan memakai aplikasi Visual Basic 6.0. Jika anda belum punya Software-nya, ya..terpaksa anda harus beli dulu software-nya.
Jika data anda di simpan di Hardisk tentunya data anda bisa di cari atau mungkin di bajak secara diam-diam oleh orang lain.
Cara yang pertama adalah sebagai berikut :
Buka VB kita lalu klik standard EXE
Masukan item-item sebagai berikut :
4 Label, 2 textbox, 2 timer, 1 module dan 2 command
Berikut propertiesnya :
Form1 : nama ==> frmpassword
text1 : nama ==> txtnama
text2 : nama ==> txtpassword dan passwordchar isi dengan tanda bintang ( * )
label1: caption jadi “Masukan Password Anda..!!!“
label2: caption jadi "nama"
label4: caption jadi "password"
label3: nama ==> peringatan dan caption ganti dengan “Akses Akan Ditolak Saat 15 Detik”
timer1 ganti intervalnya jadi 15000 yang nanti cd otomatis keluar dalam waktu 15 detik
timer2 ganti intervalnya jadi 50
Buat tampilannya semenarik mungkin atau bisa lihat seperti gambar diatas..!!!
Setelah selesai mengatur tampilan kita lanjut dengan penulisan perintahnya..!!! Copy source kode dibawah ini. Kembali pada Vb kita Klik menu view pada menu bar lalu pilih code..!!! Pastekan kode tadi disana..!!!
############################
Option Explicit
Dim buka As Long
Dim huh As Long
Private Sub Command1_Click()
Dim a As Integer
Do While (True)
If (txtnama.Text = "ebenk" And txtpassword.Text = "789asd") Then
a = MsgBox("ThanKs For Your Password..!! Jangan Kasih Tau Siapa-Siapa Ya..!!", vbInformation + vbOKOnly, "Disk Ebenk BerJaya")
Unload frmpassword
Exit Do
End
Else
buka = CdRoOmX("set CDAudio door open", huh, 127, 0) ' >> Code untuk membuka CD TRay
End If
Loop
End Sub
Private Sub Command2_Click()
buka = CdRoOmX("set CDAudio door open", huh, 127, 0) ' >> Code untuk membuka CD TRay
Unload Me
End Sub
Private Sub Timer1_Timer()
buka = CdRoOmX("set CDAudio door open", huh, 127, 0) ' >> Code untuk membuka CD TRay
End Sub
Private Sub Timer2_Timer()
Label3.ForeColor = QBColor(Rnd * 15)
End Sub
############################################
Tambahkan module dengan klik project pada menu bar lalu pilih add module.
Copy pastekan kode berikut pada module
############################################
Option Explicit
Declare Function CdRoOmX Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
############################################
Tekan F5 untuk menjalankannya..!!! Bagiamana Coba test apakah dalam 15 detik Cdrom kamu keluar otomatis atau gak..???
Setelah di perkirakan berhasil tinggal buat exe filenya yaitu dengan klik file pada menu bar pilih make project1.exe, lalu save dengan nama terserah kamu contoh protector.exe
Ket: pada tulisan yang berwarna merah kamu dapat menggantinya sesuai kebutuhan..!!! dan untuk contoh program ini gunakan user namenya "ebenk" dan password "789asd"
Setelah selesai membuat program tinggal buat autorunnya pada notepad dengan menuliskan kode dibawah ini lalu save dengan nama autorun.inf
#####################
[autorun]
OPEN=protector.exe
ICON=protector.exe
#####################
PERINGATAN !!
TANDA "#" Hanya sebuah garis pembatas saja, jangan dimasukan pada code VB ! !
