【请问】用WEBBROWSER点击上一页【不是BUTTON】

2013-01-07

【请教】用WEBBROWSER点击下一页【不是BUTTON】页面的代码是这样的：DIV classtb-page-bottomSPAN classp

【请教】用WEBBROWSER点击下一页【不是BUTTON】
页面的代码是这样的：

<DIV class=tb-page-bottom><SPAN class=page-start>上一页</SPAN> <SPAN class=page-cur>1</SPAN> <A href="#" data-val="2" data-act="page">2</A> <A href="#" data-val="3" data-act="page">3</A> <A href="#" data-val="4" data-act="page">4</A> <A href="#" data-val="5" data-act="page">5</A> <SPAN class=page-break>...</SPAN> <A class=page-next href="#" data-val="2" data-act="page">下一页</A> </DIV></DIV></DIV></DIV>

我想要点击“下一页”，可是找不到可以点击的对象，，，还请高手教一下
<A class=page-next href="#" data-val="2" data-act="page">下一页</A>

[解决办法]

 Dim vTag As Variant, I As Integer, vCount As Integer
    If WebBrowser1.ReadyState = READYSTATE_COMPLETE Then
        Set vTag = WebBrowser1.Document.getElementsByTagName("a")
        vCount = vTag.length
        For I = 0 To vCount - 1
            '获得网页中指定链接名称的 URL 地址
            If vTag(I).innerText = "下一页" Then WebBrowser1.Navigate vTag(I).href
        Next
    End If

[解决办法]
把If vTag(I).innerText = "下一页" Then WebBrowser1.Navigate vTag(I).href
换成
If vTag(I).innerText = "下一页" Then vTag(I).click
试试
[解决办法]

引用:

VB code
Dim vTag As Variant, I As Integer, vCount As Integer
    If WebBrowser1.ReadyState = READYSTATE_COMPLETE Then
        Set vTag = WebBrowser1.Document.getElementsByTagName("a")
        vCoun……

可以直接调用其click方法或者用fireevents方法。
Dim vTag As Variant, I As Integer, vCount As Integer
    If WebBrowser1.ReadyState = READYSTATE_COMPLETE Then
        Set vTag = WebBrowser1.Document.getElementsByTagName("a")
        vCount = vTag.length
        For I = 0 To vCount - 1
            '获得网页中指定链接名称的 URL 地址
            If vTag(I).innerText = "下一页" Then vTag(I).fireEvent("onclick")
        Next
    End If

或者直接vTag(I).click
另外这里的innerText可以换成innerHTML

热点排行

VB

【请问】用WEBBROWSER点击 上一页【不是BUTTON】

【请问】用WEBBROWSER点击上一页【不是BUTTON】