Question

vb webbrowser 获取A 标签的内容 <a href="http://localhost/lailu.php?id=2" >点击</a> 怎么获取"点击"

vb webbrowser 获取A 标签的内容
<a href="http://localhost/lailu.php?id=2" >点击</a>
怎么获取"点击"
找到了:
For i = 1 To WebBrowser1.Document.All.length - 1
If UCase(WebBrowser1.Document.All(i).tagname) = "A" Then
If InStr(WebBrowser1.Document.All(i).innertext, stu) > 0 Then
WebBrowser1.Document.All(i).Click
'Print WebBrowser1.Document.tagname("A").Target.Value
Print WebBrowser1.Document.All(i).innertext
End If
End If
Next i

Answer 1

示例
Private Sub web1_DocumentComplete(ByVal pDisp As Object, URL As Variant) '取词
Dim vTag, i As Integer, vCount As Integer
'If (pDisp Is web1.Object) Then

If web1.ReadyState = READYSTATE_COMPLETE Then 'web1完成网页,这里的判断包括iFram的框架网页在内。

If web1.LocationURL = "http://top.baidu.com/" Then '如果是主页

'取网址开始
Set vTag = web1.Document.getElementsByTagName("a") '历扁所有a的标签
vCount = vTag.length
For i = 0 To vCount - 1
If InStr(vTag(i).href, "top.baidu.com/buzz/") > 0 Then '判断链接中是否存在指定的字符
If Not InStr(vTag(i).innerText, "更多") > 0 Then '排除"更多"这个名称
List2.AddItem vTag(i).href & "#" & vTag(i).innerText
End If
End If
Next
'取网址结束
If List2.ListCount > 0 Then
List2.ListIndex = 0 '定位到第一条网址
webs = List2.ListCount 'webs的网址数目
web1.Navigate2 List2.Text '打开第一条网址
Else
Me.Caption = "取词失败，检查目标网址是否可用，或取词的字符串"
End If
Else '如果不是就否则
'取词开始------------------

Set vTag = web1.Document.getElementsByTagName("a") '历扁所有a的标签
vCount = vTag.length
For i = 0 To vCount - 1
If Not InStr(vTag(i).innerText, "网页") > 0 And Not InStr(vTag(i).innerText, "品牌信息") > 0 Then '排除"更多"这个名称
If InStr(vTag(i).href, "wd=") > 0 Then '判断链接中是否存在指定的字符
'MsgBox "存在字符"
List1.AddItem vTag(i).innerText
End If
End If
Next
' lb2.Caption = "取词:" & List1.ListCount & "个"
If List2.ListIndex = List2.ListCount - 1 Then
Me.Caption = "共取词:[" & List1.ListCount & "]个"
Command1.Enabled = True
Command2 = True
'Label3.Caption = "取词完毕!"
Exit Sub '判断是不是到了最后一条网址
Else
List2.ListIndex = List2.ListIndex + 1 '下一条
web1.Navigate2 List2.Text '打开网址
End If
'取词结束------------------
End If

End If

End Sub

Answer 2

bjtUUD

Answer 3

有这种格式吗 ?

追问

点击我们
我是通过 寻找"点击我们"来找到"http://localhost/lailu.php?id=2"