代码执行了没用呢？
做一个淘宝淘江湖自动加好友的小工具，不知道为什么不管用～～
以下是HTML
<form id="interest" class="u-may-interest inbox">
<h4>推荐好友</h4>
<ul class="list">
<li>
<label for="user_1" class="avatar">
<img src="http://img03.taobaocdn.com/sns_logo/i3/T1y5yAXjFfXXb1upjX_60x60.jpg" alt="代码实施了没用呢" width="60" height="60">
</label>
<p>
<input type="checkbox" id="user_1" value="753746114|2" name="userId" checked="checked">
<a href="http://jianghu.taobao.com/u/NzUzNzQ2MTE0/front.htm" class="user-name" title="王小龙" target="_blank">王小龙</a>
</p>
<p class="J_CommonFriends" data-userid="753746114">
有
<span>2</span>
个共同好友
</p>
<p data-userid="753746114" data-recomtype="2">
<a href="#" class="J_AddFriend addFriend">加为好友</a>
</p>
</li>
<li>
<label for="user_2" class="avatar">
<img src="http://img03.taobaocdn.com/sns_logo/i3/T18ZeYXcxqXXb1upjX_60x60.jpg" alt="代码实施了没用呢" width="60" height="60">
</label>
<p>
<input type="checkbox" id="user_2" value="292276158|2" name="userId" checked="checked">
<a href="http://jianghu.taobao.com/u/MjkyMjc2MTU4/front.htm" class="user-name" title="周雨晴" target="_blank">周雨晴</a>
</p>
<p class="J_CommonFriends" data-userid="292276158">
有
<span>2</span>
个共同好友
</p>
<p data-userid="292276158" data-recomtype="2">
<a href="#" class="J_AddFriend addFriend">加为好友</a>
</p>
</li>
<li>
<label for="user_3" class="avatar">
<img src="http://img04.taobaocdn.com/sns_logo/i4/T155uGXahfXXb1upjX_60x60.jpg" alt="代码实施了没用呢" width="60" height="60">
</label>
<p>
<input type="checkbox" id="user_3" value="544971731|2" name="userId" checked="checked">
<a href="http://jianghu.taobao.com/u/NTQ0OTcxNzMx/front.htm" class="user-name" title="李慧" target="_blank">李慧</a>
</p>
<p class="J_CommonFriends" data-userid="544971731">
有
<span>2</span>
个共同好友
</p>
<p data-userid="544971731" data-recomtype="2">
<a href="#" class="J_AddFriend addFriend">加为好友</a>
</p>
</li>
<li>
<label for="user_4" class="avatar">
<img src="http://img03.taobaocdn.com/sns_logo/i3/T1tJqUXgpaXXb1upjX_60x60.jpg" alt="代码实施了没用呢" width="60" height="60">
</label>
<p>
<input type="checkbox" id="user_4" value="763785264|2" name="userId" checked="checked">
<a href="http://jianghu.taobao.com/u/NzYzNzg1MjY0/front.htm" class="user-name" title="张珊" target="_blank">张珊</a>
</p>
<p class="J_CommonFriends" data-userid="763785264">
有
<span>2</span>
个共同好友
</p>
<p data-userid="763785264" data-recomtype="2">
<a href="#" class="J_AddFriend addFriend">加为好友</a>
</p>
</li>
<li>
<label for="user_5" class="avatar">
<img src="http://img03.taobaocdn.com/sns_logo/i3/T1fPqHXehpXXb1upjX_60x60.jpg" alt="代码实施了没用呢" width="60" height="60">
</label>
<p>
<input type="checkbox" id="user_5" value="792818711|2" name="userId" checked="checked">
<a href="http://jianghu.taobao.com/u/NzkyODE4NzEx/front.htm" class="user-name" title="明多远" target="_blank">明多远</a>
</p>
<p class="J_CommonFriends" data-userid="792818711">
有
<span>2</span>
个共同好友
</p>
<p data-userid="792818711" data-recomtype="2">
<a href="#" class="J_AddFriend addFriend">加为好友</a>
</p>
</li>
<li>
<label for="user_6" class="avatar">
<img src="http://img01.taobaocdn.com/sns_logo/i1/T1GYedXidvXXb1upjX_60x60.jpg" alt="代码实施了没用呢" width="60" height="60">
</label>
<p>
<input type="checkbox" id="user_6" value="396782733|2" name="userId" checked="checked">
<a href="http://jianghu.taobao.com/u/Mzk2NzgyNzMz/front.htm" class="user-name" title="陶若瑶" target="_blank">陶若瑶</a>
</p>
<p class="J_CommonFriends" data-userid="396782733">
有
<span>2</span>
个共同好友
</p>
<p data-userid="396782733" data-recomtype="2">
<a href="#" class="J_AddFriend addFriend">加为好友</a>
</p>
</li>
</ul>
<button class="batch-addfriend" type="button">批量加好友</button>
<a class="take-all" href="http://jianghu.taobao.com/admin/recommend/recom_friends.htm?tracelog=fri_02002">查看全部推荐 ?</a>
</form>
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
Dim obj As Object
If URL = "http://jianghu.taobao.com/admin/invite/invite_friend.htm" Then
'文档加载完毕，
If mblnRuning Then
For Each obj In WebBrowser1.Document.All
If obj.Class = "batch-addfriend" And obj.Type = "button" Then
Call obj.Click
DoEvents
'重复
Exit For
End If
Next
End If
End If
ExitHere:
On Error Resume Next
Exit Sub
ErrLab:
Err.Clear
GoTo ExitHere
End Sub
