Dim Num,ALL_Link,a
Set LinkText=description.Create()
LinkText("Class Name").value="Link"
Set ALL_Link=Browser("百度新闻搜索——全球最大的中文新闻平台").Page("百度新闻搜索——全球最大的中文新闻平台").ChildObjects(LinkText)
Num=ALL_Link.Count'调试的时候发现Num的值为0
For i= 0 To Num -1
a = All_Link(i).GetROProperty("text")
msgbox a
Next作者: baggiojeremy 时间: 2011-4-21 10:59
LinkText("Class Name").value="Link"
把 Class Name 改成 className试试作者: hsjzfling 时间: 2011-4-21 14:29
"Class Name"是不能作为描述性属性的,改成"micclass"作者: anjao 时间: 2011-5-18 15:07 回复 3#hsjzfling