Ohne Proxy funktioniert es Problemlos
Hier mein Code:
In der Textbox1 befindet ich ein Http Proxy mit IP:PORT
Code:
Try
Dim cookie As New CookieContainer
Dim Request As HttpWebRequest = CType(WebRequest.Create("http://evolutionclips.de/tools/wieistmeineip/"), HttpWebRequest)
Request.Method = "POST"
Request.Headers("useragent") = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:23.0) Gecko/20100101 Firefox/23.0"
Request.ContentType = "application/x-www-form-urlencoded"
Request.CookieContainer = cookie
Request.Timeout = 60000
Request.ReadWriteTimeout = 60000
Dim uri As New Uri("http://" & TextBox1.Text & "/")
Request.Proxy = New WebProxy(uri, False)
Dim Post As String = ""
Dim byteArray() As Byte = Encoding.UTF8.GetBytes(Post)
Request.ContentLength = byteArray.Length
Dim DataStream As Stream = Request.GetRequestStream()
DataStream.Write(byteArray, 0, byteArray.Length)
DataStream.Close()
Dim Response As HttpWebResponse = Request.GetResponse()
DataStream = Response.GetResponseStream()
Dim reader As New StreamReader(DataStream)
Dim ServerResponse As String = reader.ReadToEnd()
reader.Close()
DataStream.Close()
Response.Close()
MsgBox(ServerResponse)
Catch ex As Exception
MsgBox(ex.Message)
End Try






