谁帮我看看如何点击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> 我的 " 却找不到这个内容


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



[解决办法]
可能实际的值跟你的这个有差别吧，告诉你个办法，直接将所有a标签的innnertext都打印出来，然后看看那个对应的内容是什么，估计少了或者多了个空格什么的吧，具体自己比较看看。
For I = 0 To vCount - 1
debug.print vTag(I).innerText
Next