|
以下是一个用于测试某网站铃音搜索功能的脚本。
脚本首先使用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 ' 随即点一个结果 |
|