Hallo zusammen,
ich habe eine Textdatei in der sich im Format ip:port einige Proxies befinden und möchte prüfen ob diese funktionieren. Dazu habe ich ein Programm, das Zeile für Zeile mit dem jeweiligen Proxy ein Webrequest(siehe unten) ausführt und die Antwort dann auswertet. Prinzipiell funktioniert das auch alles.
Das Problem ist, dass nur die ersten 6 Proxies in der Liste getestet werden. Danach geht nix mehr. Wenn ich das Programm schließe und wieder starte geht es wieder. Nun ist es so, dass der Anbieter der Proxies maximal 6 gleichzeitige Verbindungen zulässt. Dass das 7. request nicht funktioniert liegt also offenbar daran dass die vorherigen Verbindungen noch irgendwie offen sind oder so?? Ich verstehe das nicht ganz, dachte mit .close (oder .dispose) wäre das Request "beendet"?
Wie kriege ich das also hin, dass alle Proxies getestet werden?
ich habe eine Textdatei in der sich im Format ip:port einige Proxies befinden und möchte prüfen ob diese funktionieren. Dazu habe ich ein Programm, das Zeile für Zeile mit dem jeweiligen Proxy ein Webrequest(siehe unten) ausführt und die Antwort dann auswertet. Prinzipiell funktioniert das auch alles.
Das Problem ist, dass nur die ersten 6 Proxies in der Liste getestet werden. Danach geht nix mehr. Wenn ich das Programm schließe und wieder starte geht es wieder. Nun ist es so, dass der Anbieter der Proxies maximal 6 gleichzeitige Verbindungen zulässt. Dass das 7. request nicht funktioniert liegt also offenbar daran dass die vorherigen Verbindungen noch irgendwie offen sind oder so?? Ich verstehe das nicht ganz, dachte mit .close (oder .dispose) wäre das Request "beendet"?
Wie kriege ich das also hin, dass alle Proxies getestet werden?
VB.NET-Quellcode
- Function requesten(prox As String)
- Dim myProxy As New WebProxy(prox)
- myProxy.Credentials = New System.Net.NetworkCredential("USER", "PASS")
- Dim Request As HttpWebRequest = CType(HttpWebRequest.Create("www.beispiel.de"), HttpWebRequest)
- Request.Proxy = myProxy
- Request.Method = "GET"
- Request.ContentType = "application/x-www-form-urlencoded"
- Request.UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/67.0.3396.87 Safari/537.36"
- Request.KeepAlive = False
- Dim Response As HttpWebResponse = Request.GetResponse()
- Dim DataStream As Stream = Response.GetResponseStream()
- Dim reader As New StreamReader(DataStream)
- Dim ServerResponse As String = reader.ReadToEnd()
- reader.Close()
- DataStream.Close()
- Response.Close()
- Response.Dispose()
- DataStream.Dispose()
- reader.Dispose()
- Request.Abort()
- Return ServerResponse
- End Function