zxz1337 发表于 2009-11-20 18:13:40

请问,下边这种写法为什么没有内容呢?

:) On Error Resume Next
Set Doc = Browser("Google").Page("Google").Object'获取page中的所有对象
msgbox Doc.all
For Each Element In Doc.all
        TagName = Element.TagName   '获取标签名
        InnerText = Elemment.InnerText   '获取InnerText
    Reporter.ReportEvent micDone, TagName,InnerText
Next

ermine 发表于 2009-11-20 20:12:44

1. On Error Resume Next,所以不报错,继续执行。
2.msgbox Doc.all   Doc.all是个对象的集合,不能用msgbox
3.Elemment写错了,多了个m
页: [1]
查看完整版本: 请问,下边这种写法为什么没有内容呢?