Question

VB WebBrowser如何点击此类按钮

<button onclick="relatekw();return false">可用标签</button><span id="tagselect"></span>

这样的按钮没有name属性，应该怎么点他呢？
WebBrowser1.Document.All("可用标签").InvokeMember ("click")测试过不可以~

请高人指点以下，本人用的是VB6.0不是.NAT呵呵

Answer 1

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim Vdoc,i, S As String
On Error Resume Next
For i = 0 To WebBrowser1.Document.All.length - 1
Set Vdoc = WebBrowser1.Document.All(i)
If UCase(Vdoc.tagname) = "BUTTON" Then
S = Trim(Vdoc.innertext)
If s="可用标签" Then
Vdoc.click
End If
End If
DoEvents
Next
End Sub

Answer 2

直接点就可以的了