Foxtable(狐表)用户栏目专家坐堂 → 网页自动翻页问题


  共有2520人关注过本帖树形打印复制链接

主题:网页自动翻页问题

帅哥哟,离线,有人找我吗?
yys983
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:73 积分:2375 威望:0 精华:0 注册:2016/2/22 11:31:00
网页自动翻页问题  发帖心情 Post By:2018/5/18 18:12:00 [只看该作者]

请教下各位大神,我在网页抓取的时候,遇到如下代码怎么使用foxTABLE编写网页抓取自动翻页功能,跪谢了,自己学习了好多天,各种案例都看过了,还是不会写,求大神帮忙






<tfoot>
<tr>
<td colspan="2">
  <div class="batch">
   
            <input type="checkbox" class="J_TriggerAll">
    <input type="button" value="批量打印发货单" class="logis:batchPrintTicket">
<input type="button" value="批量打印运单" class="logis:batchPrintExpress">
                 </div>
           <input type="hidden" name="currentPage" value="4">
<div class="pagination">
<div class="page-top">
<a class="page-prev" href="#" title="翻到上一页"><span>上一页</span></a>
                                                <a href="#" >1</a>
                        <a href="#" >2</a>
                        <a href="#" >3</a>
                        <span class="page-cur">4</span>
                        <a href="#" >5</a>
                        <a href="#" >6</a>
                                <span class="page-break">...</span>
        <a href="#" >51</a>
        <a href="#" >52</a>
                                <a class="page-next" href="#" title="翻到下一页"><span>下一页</span></a>
        </div>
</div>

<script language="javascript" type="text/javascript">
function gotoPageP(newPage) {
var batchConfirmAction=document.getElementById('batchConfirmAction');
if (batchConfirmAction){
batchConfirmAction.parentNode.removeChild(batchConfirmAction)
}
var batchConfirmEvent=document.getElementById('batchConfirmEvent');
if (batchConfirmEvent){
batchConfirmEvent.parentNode.removeChild(batchConfirmEvent)
}
var f = document.forms["form1"];
if (f) {
for(var i=0;i<f.elements.length;i++){
if(f.elements[i].name=="currentPage"){
f.elements[i].value=newPage;
}
}
f.submit();
}
}
</script>
<!--翻页结束-->
</td>
</tr>
</tfoot>







 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/18 18:28:00 [只看该作者]

比如代码

 

Dim web As System.Windows.Forms.WebBrowser = e.Form.controls("webbrowser1").basecontrol

Dim Inputs = web.Document.GetElementsByTagName("a")
For Each Input As object In Inputs
    If Input.getAttribute("className") = "page-next" Then
        Input.InvokeMember("click")
        Exit For
    End If
Next


 回到顶部
帅哥哟,离线,有人找我吗?
yys983
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:73 积分:2375 威望:0 精华:0 注册:2016/2/22 11:31:00
  发帖心情 Post By:2018/5/25 22:11:00 [只看该作者]

非常感谢,已搞定

 回到顶部