Pinging a proxy list

[D4rk^S0ul]

I have this proxy list and i wish to see if they still work, i was thinking of doing this by simply pinging the ips 1 by 1 seeing if they respond and noting if they dont. Here is part of the proxy list.

68.255.184.16:4226
195.175.37.6:8080
83.228.105.117:3128
203.116.61.164:8080
66.56.15.204:57102
87.246.44.129:1080
67.165.61.175:478
63.135.30.94:8297
151.204.248.3:3966
61.47.15.133:8080
24.8.109.251:6061
61.78.56.133:7000
210.94.178.29:2753
88.73.226.172:64560
200.66.191.1:80
204.13.69.62:1080
91.34.87.130:5933
219.142.99.29:1080

There are alot more but this just a sample, i was wondering how to do it because it will error if i inc the port so does anyone know how i can read line but not include the port?

[BillLuvsU]

use StringSplit to split from the ":", so you'll have an array with one element being the ip and the other the port.

[Zedna]

$line = '68.255.184.16:4226'
$line = StringSplit($line,':')
$line = $line[1]
MsgBox(0,'Result',$line)

[jvanegmond]

You can't actually 'Ping' those proxies on that port, because ICMP uses a fixed port. Rather use a TCPConnect to test if a connection can be made on that IP and Port.

expandcollapse popup

Opt("TCPTimeout", 50) ;sets the connection timeout x ms

$Read = FileRead("proxylist.txt") ; reads the file containing all the proxies and ports
#cs

Filename: proxylist.txt

Content:

68.255.184.16:4226
195.175.37.6:8080
83.228.105.117:3128
203.116.61.164:8080
66.56.15.204:57102
87.246.44.129:1080
67.165.61.175:478
63.135.30.94:8297
151.204.248.3:3966
61.47.15.133:8080
24.8.109.251:6061
61.78.56.133:7000
210.94.178.29:2753
88.73.226.172:64560
200.66.191.1:80
204.13.69.62:1080
91.34.87.130:5933
219.142.99.29:1080

#ce

$Line = StringSplit(StringStripCR($Read),@LF) ; splits everything line by line

TCPStartup() ; for TCPConnect

For $x = 1 To $Line[0] ; loop through all the lines
    If $Line[$x] Then ;make sure the line is not empty
        $IPort = StringSplit($Line[$x],":") ; seperate the IP from the Port
        $Socket = TCPConnect($IPort[1],$IPort[2])
        MsgBox(0, @error, $Socket)
        ; if @Error = 0 AND $Socket <> -1 Then  ; connection is made
        TCPCloseSocket($Socket)
    EndIf
Next

[D4rk^S0ul]

thx i used

$file3 = FileOpen("proxys.ini", 0)
$Count = 1

While 1
    $line2 = FileReadLine($File3, $Count)
    If @error Then ExitLoop
    $line3 = StringSplit($line2,':')
    $line3 = $line3[1]
    $P = Ping($line3, 3000)
    If $P Then
        FileWrite("proxynew.ini", $line2 & @CRLF)
    EndIf
    $Count = $Count + 1
WEnd
MsgBox(0, "Done", "Done on line " & $Count)

But il try your example Manadar in a minute because its true i cant tell if the proxies work or not using my script just that the host is online.

[jvanegmond]

But il try your example Manadar in a minute because its true i cant tell if the proxies work or not using my script just that the host is online.

Yeah, and mine looks better..

[November]

I have this proxy list and i wish to see if they still work, i was thinking of doing this by simply pinging the ips 1 by 1 seeing if they respond and noting if they dont. Here is part of the proxy list.

68.255.184.16:4226
195.175.37.6:8080
83.228.105.117:3128
203.116.61.164:8080
66.56.15.204:57102
87.246.44.129:1080
67.165.61.175:478
63.135.30.94:8297
151.204.248.3:3966
61.47.15.133:8080
24.8.109.251:6061
61.78.56.133:7000
210.94.178.29:2753
88.73.226.172:64560
200.66.191.1:80
204.13.69.62:1080
91.34.87.130:5933
219.142.99.29:1080

There are alot more but this just a sample, i was wondering how to do it because it will error if i inc the port so does anyone know how i can read line but not include the port?

Try my software... its suites well to your needs.

Cheers

Keep scripting and kicking