代码执行了没用呢？
做一个淘宝淘江湖自动加好友的小工具，不知道为什么不管用～～
以下是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 IfExitHere: On Error Resume Next Exit SubErrLab: Err.Clear GoTo ExitHereEnd Sub
