51Testing软件测试论坛

标题: 看看我的代码有错吗？？为什么实现不了打开页面，谁来帮帮我 [打印本页]

作者: tangxiaomei123 时间: 2009-3-6 12:08
标题: 看看我的代码有错吗？？为什么实现不了打开页面，谁来帮帮我
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 时间: 2009-3-6 12:08
我再网上等着。

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

作者: testlab 时间: 2009-3-6 16:42
For counter=0 to linknum-1试试?

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)