如何用vb.net下载web页

最新推荐文章于 2022-09-12 17:36:36 发布

原创最新推荐文章于 2022-09-12 17:36:36 发布 · 1.3k 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#vb.net #web #string #exception #function

.NET 专栏收录该内容

43 篇文章

订阅专栏

博客展示了一个用VB.NET编写的GetSource函数，该函数接收一个URL字符串作为参数，通过HttpWebRequest和HttpWebResponse类向指定URL发送HTTP请求，获取网页源代码。若出现异常，会输出错误信息。

在网络上找了很多关于网页下载的程序但都不能完整地得到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