speedupto1mbps
Newbie
- Aug 21, 2010
- 48
- 6
Dim myProxy As New WebProxy("", 1080)
Dim req As WebRequest = WebRequest.Create("")
req.Proxy = myProxy
req.Timeout = 2000
Dim resp As WebResponse = req.GetResponse()
Dim s As Stream = resp.GetResponseStream()
Dim sr As StreamReader = New StreamReader(s, Encoding.ASCII)
Dim doc As String = sr.ReadToEnd