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?
[autoit]
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
[/autoit][autoit][/autoit][autoit]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