Making a non Harmful virus

     Virus

Non Harmful virus (Only for Educational Purposes)

1 Virus

To make this virus Open notepad   (In this virus your cd drive will get open again and again)

1Type

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

2Then click save as and name it virus.vbs then open it and you will se your cd player will opening again and again 

3To close this open task manager and in background process you will find Microsoft window based script just end task it

2Virus

To make this virus open notepad (In this if you have light on your caps lock button, numlock button  light will start blinking on your buttons )

1Type

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

do

wscript.sleep 100

wshshell.sendkeys  "{CAPSLOCK}"

wshshell.sendkeys  "{NUMLOCK}"

wshshell.sendkeys  "{SCROLLLOCK}"

LOOP

2 Then click save as and name virus2.vbs

3To close this open task manager and in background process you will find Microsoft window based script just end task it