WScript.Sleep 1000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 500
WshShell.AppActivate "Notepad"
WScript.Sleep 500
WshShell.SendKeys "sa"
WScript.Sleep 500
WshShell.SendKeys "lam"
WScript.Sleep 500
WshShell.SendKeys "   ta  "
WScript.Sleep 500
WshShell.SendKeys "    hala    afshar-"
WScript.Sleep 500
WshShell.SendKeys "themer"
WScript.Sleep 500
WshShell.SendKeys "    ro"
WScript.Sleep 500
WshShell.SendKeys "    didid?"
WScript.Sleep 500
WshShell.SendKeys "  "
WScript.Sleep 500
WshShell.SendKeys "    www.afshar-"
WScript.Sleep 500
WshShell.SendKeys "themer"
WScript.Sleep 500
WshShell.SendKeys "."
WScript.Sleep 500
WshShell.SendKeys "blog"
WScript.Sleep 500
WshShell.SendKeys ".ir"