automatic typing in notepad

1. Open the Notepad and Type the Code Given Below.



set wshshell = wscript.CreateObject("wscript.shell")
wshshell.run "Notepad"
wscript.sleep 2000
wshshell.AppActivate "Notepad"
WshShell.SendKeys "Hello Frnds"
WScript.Sleep 500
WshShell.SendKeys "Welcome to"
WScript.Sleep 500
WshShell.SendKeys "Mystery World. "
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys "Thanks for visiting."

Save it as anyname.vbs (Note the vbs extension)

Now Open the anyname.vbs file by doublecliking on it and see the Magic