QTP测试之With秒用

如果代码是

Browser("XXX").Page("XXX").Frame("选择人员").Image("按员工ID查找").Click?:?wait?0,500
Browser("XXX").Page("XXX").Frame("选择人员").WebEdit("员工ID").Set?"XXX"
Browser("XXX").Page("XXX").Frame("选择人员").Link("查询").Click?:?wait?2
Browser("XXX").Page("XXX").Frame("选择人员").WebElement("html?tag:=SPAN","innertext:=XXX","index:=0").Click?:?wait?0,500
Browser("XXX").Page("XXX").Frame("选择人员").WebElement("html?tag:=SPAN","innertext:=XXX","index:=0").Click?:?wait?0,500
Browser("XXX").Page("XXX").Frame("选择人员")?.Link("确定").Click

With?Browser("XXX").Page("XXX").Frame("选择人员")
???.Image("按员工ID查找").Click?:?wait?0,500
???.WebEdit("员工ID").Set"XXX"
???.Link("查询").Click?:?wait?2
???.WebElement("html?tag:=SPAN","innertext:=XXX","index:=0").Click?:?wait?0,500
???.WebElement("html?tag:=SPAN","innertext:=XXX","index:=0").Click?:?wait?0,500
???.Link("确定").Click
???wait?2
??End?With 
 

公共部分就被提炼出来了；虽然功能还是一样；

QTP测试之With秒用

原文：http://my.oschina.net/marcello/blog/401960