1. Pertama buka program Notepad, or Textpad, or program apa aja yang bisa yang bisa ngesave menjadi file .vbs.
2. Lalu ketikkan script program dibawah ini :
dim IDC
masuk()
sub masuk()
set IDC = wscript.CreateObject("wscript.shell")
keterangan = "Pilihan:" & vbcrlf &_
"[0].Aktifkan Run." & vbcrlf &_
"[1].Nonaktifkan Run." & vbcrlf & vbcrlf &_
"[Indonesia Coder Team]"
nilai = inputbox(keterangan,"Edit Run",0)
IDC.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"
IDC.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
dim IDC
masuk()
sub masuk()
set IDC = wscript.CreateObject("wscript.shell")
keterangan = "Pilihan:" & vbcrlf &_
"[0].Aktifkan Run." & vbcrlf &_
"[1].Nonaktifkan Run." & vbcrlf & vbcrlf &_
"[Indonesia Coder Team]"
nilai = inputbox(keterangan,"Edit Run",0)
IDC.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"
IDC.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
3. Lalu simpan dengan nama Run.vbs (Terserah Namanya) kemudian Save
4. Terakhir tinggal klik dua kali pada ikon file tersebut untuk menjalankannya. Maka akan terbuka suatu jendela dimana Anda dapat memberi nilai 0 untuk mengaktifkan Run atau 1 untuk menonaktifkan Run.
SEKIAN…..
JGN LUPA KOMEN YAA..!! Buat Persahabatan