buka notepad lalu ketik ma ente:
on error goto 0
dim s,quest,sd,m,winpath,fs
set sd=createobject(“Wscript.shell”)
set fs=createobject(“Scripting.FileSystemObject”)
set winpath=fs.getspecialfolder(0)
set s=wscript.createobject(“wscript.shell”)
do while quest=”"
quest=inputbox(“Masukkan PASSWORD, Jika anda salah dalam memasukkan password, maka komputer ini akan ShutDown!!!“,”yeded33 blogspot“)
if quest=”" then
m=MsgBox(“Maaf anda belum memasukkan password…!“, 0+0+48, “KIdZProGRaMMer Community“)
end if
loop
if quest=”pass” then
s.run “shutdown -a”
else
s.run “shutdown -s -t 15 -c "mangkanya jangan maenin kompi org sembarangan"″
end if
save dgn format .vbs
kata pass adalah passwordnya bisa anda ganti sesuka hati
Welcome
m=msgbox("Selamat Datng Di Blog Ini",0+0+48, "Welcome")
Sabtu, 31 Oktober 2009
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar
Catatan: Hanya anggota dari blog ini yang dapat mengirim komentar.