Proxy Schleife mit HttpSetProxy

Hallo zusammen,

Ich komme mit meinem Ping Proxy Script nicht weiter.
Eigentlich sollte es ja nicht so schwierig sein...doch ich komme nicht weiter.

Ich habe in einem Array 3 Proxy´s wovon der letzte funktioniert.
Ich möchte das die Proxy´s angepingt werden und bei erfolg diesen Proxy mit HttpSetProxy nutzen.
Nur das funktioniert nicht. Kaum aus der Schleife ist der Wert wohl noch vorhanden aber trotzdem erhalte ich eine Fehlermeldung wegen dem Array ... oder kein Array.

Was mache ich den da Falsch?

Local $aRecords[3]
$aRecords[0] = "213.1.222.253:80"
$aRecords[1] = "94.211.174.60:80"
$aRecords[2] = "178.32.223.88:3128"

$y = 0

While 1
$split = StringSplit($aRecords[$y],":")
$ping = Ping($split[1],1500)

If $ping > 0 Then
HttpSetProxy(2, $aRecords[$y])
ConsoleWrite("Proxy = " & $aRecords[$y] &@CRLF&@CRLF)
Exitloop
Else
ConsoleWrite("Lösche: " &$aRecords[$y] &" von Pos." &$y &@CRLF)
_ArrayDelete($aRecords,$y)
_ArrayDisplay($aRecords)
ContinueLoop
EndIf
Wend

$url = "http://www.wieistmeineip.de"
$get_source = BinaryToString(InetRead($url,16),4)
$aArray = StringRegExp($get_source, '<h1 class="ip">(.*?)</h1>', 3)

Gruß
Norman

Ich habe es nur in diesem Beitrag hier vergessen. Im Script ist es vorhanden.

Gruß
Norman

Zitat von misterspeed

Zum einen das, zum anderen ist ein Logikfehler drin. Wenn keiner der Proxys erreichbar ist sprichst du im vierten Durchlauf einen Arrayindex an, welcher nicht existiert, da du bei jedem nicht erfolgreichen Durchlauf den betreffenden Eintrag entfernst.

OK davon mal abgesehen. Wieso funktioniert HttpSetProxy nicht wenn er einen funktionierenden Proxy gefunden hat?

Zitat von misterspeed

Wie stellst du fest ob der Proxy funktioniert / gesetzt wird? Da du etwas von einem Array Fehler erzählt hast ist davon auszugehen, dass das Script bereits in der Schleife abstürzt, weil eben keiner der Proxys erreichbar war.

Mit der If Abfrage stell ich fest ob der Proxy funktioniert. Wenn dem so ist wird die Schleife beendet und HttpSetProxy sollte eigentlich den Proxy haben was aber nicht der Fall, weil wenn dem so wäre müsste er ja das script fortführen und mir die von "wieistmeineip.de" IP Adresse ausgeben die ich eigentlich durch den Proxy haben müsste.

Das Funktioniert:

#include <String.au3>
#include <Array.au3>
#include <Inet.au3>

;#############################################################################
; P R O X Y - C H E C K

$proxy = "77.94.48.4:80"
HttpSetProxy(2, $proxy)

$downlod = BinaryToString(InetRead("http://www.wieistmeineip.de/",16),4)

Local $aArray1 = _StringBetween($downlod,'<h1 class="ip">','</h1>')
_ArrayDisplay($aArray1)

;#############################################################################

Ich versteh nicht warum nicht so wie es eigentlich vohabe

EDIT:

Habe gerade festgestellt das z.b. der Proxy 178.32.223.88:3128 zwar angepingt werden kann aber nicht als Proxy funktioniert.
Trage ich aber den 147.31.182.137:3128 ein funktioniert es. Also kann ich mich auf ping nicht wirklich verlassen.

Gibt es den eine möglichkeit HttpSetProxy zu überprüfen?

Zitat von Andy

Die einzige Möglichkeit herauszufinden, welche Dienste der Proxy anbietet, ist einfach, diese Dienste auszuprobieren....wenns funktioniert, dann gut, wenn nicht, dann eben nicht.
Wenn der Proxy heute auf die wieistmeineip-Anfrage antwortet heisst das nicht, dass er das morgen auch macht. Also passe dein Script darauf an und frage die Rückgaben des Proxys ab...

Keine Ahnung wie ich das angehen soll.
Ich könnte einen kleinen Denkanstoß gebrauchen

Danke für die Hilfe.

Habe was gefunden was ich für meine Zwecke abgeändert habe.

Für mich funktioniert das Script, nichtsdestotrotz wäre ich für Optimierungsvorschläge dankbar.

Danke und Gruß
Norman