|
4#
楼主 |
发表于 2010-8-27 09:42:50
|
只看该作者
Set oDesc = Description.Create()
oDesc("micclass").Value = searchType
Set Lists = Browser(sBrowser).Page(sPage).ChildObjects(oDesc)
NumberOfLists = Lists.Count()
For i = 0 To NumberOfLists - 1
if Lists(i).Object.href <> "" Then
Reporter.ReportEvent micPass,Lists(i).Object.innertext,Lists(i).Object.href
print Lists(i).GetRoproperty("html tag")
print Lists(i).GetRoproperty("name")
print Lists(i).GetRoproperty("micclass")
print Lists(i).GetRoproperty("innertext")
print Lists(i).GetRoproperty("text")
Else
Reporter.ReportEvent micFail,Lists(i).Object.innertext,Lists(i).Object.href
End if
Next
上面代码最后打印的结果如下:
=============1==========
A
单击此处关闭该网页。
Link
单击此处关闭该网页。
单击此处关闭该网页。
=============2==========
A
继续浏览此网站(不推荐)。
Link
继续浏览此网站(不推荐)。
继续浏览此网站(不推荐)。
============3=============
A
更多信息
Link
更多信息
更多信息
我需要的是点击第二个对象,为什么还是提示找不到该对象呢? |
|