NewbieLabs adalah tempat untuk belajar, bukan untuk menggurui, jadi kita sama-sama berdiskusi disini, jika ada yang bingung silahkan ditanyakan, jika saya bisa jawab akan saya jawab, jika tidak silahkan teman-teman yang lain yang sekiranya tahu untuk membantu menjawab.

Semua tutorial disini diusahakan akan disertai gambar agar lebih jelas dan yang terpenting situs ini menggunakan bahasa indonesia/melayu, jadi buat kalian yang belum begitu paham bahasa inggris tidak perlu khawatir, kalian tetap bisa belajar disini.

Jika ada yang ingin menjadi kontributor (memposting tutorial atau tips dan trik sekitar blogger, css, html, javascript ataupun wordpress) silahkan tinggalkan komentar di Shoutbox

Mohon maaf jika kualitas gambar tidak begitu bagus, ini dikarenakan agar web dapat terbuka dengan cepat, namun tetap bermanfaat dengan gambar yang bisa membantu, dan jika dirasa gambar terlalu kecil, coba klik gambar tersebut untuk melihat lebih jelas...

Koleksi NewbieLabs

Hitung Kata


Tuesday, December 30, 2008

Memunculkan "Folder Options" Yang Hilang

Author : Belajar Blogger (newbielabs.blogspot.com)

Setelah lama bertapa "huhuhuhu..." akhirnya bisa posting lagi deh, kali ini ada tips yang barusan aku temuin ketika ga sengaja surfing di internet.. ini adalah sebuah script yang digunakan untuk mengaktifkan kembali tools "Folder Options" yang hilang/disembunyikan/didisable baik itu oleh virus maupun oleh tangan2 tak bertanggung jawab...

O iya sepenuhnya credit goes to : Rayap.Kota (moderator yahooindo.com)


dim rayap
masuk()
sub masuk()
set rayap = wscript.CreateObject("wscript.shell")
keterangan = "Pilihan:" & vbcrlf &_
"ketik 0.Aktifkan Folder Option." & vbcrlf &_
"ketik 1.Nonaktifkan Folder Option." & vbcrlf & vbcrlf &_
"Rayap Kota"
nilai = inputbox(keterangan,"Edit Folder Option",0)
rayap.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"
rayap.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



Simpan code tsb dengan extensi *.vbs setelah itu coba jalankan, Insya Allah folder optionsnya bakalan muncul kembali (tested by me..!!)

1 comments:

Jetri Andarka said...

wah bagus nih...
heeehheeee...

thanks ya tetap menampilkan create by rayap.kota

gabung di http://www.osic.web.id juga ya

rayap.kota

Post a Comment