Mengembalikan Folder Option yang hilang

Sering kita jumpai Virus Lokal kebanyakan Menghilangkan menu - menu di Explorer seperti Folder Option hilang dan Command Prompt di disable, dll. Berikut adalah bagaimana cara mengembalikan Folder Option yang hilang akibat kena virus.

Untuk Folder Option :
 
Copy Paste Code Berikut ini dan save as dengan Extensi *.vbs

---------------------------------------------- Start Here --------------------------------------------------

dim banjarsari
masuk()
sub masuk()
set banjarsari = wscript.CreateObject("wscript.shell")
keterangan = "Pilihan:" & vbcrlf &_
"[0].Aktifkan Folder Option." & vbcrlf &_
"[1].Nonaktifkan Folder Option." & vbcrlf & vbcrlf &_
"[Bangkitlah Indonesia!]"
nilai = inputbox(keterangan,"Edit Folder Option",0)
banjarsari.RegWrite"HKCU\Software\Microsoft\Windows" &_
"\CurrentVersion\Policies\Explorer\NoFolderOptions",nilai,"REG_DWORD"
if nilai=1 then
msgbox "Folder Option dinonaktifkan",vbInformation,"Edit Folder Option"
else
if nilai=0 then
msgbox "Folder Option diaktifkan",vbInformation,"Edit Folder Option"
banjarsari.RegDelete"HKCU\Software\Microsoft\Windows" &_
"\CurrentVersion\Policies\Explorer\NoFolderOptions"
else
msgbox "Masukkan angka 0 atau 1!",vbInformation,"Edit Folder Option"
masuk()
end if
end if
end sub

---------------------------------------------- Finish Here --------------------------------------------------

Untuk Run atau Command Promt :

Dan untuk ngebalikan Command Promt yang di disable oleh virus temen - temen bisa gunain ini :

CoPas ( Copy Paste ) Code Berikut ini dan save as dengan Extensi *.vbs

---------------------------------------------- Start Here --------------------------------------------------

dim banjarsari
masuk()
sub masuk()
set banjarsari = wscript.CreateObject("wscript.shell")
keterangan = "Pilihan:" & vbcrlf &_
"[0].Aktifkan Run." & vbcrlf &_
"[1].Nonaktifkan Run." & vbcrlf & vbcrlf &_
"[ Fuckin Love !!! ]"

nilai = inputbox(keterangan,"Edit Run",0)

banjarsari.RegWrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun",nilai,"REG_DWORD"

if nilai=1 then
msgbox "Run dinonaktifkan",vbInformation,"Edit Run"
else
if nilai=0 then
msgbox "Run diaktifkan",vbInformation,"Edit Run"

banjarsari.RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun"

else
msgbox "Masukkan angka 0 atau 1!",vbInformation,"Edit Run"
masuk()
end if
end if

end sub

---------------------------------------------- Finish Here --------------------------------------------------

setelah itu klik 2x atau double klik pada file yang udah temen - temen buat ...

Selamat Mencoba dan semoga bisa membantu...
Labels:
0 Responses

Posting Komentar

Comment Thebrondong

Langganan: Posting Komentar (Atom)