如何将这个表格的滚动条下滚一页？

northwolves 2009-07-31 11:17:13
如何将这个表格的滚动条下滚一页？即将第21条记录置顶。
http://www.bluenile.com/diamond-search?pt=setform&pst=shape=RD|mnprc=1711.0|mxprc=9044957.0|mncrt=0.23|mxcrt=15.02|mnclr=J|mxclr=D|mncut=Fair|mxcut=Signature%20Ideal|mncty=SI2|mxcty=FL&filter_id=0&AdvSearch=Search&basic=0
...全文
258 18 打赏 收藏 转发到动态 举报
写回复
用AI写文章
18 条回复
切换为时间正序
请发表友善的回复…
发表回复
孟子E章 2009-08-01
  • 打赏
  • 举报
 回复
VB6?插件？
northwolves 2009-08-01
  • 打赏
  • 举报
 回复
刘兄真高人，我已经折腾2天了
Private Sub Command1_Click()

Dim yy

Set yy = WebBrowser1.Document.All("arcscrollBarLocation").All(0)

For i = 1 To 20

  yy.onmousedown

Next

yy.onmouseup '这一行注释掉，会不停的翻页



End Sub

结贴
ldy888 2009-08-01
  • 打赏
  • 举报
 回复
这个代码，经ie6 验证，完全没问题


Private Sub Command1_Click()

WebBrowser1.Navigate "http://www.bluenile.com/diamond-search?pt=setform&pst=shape=RD|mnprc=1711.0|mxprc=9044957.0|mncrt=0.23|mxcrt=15.02|mnclr=J|mxclr=D|mncut=Fair|mxcut=Signature%20Ideal|mncty=SI2|mxcty=FL&filter_id=0&AdvSearch=Search&basic=0", False

End Sub



Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

    Dim yy As Object

    Set yy = WebBrowser1.Document.all("arcscrollBarLocation")    '.all(0)

    If yy Is Nothing Then Exit Sub

Debug.Print WebBrowser1.Document.all("scrollBarLocation_value").Value

    yy.all(0).onmousedown

    yy.all(0).onmouseup                '这一行注释掉，会不停的翻页

Debug.Print WebBrowser1.Document.all("scrollBarLocation_value").Value

End Sub
terrywolf 2009-08-01
  • 打赏
  • 举报
 回复
关注一下@
northwolves 2009-08-01
  • 打赏
  • 举报
 回复
[Quote=引用 10 楼 sysdzw 的回复:]
那个Ajax的吧，抓了一会包，没发现什么东西，不过发现了其它有用的，你上面的页面其实相当于这个页面：
http://cn.bluenile.com/diamond_search.jsp?basic=1&filter_id=0&pt=setform&pst=shape=RD|mnprc=1711.0|mxprc=9044957.0|mncrt=0.23|mxcrt=15.02|mnclr=J|mxclr=D|mncut=Fair|mxcut=Signature%20Ideal|mncty=SI2|mxcty=FL

这样分页的就好弄了。
[/Quote]
这个我知道，1楼的链接也是由此而来。不过他只允许访问前500条记录（25页），而且需要COOKIES的设置
northwolves 2009-08-01
  • 打赏
  • 举报
 回复
有点难。
嗷嗷叫的老马 2009-08-01
  • 打赏
  • 举报
 回复
这个有点麻烦貌似...........

我试过向指定区域发送鼠标点击消息,行是行,但是由于是使用坐标定位的,目标网页要是改一下布局,代码又得调整坐标....比较烦人....

直接调用其网页内的函数目前还没整成功......
ldy888 2009-08-01
  • 打赏
  • 举报
 回复
[Quote=引用 9 楼 northwolves 的回复:]
谢谢老孟关注。VB codePrivateSub Command1_Click()
WebBrowser1.Navigate"http://www.bluenile.com/diamond-search?pt=setform&pst=shape=RD|mnprc=1711.0|mxprc=9044957.0|mncrt=0.23|mxcrt=15.02|mnclr=J|mxclr=D|mncut=¡­
[/Quote]

CSND 上的几乎没分，弄个300分试试
Set yy = WebBrowser1.Document.all("arcscrollBarLocation").all(0)
yy.onmousedown
yy.onmouseup'这一行注释掉，会不停的翻页
咸清 2009-08-01
  • 打赏
  • 举报
 回复
不懂，过来学习的~~
northwolves 2009-08-01
  • 打赏
  • 举报
 回复
[Quote=引用 10 楼 sysdzw 的回复:]
那个Ajax的吧，抓了一会包，没发现什么东西，不过发现了其它有用的，你上面的页面其实相当于这个页面：
http://cn.bluenile.com/diamond_search.jsp?basic=1&filter_id=0&pt=setform&pst=shape=RD|mnprc=1711.0|mxprc=9044957.0|mncrt=0.23|mxcrt=15.02|mnclr=J|mxclr=D|mncut=Fair|mxcut=Signature%20Ideal|mncty=SI2|mxcty=FL

这样分页的就好弄了。
[/Quote]
这个我知道，1楼的链接也是由此而来。不过他只允许访问前500条记录（25页），而且需要COOKIES的设置
无·法 2009-08-01
  • 打赏
  • 举报
 回复
那个Ajax的吧，抓了一会包，没发现什么东西，不过发现了其它有用的，你上面的页面其实相当于这个页面：
http://cn.bluenile.com/diamond_search.jsp?basic=1&filter_id=0&pt=setform&pst=shape=RD|mnprc=1711.0|mxprc=9044957.0|mncrt=0.23|mxcrt=15.02|mnclr=J|mxclr=D|mncut=Fair|mxcut=Signature%20Ideal|mncty=SI2|mxcty=FL

这样分页的就好弄了。
northwolves 2009-08-01
  • 打赏
  • 举报
 回复
谢谢老孟关注。
Private Sub Command1_Click()

WebBrowser1.Navigate "http://www.bluenile.com/diamond-search?pt=setform&pst=shape=RD|mnprc=1711.0|mxprc=9044957.0|mncrt=0.23|mxcrt=15.02|mnclr=J|mxclr=D|mncut=Fair|mxcut=Signature%20Ideal|mncty=SI2|mxcty=FL&filter_id=0&AdvSearch=Search&basic=0", False

End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

'?????????'如何翻到第2页？

End Sub
孤独剑_LPZ 2009-07-31
  • 打赏
  • 举报
 回复
路过，帮顶
northwolves 2009-07-31
  • 打赏
  • 举报
 回复
鼠标点击滚动条的下面不就正好翻一页了吗？
---------------
使用代码准确完成。似乎与该页的setCookie（）函数有关
northwolves 2009-07-31
  • 打赏
  • 举报
 回复
VB6 代码实现
northwolves 2009-07-31
  • 打赏
  • 举报
 回复
VB6 代码实现
无·法 2009-07-31
  • 打赏
  • 举报
 回复
好多分 一次比一次多啊
DarkChampion 2009-07-31
  • 打赏
  • 举报
 回复

没明白楼主什么意思，鼠标点击滚动条的下面不就正好翻一页了吗，呵呵
是要通过代码实现？
2021数学建模美赛C题代码.zip
最全的数学建模美赛C题和代码、大量刷题题库、逻辑清晰易于学习
这是一个保存Springboot+MyBaits项目的仓库.zip
springboot框架 一、Spring Boot基础应用 Spring Boot特征 概念： 约定优于配置，简单来说就是你所期待的配置与约定的配置一致，那么就可以不做任何配置，约定不符合期待时才需要对约定进行替换配置。 特征： 1. SpringBoot Starter：他将常用的依赖分组进行了整合，将其合并到一个依赖中，这样就可以一次性添加到项目的Maven或Gradle构建中。 2,使编码变得简单，SpringBoot采用 JavaConfig的方式对Spring进行配置，并且提供了大量的注解，极大的提高了工作效率，比如@Configuration和@bean注解结合，基于@Configuration完成类扫描，基于@bean注解把返回值注入IOC容器。 3.自动配置：SpringBoot的自动配置特性利用了Spring对条件化配置的支持，合理地推测应用所需的bean并自动化配置他们。 4.使部署变得简单，SpringBoot内置了三种Servlet容器，Tomcat，Jetty,undertow.我们只需要一个Java的运行环境就可以跑SpringBoot的项目了
课设&大作业-毕业设计精品课程网站，采用的技术是 SSM 框架和 Shiro.zip
【资源说明】【毕业设计】 1、该资源内项目代码都是经过测试运行成功，功能正常的情况下才上传的，请放心下载使用。 2、适用人群：主要针对计算机相关专业(如计科、信息安全、数据科学与大数据技术、人工智能、通信、物联网、数学、电子信息等)的同学或企业员工下载使用，具有较高的学习借鉴价值。 3、不仅适合小白学习实战练习，也可作为大作业、课程设计、毕设项目、初期项目立项演示等，欢迎下载，互相学习，共同进步！
c#做的综合上位机，服务于freescale智能车&电子设计.zip
c#做的综合上位机，服务于freescale智能车&电子设计.zip
tensorflow-gpu-2.7.2-cp39-cp39-manylinux2010-x86-64.whl
bert
网络编程

1,502

社区成员

18,437

社区内容

发帖
与我相关
我的任务
社区描述
VB 网络编程
社区管理员
  • 网络编程
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章