Fool with VBScript

#1 Convey your friend a little message and shut down his / her computer:
Open your notepad and copy then paste this script:

@echo off
msg * I don't like you
shutdown -c "Error! You are too stupid!" -s

Save As "whatever.bat"

Save as type select "All Files" then click save button.

#2 Continually pop out your friend's CD Drive. If he / she has more than one, it pops out all of them!
Open your notepad and copy then paste this script:

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 As " whatever .vbs"

Save as type select "All Files" then click save button.

#3 Frustrate your friend by making this VBScript hit Enter simultaneously

Open your notepad and copy then paste this script:

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

Save As " whatever .vbs"

Save as type select "All Files" then click save button.

#4 Open Notepad, slowly type "Hello, how are you? I am good thanks" and freak your friend out:
Open your notepad and copy then paste this script:

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 As " whatever .vbs"

Save as type select "All Files" then click save button.

#5 Frustrate your friend by making this VBScript hit Backspace simultaneously:
Open your notepad and copy then paste this script:

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

Save As " whatever .vbs"

Save as type select "All Files" then click save button.

#6 Hack your friend's keyboard and make him type "You are a fool" simultaneously:
Open your notepad and copy then paste this script:

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "You are a fool."
loop

Save As " whatever.vbs"

Save as type select "All Files" then click save button.

#7 Open Notepad continually in your friend's computer:
Open your notepad and copy then paste this script:

@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top
Save As " whatever.bat"

Save as type select "All Files" then click save button.

#8 Hard prank: Pick your poison batch file. It asks your friend to choose a number between 1-5 and then does a certain action:
Open your notepad and copy then paste this script:

1: Shutdown
2: Restart
3: Wipes out your hard drive (BEWARE)
4: Net send
5: Messages then shutdown

@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 As "whatever.bat"

Save as type select "All Files" then click save button.