求教:如何利用MSHTML对像获取网页中的CheckBox元素对应的文字.

[lorl2]

如题,
我想用VB写一个涵数,输入一个网址,就获取这个网页上的所有的CheckBox元素的值和对应的文字.
值有对应的对像可以获取,但是文字不知道该怎么样才能做到通用性,也就是说对各个不同的网站都有效.


另外,求书一本《Microsoft Internet Explorer 5程序设计》电子中文版.


万分感谢. 分不够可以单独再加

[happy_sea]

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Dim o
    For Each o In WebBrowser1.Document.All
        If LCase(o.tagname) = "input" Then
            If LCase(o.Type) = "checkbox" Then
                Debug.Print o.Value
            End If
        End If
    Next
End Sub

[happy_sea]

用Value可以取到值，但是OuterText有时候取不到文字，哪位知道怎么回事？

[lorl2]

取值很简单,但是取文字不一样.
它不像VB中的控件一样有个Caption或者Text属性.

楼上的也在头痛这个吗?

[lorl2]

objOptionButton.parentElement.outerText

这个方法倒是可以取到文字,但不够理想.

[happy_sea]

嗯，我也试过parentElement.outerText，但是会把一组CheckBox的文字全取到，确实不理想

[lorl2]

顶上去,直到问题解决

[lorl2]

顶上去,直到问题解决

[lorl2]

再顶上去,直到问题解决

[HPAction]

或者你可以换一个思路，用正则表达式更快速匹配。