作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

    Private Sub DownloadData(ByVal URLString As String, ByVal LocalFile As String)    'LocalFile 是文件的一个完全路径 (包括*.exe)
        Try

            'HttpWebRequest 类对 WebRequest 中定义的属性和方法提供支持'，也对使用户能够直接与使用 HTTP 的服务器交互的附加属性和方法提供支持。 
            Dim httpReq As System.Net.HttpWebRequest 

            ' HttpWebResponse 类用于生成发送 HTTP 请求和接收 HTTP 响'应的 HTTP 独立客户端应用程序。
            Dim httpResp As System.Net.HttpWebResponse 

            Dim httpURL As New System.Uri(URLString)

            httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)
            httpReq.Method = "GET"
            httpResp = CType(httpReq.GetResponse(), HttpWebResponse)

            Dim reader As StreamReader = New StreamReader(httpResp.GetResponseStream)     '如是中文，要设置编码格式为“GB2312”。
            Dim respHTML As String = reader.ReadToEnd()      'respHTML就是网页源代码
            Dim Sw As StreamWriter = File.CreateText(LocalFile)

            Sw.Write(respHTML)
            Sw.Close()

            httpResp.Close()

        Catch e As Exception
            Console.WriteLine("GetSource出现问题:{0},{1}", e.Message, URLString)
        End Try
    End Sub

相关软件：