用代理下载文件
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()