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

Question

如何将这个表格的滚动条下滚一页？即将第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

Answer 1

鼠标点击滚动条的下面不就正好翻一页了吗？
---------------
使用代码准确完成。似乎与该页的setCookie（）函数有关

Answer 2

谢谢老孟关注。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

Answer 3

那个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这样分页的就好弄了。

Answer 4

这个我知道，1楼的链接也是由此而来。不过他只允许访问前500条记录（25页），而且需要COOKIES的设置

Answer 5

CSND 上的几乎没分，弄个300分试试
Set yy = WebBrowser1.Document.all("arcscrollBarLocation").all(0)
  yy.onmousedown
  yy.onmouseup'这一行注释掉，会不停的翻页

Answer 6

这个我知道，1楼的链接也是由此而来。不过他只允许访问前500条记录（25页），而且需要COOKIES的设置

Answer 7

这个代码，经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 SubPrivate 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

Answer 8

刘兄真高人，我已经折腾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
结贴