当前位置:编程学习 > VB >>

这个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 ,  基础类
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,