Drive Hider V.2

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Assalamualaikum Wr. Wb

Drive Hide,,, disini kita akan membahas bagaimana menyembunyikan partisi drive. Adapun tutorial kali ini, kita tidak membahas delphi. Tapi kita akan menggunakan VBS.

*catatan : Script ini akan berjalan setelah komputer restart !!

OK kita mulai..

Buka Notepad (terserah pake apa yg penting teks editor)
Copy Script dibawah dan simpan dengan Ekstensi .Vbs

dim klikbebas
masuk()
sub masuk()
set klikbebas = wscript.CreateObject("wscript.shell")

keterangan = "Baca aturan pakai :" & vbcrlf &_
"[0].Menampilkan kembali Drive, ketikkan 0." & vbcrlf &_
"[1].Menyembunyikan Drive C, ketikkan = 4." & vbcrlf &_
"[2].Menyembunyikan Drive D, ketikkan = 8" & vbcrlf &_
"[3].Menyembunyikan Drive E, ketikkan = 16" & vbcrlf &_
"[4].Menyembunyikan Drive F, ketikkan = 32" & vbcrlf & vbcrlf & vbcrlf &_
"[Ilmu Komputer]" & vbcrlf &_
"visit to my blog : http://remajateknologi.blogspot.com"

tanya = inputbox(keterangan,"HIDDEN DRIVE",0)
klikbebas.RegWrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives",tanya,"REG_DWORD"
if tanya=4 then
msgbox "Drive C telah disembunyikan, Silahkan restart atau log off komputer anda, untuk melihat hasilnya",vbInformation,"HIDDEN DRIVE"
else
if tanya=8 then
msgbox "Drive D telah disembunyikan, Silahkan restart atau log off komputer anda, untuk melihat hasilnya",vbInformation,"HIDDEN DRIVE"
else
if tanya=16 then
msgbox "Drive E telah disembunyikan, Silahkan restart atau log off komputer anda, untuk melihat hasilnya",vbInformation,"HIDDEN DRIVE"
else
if tanya=32 then
msgbox "Drive F telah disembunyikan, Silahkan restart atau log off komputer anda, untuk melihat hasilnya",vbInformation,"HIDDEN DRIVE"
else
if tanya=0 then
msgbox "Drive telah ditampilkan kembali, Silahkan restart atau log off komputer anda, untuk melihat hasilnya",vbInformation,"HIDDEN DRIVE"
klikbebas.RegDelete"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives"
else
msgbox "Angka yang anda masukkan belum benar",vbInformation,"HIDDEN DRIVE"
masuk()
end if
end if
end if
end if
end if
end sub