kode-kode berikut kami berikan kepada anda yang doyan ngerjain temennya, Tp, awas !! jangan disalahgunakan untuk ngerjain si BOS ya ? bisa2 anda di pecat !!
Copy Kode berikut ini, dan pastekan pada notepad dengan memilih save as type : All files dan file name
nama file bergaris bawah diatas bisa anda ganti dengan nama yang lain sesukamu. Tp, ingat,.!! akhiri dengan .vbs
LIHAT GAMBAR BERIKUT
- Klik kanan, pilih new > text document dan pastekan kode-kodenya
simpan seperti gambar dibawah ini :
_____________________________________________
Berikut kodenya :
1. efek : akan mengetik sendiri pada notepad "Kamu belum Mandi, Baunya sapi"
_____________________________________________
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 "K" WScript.Sleep 500 WshShell.SendKeys "a" WScript.Sleep 500 WshShell.SendKeys "m" WScript.Sleep 500 WshShell.SendKeys "u" WScript.Sleep 500 WshShell.SendKeys ". " WScript.Sleep 500 WshShell.SendKeys "L" WScript.Sleep 500 WshShell.SendKeys "o" WScript.Sleep 500 WshShell.SendKeys "m" WScript.Sleep 500 WshShell.SendKeys " " WScript.Sleep 500 WshShell.SendKeys "M" WScript.Sleep 500 WshShell.SendKeys "a" WScript.Sleep 500 WshShell.SendKeys "n" WScript.Sleep 500 WshShell.SendKeys "d" WScript.Sleep 500 WshShell.SendKeys "i" WScript.Sleep 500 WshShell.SendKeys "?" WScript.Sleep 500 WshShell.SendKeys " " WScript.Sleep 500 WshShell.SendKeys "B" WScript.Sleep 500 WshShell.SendKeys "a" WScript.Sleep 500 WshShell.SendKeys "u" WScript.Sleep 500 WshShell.SendKeys "n" WScript.Sleep 500 WshShell.SendKeys "y" WScript.Sleep 500 WshShell.SendKeys "a" WScript.Sleep 500 WshShell.SendKeys " " WScript.Sleep 500 WshShell.SendKeys "s" WScript.Sleep 500 WshShell.SendKeys "a" WScript.Sleep 500 WshShell.SendKeys "p" WScript.Sleep 500 WshShell.SendKeys "i" WScript.Sleep 500 wscript.sleep 5000 loop |
Berikut kodenya :
2. efek : 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 _____________________________________________Berikut kodenya : 2. efek : membuat terus menerus menekan tombol “Enter” _____________________________________________ |
Set wshShell = wscript.CreateObject("WScript.Shell") do wscript.sleep 100 wshshell.sendkeys "~(enter)" loop |
MsgBox "Balik lagi ah...saltik" Set wshShell =wscript.CreateObject("WScript.Shell") do wscript.sleep 100 wshshell.sendkeys "{bs}" loop
Cara menjalankan virusnya :
Klik 2 kali file vbs yang telah disimpan tadi
cara Menghentikannya :
Jangan menggunakan anti virus,. karena virus ini tidak akan terdeteksi,.
Hanya gunakan CTRL + ALT + DEL dan cari script, kemudian end process.
Berrreeessss,..
(virus ini tidak akan merusak komputer/program anda) HANYA iseng !!!
berikan krtik, saran dan komentar anda di bawah ini, dan jangan lupa klik like fanpage facebooknya. Thanks,.
wah kreatif banget mas, boleh nih dicoba untuk iseng.. hehehe.. :P
ReplyDeleteoh iya, cara agar tulisannya enter kebawah bagaimana mas ? terima kasih.. ^^
kalo biar mencet spasi terus gimana gan? sama panah kanan
ReplyDeletemas..
ReplyDeleteaku mau tanya?
biar ada pesannya gimana?
Woi virusnya gk bisa dimatiin bantu dong
ReplyDelete