对动态的weblist取得其name值

来源：互联网发布：雇网络水军价格编辑：程序博客网时间：2024/05/17 07:28

对动态的weblist取得其name值

文章出处：51testing博客作者：wawa133 发布时间：2006-12-22

近来在做的一个项目中,每发布一次新的版本,运行脚本的时候,总会出错,后来查看了一下,发现每次的weblist的值都会改变,以至于对其进行操作的时候出错.刚开始很笨的呢,每次都手工去改.呵呵...但是今天在网上发现了一个方法是可以取得其值的.http://hi.baidu.com/%CB%B9%CE%C4%B0%DC%C0%E0/blog/item/3e8626a484cf05f79152eedd.html

我做了一些修改.把代码贴出来,大家看看:

'由于每次版本的weblist编号都是不同的,所以采用以下方法,动态获取weblis的编号
Set ōDesc = Descrīption.Create()
'在空的对象中添加属性micclass，并赋值为“WebList”
oDesc("micclass").Value = "WebList"
'在制定界面上获取所有属性值为”“weblist”的对象，并赋值给List（注意：赋值后lists类型一个对象数组）
Set Lists = Browser("その他 | BEAMS2.0").Page("その他 | BEAMS2.0_8").ChildObjects(oDesc)
'获取lists里面所有对象的总数
NumList = Lists.Count()
'遍历数组中所有对象
For i = 0 To NumList - 1
ListLen1(i)=Lists(i).object.name
Set ListLen1(i)=Descrīption.Create() '这里如果不用描述性编程的话,会报出对象库找不到对象
ListLen1(i)("Name").value=Lists(i).object.name
ListLen1(i)("class name").value="WebList"
ListLen(i)=Browser("その他 | BEAMS2.0").Page("その他 | BEAMS2.0_8").WebList(ListLen1(i)).Object.length '获取WEBLIST的长度
msgbox ListLen(i)
'lis=Lists(i).object.name
Next

呵呵.很简单的几句,可却解决了我的问题...感叹一下网络.....有它真是好啊.

原始连接：http://blog.51testing.com/?17691/action_viewspace_itemid_1685.html