根据页面结构使用描述性编程读取网页中的链接
上一篇 /
下一篇 2008-07-29 17:49:20
一、思路：使用GETROPROPERTY 获得对象的输出值
然后使用IF来判断是否和预期一致
然后使用Reporter.ReportEvent
如果不懂如何使用请看QTP帮助
二、描述性语言：
'在脚本中编写使用哪种浏览器开启哪个网页，这样更方便
'定义Browser对象
Dim descBrowser
Set descBrowser = Descrīption.Create()
descBrowser("openurl").value="http://www.google.cn"
'定义Page对象
'定义Link对象，也就是要读取的链接
Dim descLink
Set descLink = Descrīption.Create()
descLink("html tag").value = "A"
'找到包含该Link链接的的父对象DIV，然后通过父对象来获取符合条件的子孙数量（此处为：链接的数量），使用index属性循环读取这些链接即可
For i=0 to 1
set pd_link = Browser(descBrowser).Page(descPage).WebElement("html tag:=DIV","Class:=left","index:="&i).ChildObjects(descLink)
For j=0 to pd_link.count()-1
Browser(descBrowser).Page(descPage).WebElement("html tag:=DIV","Class:=left","index:="&i).Link("index:="&j).click
Browser(descBrowser).back
Next
Next
'根据页面结构使用描述性编程读取网页中的链接 --- 无需依赖对象属性，只要知道页面的结构就可以轻松完成，非常方便实用，大家可以用FireFox中的Debug工具来查看页面属性。
收藏
举报
TAG:
