怎么用vb.net下载到完整的web页-古蔺大橙子建站
RELATEED CONSULTING
相关咨询
选择下列产品马上在线沟通
服务时间:8:30-17:00
你可能遇到了下面的问题
关闭右侧工具栏

新闻中心

这里有您想知道的互联网营销解决方案
怎么用vb.net下载到完整的web页

这篇文章主要讲解了“怎么用vb.net下载到完整的web页”,文中的讲解内容简单清晰,易于学习与理解,下面请大家跟着小编的思路慢慢深入,一起来研究和学习“怎么用vb.net下载到完整的web页”吧!

成都创新互联公司是一家专业提供承德县企业网站建设,专注与网站设计制作、成都网站建设、H5技术、小程序制作等业务。10年已为承德县众多企业、政府机构等服务。创新互联专业网站建设公司优惠进行中。

在网络上找了很多关于网页下载的程序但都不能完整地得到web页的内容,以下这个函数解决了这个问题。

    Private Function GetSource(ByVal url As String) As String
    Try
    Dim httpReq As System.Net.HttpWebRequest 'HttpWebRequest 类对 WebRequest 中定义的属性和方法提供支持',也对使用户能够直接与使用 HTTP 的服务器交互的附加属性和方法提供支持。
    Dim httpResp As System.Net.HttpWebResponse ' HttpWebResponse 类用于生成发送 HTTP 请求和接收 HTTP 响'应的 HTTP 独立客户端应用程序。
    Dim httpURL As New System.Uri(url)
    httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)
    httpReq.Method = "GET"
    httpResp = CType(httpReq.GetResponse(), HttpWebResponse)
    Dim reader As StreamReader = _
    New StreamReader(httpResp.GetResponseStream, System.Text.Encoding.GetEncoding("GB2312")) '如是中文,要设置编码格式为“GB2312”。
    Dim respHTML As String = reader.ReadToEnd() 'respHTML就是网页源代码
    Return respHTML
    httpResp.Close()
    Catch e As Exception
    Console.WriteLine("GetSource出现问题:{0},{1}", e.Message, url)
    End Try
    End Function

感谢各位的阅读,以上就是“怎么用vb.net下载到完整的web页”的内容了,经过本文的学习后,相信大家对怎么用vb.net下载到完整的web页这一问题有了更深刻的体会,具体使用情况还需要大家实践验证。这里是创新互联,小编将为大家推送更多相关知识点的文章,欢迎关注!


网页标题:怎么用vb.net下载到完整的web页
URL分享:http://scgulin.cn/article/gcjojc.html