QTP实例：搜索功能测试

Browser("***").Page("****").WebButton("搜索").Click
Set  LinksDescription = Description.Create()
LinksDescription("html tag").value="A"
set  LinksChildObj=Browser("*****").Page("****").ChildObjects(LinksDescription)
 linkscount=LinksChildObj.count
Dim i,text,sertchResult
j=0
For i=0 to linkscount-1
text= LinksChildObj(i).GetRoproperty("text")
Set myReg= New RegExp
myReg.Pattern ="等一分钟"
myReg.IgnoreCase = True
myReg.Global = True
If myReg.test(text) Then j=j+1
Next
'msgbox(j)
'msgbox(LinksChildObj(j-1).GetRoproperty("text"))
k=randomNumber(0,j-1)
msgbox(k)
LinksChildObj(k).Click

版权声明：原创作品，转载时请务必以超链接形式标明本文原始出处、作者信息和本声明，否则将追究法律责任。 本文出自aslandhu的51Testing软件测试博客：http://www.51testing.com/?194902

以下是一个用于测试某网站铃音搜索功能的脚本。 　　脚本首先使用childobjects对象把页面所有Link对象查找出来，其次使用正则表达式匹配每个子对象的运行时text属性（匹配模式为搜索框中输入的值），然后统计搜索到得结果，最后使用随即点击搜索到得下载链接。 　　缺点是：如果搜索的值为“更多”（页面上有同名且非铃音下载的链接），则可能打开的不是下载链接导致脚本执行失败。 　　脚本：