好急!WebBrowser获取class的值

[beitongren]

好急!WebBrowser获取class的值,每次值都不同

<input type="button" value="发表"  class="65656" disabled title="此信息没有发表"></input>
<input type="button" value="发表"  class="wns11" disabled title="此信息已发表"></input>

[AddDark]

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim vDoc, vTag
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "INPUT" Then
Set vTag = vDoc.All(i)
If vTag.Type = "button" Then
If vTag.Title = "此信息没有发表" Then MsgBox vTag.Class
If vTag.Title = "此信息已发表" Then MsgBox vTag.Class
End If
End If
End If
Next
End Sub

[Tiger_Zhao]

Dim oTags As Object
Dim oElement As Object

Set oTags = WebBrowser1.document.getElementsByTagName("input")
For Each oElement In oTags
    Select Case oElement.className
        Case "65656", "wns11"
            Debug.Print oElement.className, oElement.Value
    End Select
Next

[AddDark]

把倒数第3个 end if 去掉

[Tiger_Zhao]

不知道是要
　　获取指定class对应的value
还是
　　简单获取class？

[AddDark]

[Quote=引用 4 楼 tiger_zhao 的回复:]
不知道是要
　　获取指定class对应的value
还是
　　简单获取class？
[/Quote]

咋们1人50分好咧，最近问这个问题的人貌似很多

[SYSSZ]

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim L,i
Dim obj
L = WebBrowser1.Document.getElementsByTagName("input").length - 1
For i = 0 To L
Set obj = WebBrowser1.Document.getElementsByTagName("input")(i)
If obj.Title = "此信息没有发表" Then
MsgBox obj.ClassName
End If
Next
End Sub

[SYSSZ]

其实也可以用 i的值来直接定位Input标签,如：
s = WebBrowser1.Document.getElementsByTagName("input")(0).ClassName

s = WebBrowser1.Document.getElementsByTagName("input")(1).ClassName

[freeismianfei]

进来学习