Question

VB点击WebBrowser1中某个链接

网页源码：
<LI data-name=" 我的 " data-id="784644606"><A class=J_AddFriend title=" 我的 " href="javascript:;"><IMG src="http://a.tbcdn.cn/app/sns/img/default/avatar-24.png" width=16 height=16> 我的 </A></LI>

Dim vTag As Variant, I As Integer, vCount As Integer
Set vTag = WebBrowser1.Document.body.getElementsByTagName("A")
vCount = vTag.length
For I = 0 To vCount - 1
'获得网页中指定链接名称的 URL 地址
If vTag(I).innerText = "<IMG src=""http://a.tbcdn.cn/app/sns/img/default/avatar-24.png"" width=16 height=16> 我的 " Then vTag(I).Click
End If
Next

假如网页源码：<a href="#">我的</a>

vTag(I).innerText="我的"

这样可以找到并点击这个链接

以上vTag(I).innerText内容必须为<A></A>之间的内容，但vTag(I).innerText="<IMG src=""http://a.tbcdn.cn/app/sns/img/default/avatar-24.png"" width=16 height=16> 我的 " 却找不到这个内容

请教各位，有什么办法获取，并点击这个链接

Answer 1

innerText获取的是标签内的纯文本内容（注意后面四个字母Text），要改用innerHTML才能真正得到你需要的内容（包括所有HTML代码）
此外你的代码中那个End If是多余的

Answer 2

WebBrowser1.Navigate "http://a.tbcdn.cn/app/sns/img/default/avatar-24.png" '点击