QTP搜索功能测试

以下是一个用于测试某网站铃音搜索功能的脚本。

脚本首先使用childobjects对象把页面所有Link对象查找出来，其次使用正则表达式匹配每个子对象的运行时text属性（匹配模式为搜索框中输入的值），然后统计搜索到得结果，最后使用随即点击搜索到得下载链接。

缺点是：如果搜索的值为“更多”（页面上有同名且非铃音下载的链接），则可能打开的不是下载链接导致脚本执行失败。

脚本：

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