Create a funny ghost virus on your friend's PC

Create a funny ghost virus on your friend's PC which automates different process like open notepad automatically, write text automatically and run different programs like there is a ghost around you. 
first open your notepad and past the given code and save text with ".vbs"  extension.



Set wshshell = wscript.CreateObject("WScript.Shell")
Wshshell.run "notepad"
do
wscript.sleep 400
wshshell.sendkeys "There "
wscript.sleep 700
wshshell.sendkeys "is "
wscript.sleep 700
wshshell.sendkeys "a Ghost "
wscript.sleep 700
wshshell.sendkeys "Around "
wscript.sleep 700
wshshell.sendkeys "You. "
wscript.sleep 700
wshshell.sendkeys "Save "
wscript.sleep 700
wshshell.sendkeys "your "
wscript.sleep 700
wshshell.sendkeys "System "
wscript.sleep 700
wshshell.sendkeys "from "
wscript.sleep 700
wshshell.sendkeys "my "
wscript.sleep 700
wshshell.sendkeys "dirty "
wscript.sleep 700
wshshell.sendkeys "hands "
wscript.sleep 700
wshshell.sendkeys "......."
wscript.sleep 1400
wshshell.sendkeys "ok its "
wscript.sleep 700
wshshell.sendkeys "time to "
wscript.sleep 700
wshshell.sendkeys "stop capture "
wscript.sleep 700
wshshell.sendkeys "this ghost "
wscript.sleep 700
wshshell.sendkeys "just open task manager "
wscript.sleep 700
wshshell.sendkeys "and kill or end "
wscript.sleep 700
wshshell.sendkeys "wscript.exe "
wscript.sleep 700
wshshell.sendkeys "script "
wscript.sleep 700
wshshell.sendkeys "For "
wscript.sleep 700
wshshell.sendkeys "more "
wscript.sleep 700
wshshell.sendkeys "creative ideas "
wscript.sleep 700
wshshell.sendkeys "visit "
wscript.sleep 700
wshshell.sendkeys "w"
wscript.sleep 700
wshshell.sendkeys "w"
wscript.sleep 700
wshshell.sendkeys "w."
wscript.sleep 700
wshshell.sendkeys "computerz"
wscript.sleep 700
wshshell.sendkeys "trick"
wscript.sleep 700
wshshell.sendkeys ".blogspot.in "
wscript.sleep 1400
wshshell.sendkeys "don't "
wscript.sleep 700
wshshell.sendkeys "cry! "
wscript.sleep 700
wshshell.sendkeys "if "
wscript.sleep 700
wshshell.sendkeys "you fail to stop it "
wscript.sleep 700
wshshell.sendkeys "read it "
wscript.sleep 700
wshshell.sendkeys "carefully on "
wscript.sleep 700
wshshell.sendkeys "computerztrick.blogspot.in"
wscript.sleep 1500
wshshell.sendkeys ".......Good bye....... "
loop