VB.NET 下载网页数据

Imports System.Net
Imports System.IO
Imports System.String   

 

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 

    Dim sText As string

     sText = GetPage(http://www.21cn.com, "GB2312")

 

    End Sub

 

 

 

Function GetPage(ByVal WebUrl As String, ByVal sLan 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 url As String = WebUrl
            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(sLan))    '如是中文，要设置编码格式为“GB2312”。  
            Dim respHTML As String = reader.ReadToEnd()      'respHTML就是网页源代码  
            httpResp.Close()

            Return respHTML

        Catch ex As Exception
            Return "产生错误！"
        End Try
        Return "产生错误！"
    End Function