qtp 小记：link对象参数化

以前看到很多帖子说对对象参数化，不是很懂，刚好录制的时候碰到了这个问题。刚好利用上。

录制人人网留言页面 最近联系人模块，目的是，搜索相应的人名，如果搜索到了就对应的点击

由于我只有只有添加一个link对象库中，但是由于我要搜索的用户名时一直变化的，如果一个个添加到对象库中就会很麻烦，于是刚好想到把link对象参数化，既是用描述性编程

Set list=Browser("人人网 - 我的留言板").Page("人人网 - 我的留言板").Object.getElementById("content").childnodes
'Set list1=list.item(0).childnodes
'print list1.length
'Set list2=list.item(1).childnodes
'print list2.length
Set list3=list.item(2).childnodes
print list3.length
'Set list4=list.item(3).childnodes
'print list4.length

Set  list5=list3.item(0).childnodes
'print list5.length
'print list5.item(3).nodename
Set list6=list5.item(3).childnodes
Dim Odelete,Obj,counts
'建立x-to-hide对象并获取个数
Set delete=description.Create
Odelete("micclass").value="WebElement"
Odelete("class").value="x-to-hide"
Set bj=Browser("人人网 - 我的留言板").Page("人人网 - 我的留言板").ChildObjects(Odelete)
counts=Obj.count
msgbox counts

dim lens,text
num=0
lens= list6.length
For i=0 to lens-1
   text=list6.item(i).innertext
   text=trim(text)
   '对link对象参数化，描述性编程
   Browser("人人网 - 我的留言板").Page("人人网 - 我的留言板").Lin("innertext:="&text).click   If text="刘晓凤" then
    msgbox  "匹配成功"
  
       j=i
  
       Obj.item(j).click
   End If

Next