Tempat ngumpulnya anak Himatika Perbanas
 
IndeksPortailCalendarFAQAnggotaGroupPencarianPendaftaranLogin

Share | 
 

 Mengakses Registry bertipe Dword dengan VBS

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
yadoy666
Script Learner
Script Learner


Jumlah posting : 121
Registration date : 20.09.07

PostSubyek: Mengakses Registry bertipe Dword dengan VBS   Thu Aug 28, 2008 8:49 pm

Code:

dim yadoy666
masuk()
sub masuk()
set yadoy666 = wscript.CreateObject("wscript.shell")
keterangan = "Pilihan:" & vbcrlf &_
"[0].Aktifkan Run." & vbcrlf &_
"[1].Nonaktifkan Run." & vbcrlf & vbcrlf &_
"[YaDoY SoFtWarE DeVeLoPmEnT]"

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

yadoy666.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"

yadoy666.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


Copyleft YaDoY SoFtWaRe DeVeLoPmEnT
Kembali Ke Atas Go down
Lihat profil user http://yadoy666.blogspot.com
 
Mengakses Registry bertipe Dword dengan VBS
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» bercanda dengan LOGIKA
» bedanya ninja 250 dengan ninja 250 se
» HELP!!! beda MOTUL 5100 dengan MOTUL H-TECH
» WTA-Bedanya pake Open Filter dengan Replacement Air Filter
» [ASK] beda nya Master Rem Radial dengan yang Biasa

Permissions in this forum:Anda tidak dapat menjawab topik
Himatika Perbanas :: Interaksi Forum Pilihan :: Forum Membahas Semua Jenis Programming-
Navigasi: