Windows XP pranks/tricks vol. 2

Make Merlin appear and talk!
Open notepad
and copy this codes!

on Error Resume Next

strAgentName2 = "MERLIN"
strAgentPath2 = "C:\Windows\Msagent\Chars\" & strAgentName2 & ".acs"
Set objAgent2 = CreateObject("Agent.Control.2")

objAgent2.Connected = TRUE
objAgent2.Characters.Load strAgentName2, strAgentPath2
Set objPeter = objAgent2.Characters.Character(strAgentName2)



objPeter.MoveTo 700,300
objPeter.Show
objPeter.Play "GetAttention"
objPeter.Play "GetAttentionReturn"


objPeter.Speak("put your message here!")

Wscript.Sleep 1000

Set objAction= objPeter.Hide

Do While objPeter.Visible = True
Wscript.Sleep 250
Loop

Save it as anything.vbs
additional:"You can repeat as many as you want! you can also put this in your start up!"

Unlimited message box prank!!
Open notepad
and copy this codes!

msgbox "type anything you want here!"

do
msgbox "type also whatever you want here!"
loop

Save it as anything.vbs
Note:To stop it open task manager>Process tab then end process "wscript"

Disco Keyboard!
open notepad
copy this codes:

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

Save it as anything.vbs
Note:To stop it open task manager>Process tab then end process "wscript"