这个BUTTON如何点击呢?
这个BUTTON如何点击呢?<DIV class=white>
<DIV id=div_i_f></DIV>
<DIV class=clear></DIV>
<DIV style="PADDING-TOP: 10px">
<CENTER><BUTTON class=b2 title=加载100个 onclick="load_f(100,'div_i_f','me');$(this).html('加载更多')">开始加载</BUTTON> <A style="FONT-SIZE: 12px" title=加载200个 href="javascript:load_f(200,'div_i_f','me');return false">+ 200</A></CENTER></DIV></DIV></DIV><!-- main_i_f ends -->
<DIV style="DISPLAY: none" id=main_f_m>
<DIV class=green>
<TABLE class=filter cellSpacing=5 cellPadding=0 width="100%">
<TBODY>
<TR>
<DIV class=white>
<DIV id=div_f_m></DIV>
<DIV class=clear></DIV>
<DIV style="PADDING-TOP: 10px">
<CENTER><BUTTON class=b2 title=加载100个 onclick="load_m(100,'div_f_m','me');$(this).html('加载更多')">开始加载</BUTTON> <A style="FONT-SIZE: 12px" title=加载200个 href="javascript:load_m(200,'div_f_m','me');return false">+ 200</A></CENTER></DIV></DIV></DIV><!-- main_f_me ends -->
<DIV style="DISPLAY: none" id=main_ta_f>
<DIV class=green>
<TABLE class=filter cellSpacing=5 cellPadding=0 width="100%">
<TBODY>
<TR>
网页上有多个同样的按钮,如果用下边的代码:
On Error Resume Next
Set vDoc = WebBrowser2.Document
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "BUTTON" Then
Set vTag = vDoc.All(i)
If vTag.title = "加载100个" Then
vTag.Click
End If
End If
Next i
请问有什么方法可以只执行第一个呢?谢谢
补充:VB , 基础类