录制的页面为,登陆http://mail.163.com后的收件箱页面,使用了描述性编程
代码如下:
**********************************************************************
Set table = Description.Create()
table("micclass").value="WebTable"
set lists=Browser("title:=.*").Page("title:=.*").Frame("name:=index").WebTable("name:=收信").ChildObjects(table) '获取类型为“WebTable”的子对象
mm=lists.count
For i=0 to lists.count-1
print "*********"&lists(i).tostring&"*************"
' lists(i).SetTOProperty"Index",i+1
print lists(i).GetTOProperty("name") '红色的部分是获取子对象的名字,但是print出来为空
Next