Proxy Checker

[Lokeshverma]

I have used TCPConnect to find out fastest proxy out of those written in a .ini file ,

I'm not quit sure if this code is 100% correct , but still now I have a problem.

If any of the listed proxies doesn't work ,this code takes very long time to give an output.

I tried to use Opt("TCPTimeout",100) but it didn't worked ( read from help file )

Plz help me . Thanks in advance.

$proxy = IniReadSection ( "C:\proxy.ini", "1" )

$MinTime = 10000

$MinIndex = 1

for $i = 1 to $proxy[0][0] Step +1

$IP = StringLeft($proxy[$i][1],StringInStr($proxy[$i][1], ":")-1)

$Port = StringMid($proxy[$i][1],StringInStr($proxy[$i][1], ":")+1)

TCPStartup()

$begin = TimerInit()

$Socket = TCPConnect($IP,$Port)

$dif = TimerDiff($begin)

If int($dif) < int($MinTime) Then

$MinIndex = $i

$MinTime = $dif

EndIf

TCPShutdown()

Next

MsgBox (1,"Fastest Proxy",$proxy[$MinIndex][1])

Edited December 1, 2006 by Lokeshverma

[piccaso]

you can set the timeout for ping...

TCPStartup()
$sIp = "1.2.3.4"; i dont work

$iTimer = TimerInit()
Ping($sIp,1500) ; Wait 1.5 sec
ConsoleWrite("Ping Time: " & TimerDiff($iTimer) & @LF)

Opt("TCPTimeout",50); I'm sure there is a reason why this has no effect at connection time...
$iTimer = TimerInit()
TCPConnect($sIp,123)
ConsoleWrite("TCPConnect Time: " & TimerDiff($iTimer) & @LF)

;~  Output:

;~  Ping Time: 1752.72080669471
;~  TCPConnect Time: 19416.9485227871

[Lokeshverma]

you can set the timeout for ping...

TCPStartup()
$sIp = "1.2.3.4"; i dont work

$iTimer = TimerInit()
Ping($sIp,1500) ; Wait 1.5 sec
ConsoleWrite("Ping Time: " & TimerDiff($iTimer) & @LF)

Opt("TCPTimeout",50); I'm sure there is a reason why this has no effect at connection time...
$iTimer = TimerInit()
TCPConnect($sIp,123)
ConsoleWrite("TCPConnect Time: " & TimerDiff($iTimer) & @LF)

;~  Output:

;~  Ping Time: 1752.72080669471
;~  TCPConnect Time: 19416.9485227871

I have got another problem,here ping function doesn't works !!!!

Any guesses why ??

[Lokeshverma]

Ping function always gives error 4 i.e. other errors