childobjects

Dim Desc,counts,list
Set Desc=description.Create
Desc("micclass").value="WebElement"
Desc("class").value="comment"
Set list=Browser("人人网 - 我的留言板").Page("人人网 - 我的留言板").ChildObjects(Desc)
counts=list.count()
For i=0  to counts-1
 Set bj=list.item(i)
    text=Obj.GetROProperty("innertext")
 print "text="&text
 return=instr(1,text,"删除")
 msgbox return
 If return<>0 Then
  Browser("人人网 - 我的留言板").Page("人人网 - 我的留言板").Link("删除").Click
       Browser("人人网 - 我的留言板").Page("人人网 - 我的留言板").WebButton("确定").Click
 End If

Next

 

当micclass用micClass时就会报错general error,但是用小写的不会报错

用childobjects 获取所有子对象