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