VB WebBrowser如何点击此类按钮

来源：百度知道 编辑：UC知道 时间：2024/06/04 17:29:23
<button onclick="relatekw();return false">可用标签</button><span id="tagselect"></span>

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

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

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

直接点就可以的了