看看我的 代码有错吗？？为什么实现不了打开页面，谁来帮帮我

tangxiaomei123

Dim linknum,counter
Set linkdesc=description.Create()
linkdesc("file name").value="btn-shoppingcart.gif"
linkdesc("image type").value="Image Link"
Set linkobj=Browser("name:=txm.92hidc.net - www.mywebsite.com Powered by Hishop").Page("url:=http://localhost/default.aspx","title:=txm.92hidc.net - www.mywebsite.com Powered by Hishop").ChildObjects(linkdesc)                          
linknum=linkobj.count
For counter=1  to  linknum
linkobj(counter).Click
Next
这里是一个网页，有很多的连接，我想用这段代码把所有的连接都打开，这是我自己的代码，那位高手，大虾帮忙看下。

tangxiaomei123

我再网上等着。

dreamever

没有界面的话看代码也看不出太多的东西，我觉的还是先确定一下对象的层次，楼主确定page下面的子对象就一定是link了吗？我印象里很多page下面不会直接跟link，会是webtable或者webelement一类的子对象，然后再下面一层或N层才是link对象。
楼主不妨先按照这个思路查一下。

testlab

For counter=0  to  linknum-1试试?