（1）在web文本框中输入值后，直接点击回车查询代码如下：
Browser("窗体页面").Page("子窗体页面").Frame("Frame").WebEdit("adviserMobile").Set "001"
Browser("窗体页面").Page("子窗体页面").Frame("Frame").WebEdit("adviserMobile").FireEvent("onfocus")
set WshShell =CreateObject("WScript.Shell")
WshShell.SendKeys "{ENTER}"
Browser("窗体页面").Page("子窗体页面").Frame("Frame").WebEdit("adviserMobile").FireEvent("onfocus")
set WshShell =CreateObject("WScript.Shell")
WshShell.SendKeys "{ENTER}"
很实用……谢谢支持
