facebook scary prank!

Today I am going to share you about a small code which can scare your friends while chatting..
First of all, go to notepad.
There type the following.

  dim strDot
strDot="."
set ws = CreateObject("wscript.shell")
wscript.sleep 5000
for i = 1 to 100
ws.sendkeys "Initializing : &H246" & 700 + i & "{ENTER}"
wscript.sleep 100
next
wscript.sleep 1500
ws.sendkeys "_Profile ID Found...._{ENTER}"
wscript.sleep 1500
ws.sendkeys "_Targeting Profile..._{ENTER}"
wscript.sleep 1800
ws.sendkeys "_Exploiting Profile_{ENTER}"
wscript.sleep 800
for i = 1 to 20
ws.sendkeys "*Sending Exploits...* : " & i & "{ENTER}"
wscript.sleep 800
next
wscript.sleep 1500
ws.sendkeys "*_Starting Password Attack_*{ENTER}"
wscript.sleep 800
ws.sendkeys "_Attack Type : Brute Force_{ENTER}"
wscript.sleep 1500
for i = 1 to 30
ws.sendkeys "Hacking account Now" & strDot & "{ENTER}"
strDot = strDot & "."
wscript.sleep 800
next
wscript.sleep 1500
ws.sendkeys "*Attack Completed...!*{ENTER}"


 Now, save it as anything.vbs

 Let the prank begin... 
Select a friend who is online and while chatting with him, just double click your anything.vbs and immediately click in the chat box of the person whom you want to scare and see the magic.....


Note: Don't navigate away(click anywhere else) while the prank is going on... If you accidentally click anything other than chat box, then you may have to restart your PC.