help with scanning ports

[ODPOA]

ok for example if i put in 200 it would scan

200.0.0.0-200.225.225.225

The only problem it it takes 20 seconds per ip address.

I have tried to edit tcp timeout but it does not help.

Is there any way to make tcp stop attempting a connection and set the the socket to -1 after maybe 200ms? instead of 20 seconds?

code:

AutoItSetOption("TCPTimeout", "1")
radmin("200")
func radmin($startip, $endip="225.225.225.225")
    
    TCPStartup()
    
    for $x=0 to 225
        $timer = TimerInit()
        $ip = $startIP&"."&$x&".0.0"
        Consolewrite($ip&@CRLF)
$socket = TCPConnect($ip,"4899")

If $socket = -1 Then
    ConsoleWrite($ip&" - NO - "&timerdiff($timer)&@CRLF)
Else
    
   ConsoleWrite($ip&" - YES - "&timerdiff($timer)&@CRLF)
   EndIf
   Next
   
   TCPShutdown()
EndFunc

Edited November 17, 2008 by ODPOA