Rabu, 08 Februari 2012

Mendisable Media Penyimpanan Menggunakan VB.net

scrip ini berguna untuk mendisable media penyimpanan external yang akan di masukan ke pc atau laptop sehingga tidak bisa ke detek..
heheheheheheee biasa otak jahil :P

pertama jalankan dulu visual studio 2005nya bikin new project z...
terus di form nya siapin dua button..
abis itu masukin scrip dibawah ni:


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Reg As Object = CreateObject("Wscript.Shell")
        Reg.RegWrite("HKLM\System\CurrentControlSet\Services\USBSTOR\Start", 4, "REG_DWORD")
    End Sub
'scrip diata buat ngedisable...

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim Reg As Object = CreateObject("Wscript.Shell")
        Reg.RegWrite("HKLM\System\CurrentControlSet\Services\USBSTOR\Start", 3, "REG_DWORD")
    End Sub
'scrip yang ni buat ngebatalin scrip diatas... caranya di restart dulu ok..


semoga bermanfaat...

Tidak ada komentar:

Posting Komentar