Set o = CreateObject("WScript.Shell")
o.AppActivate(10644)
WScript.Sleep 3000
o.SendKeys "^f"
WScript.Sleep 3000
'o.SendKeys "wkkj"
o.SendKeys "huafeng"
WScript.Sleep 2000
o.SendKeys "{ENTER}"
WScript.Sleep 3000
o.SendKeys "{ENTER}"
WScript.Sleep 3000