首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

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

2012-03-23 
【请教】用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> 


[解决办法]

VB code
 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……

热点排行