以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助：实现WebBrowser1网页多次自动滚屏 怎么操作啊？目前论坛有办法可以自动滚屏一次！  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92348)
--  作者：李孝春
--  发布时间：2016/11/1 15:25:00
--  求助：实现WebBrowser1网页多次自动滚屏 怎么操作啊？目前论坛有办法可以自动滚屏一次！
论坛代码：
Dim brw As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
brw.Address = "http://www.foxtable.com/"
Dim web = brw.BaseControl
Do Until web.ReadyState = 4
    Application.DoEvents
Loop
web.Document.Window.ScrollTo(0, 1520)
实现打开之后自动滚屏一次，
有没有办法实现多次滚屏呢？
--  作者：李孝春
--  发布时间：2016/11/1 16:08:00
--  回复：（李孝春）求助：实现WebBrowser1网页多次自动滚...
经过手动拉到底，网页底部会出现“没有更多啦”字样，
不知道是否可以在上面加上一个循环，当出现“没有更多啦”字样时，就自动重复拉到底，如果出现了，就停止。

图片点击可在新窗口打开查看此主题相关图片如下：11111.png
图片点击可在新窗口打开查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:web.table
--  作者：有点色
--  发布时间：2016/11/1 18:31:00
--  
移步至：http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=92345&skin=0
--  作者：李孝春
--  发布时间：2016/11/2 9:18:00
--  回复：（有点色）移步至：http://foxtable.com/bbs/di...
感谢有点色老师：

以下代码备查，以帮助别人解决同样的问题：
Dim web As new System.Windows.Forms.WebBrowser
web.ScriptErrorsSuppressed = True
web.ScriptErrorsSuppressed = True
web.Navigate("http://toutiao.com/m6051259851/")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop
Do Until web.DocumentText.contains("没有更多啦")
    web.Document.Window.ScrollTo(0, 0)
    web.Document.Window.ScrollTo(0, web.Document.Body.ScrollRectangle.Height)
    Application.DoEvents
Loop