Link参数化
上一篇 /
下一篇 2007-07-10 16:37:31
/ 个人分类:QTP录制脚本
SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE","","C:\Documents and Settings\dgao","open"
Browser("Browser").Page("Page").Sync
Browser("Browser").Navigate "http://www.tudou.com/index.html"
Browser("Browser").Page("土豆网 - 视频 - 播客 - 每个人都是生活的导演").Link("首 页").Click
Browser("Browser").Page("土豆网 - 视频 - 播客 - 每个人都是生活的导演").Sync
Dim i, j, tags, element, arr()
Set tags=Browser("Browser").Page("土豆网 - 视频 - 播客 - 每个人都是生活的导演").Object.links
i=0
For Each element in tags
If Ucase(element.tagname)="A" Then 'and left(element.InnerText,1)="["
ReDim Preserve arr(i+1)
arr(i)=element.InnerText
i=i+1
end if
Next
'msgbox i
'msgbox arr(24)
For j=0 to 10
Browser("Browser").Page("土豆网 - 视频 - 播客 - 每个人都是生活的导演").Link("首 页").SetTOProperty "target",""
Browser("Browser").Page("土豆网 - 视频 - 播客 - 每个人都是生活的导演").Link("首 页").SetTOProperty "Text",arr(j)
Browser("Browser").Page("土豆网 - 视频 - 播客 - 每个人都是生活的导演").Link("Text:=" & arr(j)).Click
Browser("Browser").Back
Next
收藏
举报
TAG:
QTP
QTP录制脚本