Amankan Flashdisk Dengan VB Buatan sendiri

Disini Kita bisa membuat aplikasi untuk melindungi flashdisk dari virus dengan menggunakan program Visual Basic, biar kalo waktu kita nylokin flashdisk gak ada benda asing yang ngikut :P

List ini pake vb 6.0 coz cuma tuch bahasa pemrograman yang gw ngerti + sedikit logika. Langsung aja buka sebuah project baru pake standard exe trus tambah kompenennya sbb :
- 1 buah form
- 1 buah label
- 1 buah module
- 2 buah optionbotton
Trus ketikkan list berikut pada list code yang disediakan sesuai tempatnya.
'Kode pada form
-------------------------------------------
Public Sub CreateIntegerKey(Folder As String, Value As Integer)
CreateObject("wscript.shell").RegWrite Folder, Value, "REG_DWORD"
End Sub

Public Sub DeleteKey(Value As String)
CreateObject("Wscript.Shell").RegDelete Value
End Sub

Private Sub Form_Load()
Option1.Value = True
Option2.Value = False
Label1.Caption = "YOUR FLASHDISH" & Chr(13) & "Write Protected By Shinigami"
End Sub

Private Sub Form_Unload(Cancel As Integer)
Option2_Click
End Sub

Private Sub Option1_Click()
Option1.Value = True
Option2.Value = False
CreateIntegerKey "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies\WriteProtect", "1"
Label1.Visible = True
End Sub

Private Sub Option2_Click()
Option1.Value = False
Option2.Value = True
Label1.Visible = False
If MsgBox("Normalkan & Tutup Program", vbInformation + vbOKCancel, "CAUTION") = vbOK Then
DeleteKey "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies\WriteProtect"
End
Else
Cancel = 1
Option1_Click
Label1.Visible = True
End If
End Sub
Program nich bisa jalan klo Q-ta aktifkan sebelum flash ditancapkan pada port USB dan berjalan
sekali aja klo dah di tutup program ini tidak berfungsi,lagi coz registry hanya mendeteksi saat
flash pertama kali ditancapkan.
Gitu deh…..yang penting kan buatan ndiri, mudahan membantu ya…..