用代理下载文件

用代理下载文件

By  --wgscd--

  Dim Url As String = "http://xkec.com/index1.htm"
        Dim myHttpWebRequest As HttpWebRequest = HttpWebRequest.Create(Url)
        Try
            '定义代理
            Dim myWebProxy As New WebProxy("208.57.160.201", 8080)'代理地址

            myHttpWebRequest.Proxy = myWebProxy

            Dim myHttpWebResponse As HttpWebResponse = myHttpWebRequest.GetResponse

            Dim stream As Stream = myHttpWebResponse.GetResponseStream

            Dim streamR As New StreamReader(stream)

            MsgBox(streamR.ReadToEnd)

        Catch ex As Exception

            MsgBox("错误：" & ex.ToString)

        End Try

另外还可以用WebRequest，WebResponse下载，一样的道理。

你可以设置全局代理：

  System.Net.GlobalProxySelection.Select = myWebProxy’代理

返回空代理实例：

System.Net.GlobalProxySelection.GetEmptyWebProxy()