Foxtable(狐表)用户栏目专家坐堂 → 采用WebBrowser获取对应网页的网页代码 怎么刷新页面 并将页面划拉到最底部


  共有2600人关注过本帖平板打印复制链接

主题:采用WebBrowser获取对应网页的网页代码 怎么刷新页面 并将页面划拉到最底部

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


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
采用WebBrowser获取对应网页的网页代码 怎么刷新页面 并将页面划拉到最底部  发帖心情 Post By:2020/9/22 16:12:00 [只看该作者]

采用WebBrowser获取对应网页的网页代码 怎么刷新页面 并将页面划拉到最底部
点打开后,页面显示如图没有具体内容  
打开按钮代码:
Dim t1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim w1 As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
Dim url As String = t1.text
w1.Address=url

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看
点击刷新后 页面显示如图
刷新按钮代码:
e.Form.Controls("WebBrowser1").BaseControl.Refresh

图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看
有没有办法在点打开按钮的时候 就同步显示了具体数据  不需要再次点刷新呢?

代码按钮代码:
Dim web = e.Form.Controls("WebBrowser1").BaseControl
Output.Show(web.Document.body.Innerhtml)
Dim t2 As WinForm.TextBox = e.Form.Controls("TextBox2")
t2.Text=web.Document.body.Innerhtml

怎么写代码实现WebBrowser中的网页一直往下划拉刷新呢  直到网页最底部
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:获取今日头条页面代码并分析.foxdb

[此贴子已经被作者于2020/9/22 16:14:26编辑过]

 回到顶部