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
