Set o = CreateObject("WScript.Shell")
' Activate directly by PID 10644
o.AppActivate(10644)
WScript.Sleep 2000
o.SendKeys "^f"
WScript.Sleep 2000
o.SendKeys "huafeng"
WScript.Sleep 1000
o.SendKeys "waiku"
WScript.Sleep 1000
o.SendKeys "jiliang"
WScript.Sleep 2000
o.SendKeys "{ENTER}"
WScript.Sleep 2000
o.SendKeys "{ENTER}"
WScript.Quit