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

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

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