Harmless Notepad Viruses

1. Matrix this virus will open the command prompt and make a matrix affect,
 STEPS:
1.open notepad
2.copy and paste this code,

@echo off
 color 02
 :tricks
 echo %random%%random%%random%%random%%random%%random%%random%%random%
 goto tricks

3.save as matrix.bat


2.Speaking this virus will open up a little window with a text box. you can enter any text and click ok and your computer will say what you have typed.
STEPS
1.open notepad
2.copy and paste this code

Dim Message, Speak
Message=InputBox("Enter text","Speak")
Set Speak=CreateObject("sapi.spvoice")
Speak.Speak Message

3.save as speaking.vbs

3.Virus this virus will make you type the same word or sentence over and over again. it gets very frustrating
STEPS
1.open notepad
2.copy and paste this code

Set wshShell = wscript.CreateObject("WScript.Shell")
 do
 wscript.sleep 100
 wshshell.sendkeys "This is a Virus. You have been infected."
 loop

3.save as virus.vbs

4.Caps this virus will constantly turn caps and number lock on and off. this will make it hard to type and will become very frustrating.
STEPS
1.open notepad
2.copy and paste this code

Set wshShell =wscript.CreateObject("WScript.Shell")
 do
 wscript.sleep 100
 wshshell.sendkeys "{CAPSLOCK}"
 wshshell.sendkeys "{NUMLOCK}"
 wshshell.sendkeys "{SCROLLLOCK}"
 loop

3.save as caps.vbs

5.Eject this virus will constantly open the DVD-Drive and once you put it back in it will pop out again.
STEPS
1.open notepad
2.copy and paste this 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

3.save as eject.vbs

tip: To stop any of these viruses after activation, you must restart your computer. unless it is the .bat file you just need to click cross.

Warning: We are not responsible for any damage done, use for purposes at your own risk.