Make your freind faint with these mini tools

Remember!!
This mini codes will not harm any computer. These are just for fun.

1. It will show some message regularly. Won't stop in anyway. Require PC restart.
Open Notepad and type the codes below.

@ECHO off
:Begin
msg * Hi
msg * Are you having fun?
msg * I am!
msg * Lets have fun together!
msg * Because you have been o-w-n-e-d
GOTO BEGIN

save it as  "Anyname.BAT" and double click to fun.

 2. It will show a message and shutdown computer.
Type this code in Notepad

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

Save as  "Anyname.BAT"

3. Caps Lock button will on and off again and again.
Type in Notepad the code below:

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

Save as  "Anyname.VBS"

4. CD/ DVD Rom tray will open and close again and again.
Type in Notepad:

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 "Anyname.VBS"

5.

Hack your friend's keyboard and make him type "You are a fool" simultaneously:
Type in Notepad:

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

Save as "Anyname.VBS" and double click to run for fun.

Remember: You can close this code in anyway. Need to restart the computer. So do your works first before run this codes.