Foxtable(狐表)用户栏目专家坐堂 → [求助]webbrowser控件读取超长网页的问题。


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

主题:[求助]webbrowser控件读取超长网页的问题。

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


加好友 发短信
等级:婴狐 帖子:29 积分:352 威望:0 精华:0 注册:2014/1/5 23:03:00
[求助]webbrowser控件读取超长网页的问题。  发帖心情 Post By:2015/5/17 17:40:00 [只看该作者]

Dim web As New System.Windows.Forms.WebBrowser()
Dim webAddr As String = "http://........"

web.ScriptErrorsSuppressed = True
web.Navigate(webAddr)
Do Until web.ReadyState = 4
   Application.DoEvents
Loop

因网页超长,网速快时能完整读取,网速慢时就常出错,据说是设置TimeOut参数,应该如何设置?求教,谢谢!

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/5/17 17:43:00 [只看该作者]

  出什么错?报什么错?

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


加好友 发短信
等级:婴狐 帖子:29 积分:352 威望:0 精华:0 注册:2014/1/5 23:03:00
  发帖心情 Post By:2015/5/17 17:50:00 [只看该作者]

网页超时

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/5/17 17:57:00 [只看该作者]

不能用webbroser,你先把内容获取,如果还需要用到webbrowser的话,再给它设置进去吧。

 

Dim url As String = "http://foxtable.com"
try
    Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)
    rqst.TimeOut = 1000 '一秒
    Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse
    Dim stm As System.IO.Stream = rsps.GetResponseStream()
    Dim reader As New System.IO.StreamReader(stm)
    Dim str As String = reader.ReadToEnd
    stm.Dispose()
    Output.Show(str)
catch ex As exception
    msgbox(ex.Message)
End try


 回到顶部
帅哥哟,离线,有人找我吗?
夜雨寒风
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:29 积分:352 威望:0 精华:0 注册:2014/1/5 23:03:00
  发帖心情 Post By:2015/5/17 20:03:00 [只看该作者]

谢谢

 回到顶部