Berikut ini adalah iseng-iseng membuat virus kecil-kecilan. Mengapa kecil-kecilan ? karena jika anda membuat virus dengan skala berat, maka anda akan diproses secara hukum. Meski virus ini kecil-kecilan, tetapi cukup untuk ngerjain temen anda,.
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
|
Terus tekan backspace:
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,.