Udah lama gw pengen ngebantai tuh
warnet yang terlalu protektif sama komputernya. Kalo gw mw akses windows
explorer, eh enggak diaktifin. Gimana gw bisa nyimpen data klo yang gw butuhin
di disable mulu. Kaya Task Manager, Folder Option, Registry Editor semuanya di
nonaktifkan. Untungnya gw berfikir kalo setiap user (user biasa) bisa
meng-Update isi registry. Dengan pengetahuan dan sedikit trik, gw bikin aja
file VBScript yang bisa aktifin Registry, Task Manager, dll deh. Intinya sih
semua kuncinya ada diregistry, karena registry adalah database settingan
windows. Tanpa basa basi, nyok kita bantai tuh komputer....hehehehehe :)
Pertama nih, lw buka Notepad:
Klik Start > Run > ketik notepad terus ENTER
Kedua, lw ketik atau copy paste aja kode di bawah ini:
On error resume next
Dim Reg
Set Reg = CreateObject("WScript.Shell")
if msgbox("Kembalikan menu Run ?" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun", "0", "REG_DWORD"
end if
if msgbox("Enable Registry Tool ?" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", "0", "REG_DWORD"
end if
if msgbox("Perlihatkan file hidden" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Advanced\Hidden", "1", "REG_DWORD"
end if
if msgbox("Kembalikan menu Find" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind", "0", "REG_DWORD"
end if
if msgbox("Kembalikan menu Option" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions", "0", "REG_DWORD"
end if
if msgbox("Enable Taskmanager" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", "0", "REG_DWORD"
end if
Ketiga, Lw save deh... caranya tekan Ctrl+S. Di bagian Filename ketik nama sesuai selera, ex: aktif_coy.vbs jangan lupa dibagian Save as type-nya ubah jadi All files.
Terakhir, jalanin sctipt yang udah kita buat dengan cara double klik...Jawab dengan Yes di setiap pertanyaan...
Langsung deh, lw mw obrak-abrik tuh registry dan Systemnya juga ga jadi masalah. :)
Pertama nih, lw buka Notepad:
Klik Start > Run > ketik notepad terus ENTER
Kedua, lw ketik atau copy paste aja kode di bawah ini:
On error resume next
Dim Reg
Set Reg = CreateObject("WScript.Shell")
if msgbox("Kembalikan menu Run ?" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun", "0", "REG_DWORD"
end if
if msgbox("Enable Registry Tool ?" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", "0", "REG_DWORD"
end if
if msgbox("Perlihatkan file hidden" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Advanced\Hidden", "1", "REG_DWORD"
end if
if msgbox("Kembalikan menu Find" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind", "0", "REG_DWORD"
end if
if msgbox("Kembalikan menu Option" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions", "0", "REG_DWORD"
end if
if msgbox("Enable Taskmanager" , VbOkCancel) = VbOK then
Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", "0", "REG_DWORD"
end if
Ketiga, Lw save deh... caranya tekan Ctrl+S. Di bagian Filename ketik nama sesuai selera, ex: aktif_coy.vbs jangan lupa dibagian Save as type-nya ubah jadi All files.
Terakhir, jalanin sctipt yang udah kita buat dengan cara double klik...Jawab dengan Yes di setiap pertanyaan...
Langsung deh, lw mw obrak-abrik tuh registry dan Systemnya juga ga jadi masalah. :)
0 komentar:
Posting Komentar
Thanks For Your Comment