根据页面结构使用描述性编程读取页面中经常变动的内容 ---- 无需依赖对象-1

来源：互联网发布：mysql 分表与性能编辑：程序博客网时间：2024/06/02 01:11

根据页面结构使用描述性编程读取网页中的链接 --- 无需依赖对象 '在脚本中编写使用哪种浏览器开启哪个网页，这样更方便

BLOCKQUOTE {MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; MARGIN-LEFT: 2em}OL {MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px}UL {MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px}

InvokeApplication "C:/Program Files/Internet Explorer/IEXPLORE.EXE http://www.google.cn/"

'定义Browser对象

Dim descBrowser Set descBrowser = Descrīption.Create() descBrowser("openurl").value="http://www.google.cn"

'定义Page对象

Dim descPage Set descPage = Descrīption.Create() descPage("url").value="http://www.google.cn"

'定义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工具来查看页面属性。