Check a TCP IP connection

[p)(d]

i want to check if a tcp connection is established

but my code does not work 100% - any help or better ideas?

While 1
        Sleep(1000)
        If CheckConnection() Then
            GUICtrlSetColor($label, 0x00ff00)
        Else
            GUICtrlSetColor($label, 0xff0000)
        EndIf
    WEnd

Func CheckConnection()
    Local $port = "6510"    
    Local $result = RunWait(@ComSpec & " /c netstat -anop TCP", "", @SW_HIDE ,$STDERR_CHILD + $STDOUT_CHILD)
    Local $line = StdoutRead($result)
    Local $result_array = StringSplit($line, @LF)
    Local $found = False
    For $i =1 to $result_array[0]
        If StringInStr($result_array[$i], $port) Then
            $found = True
            ExitLoop
            EndIf
    Next
    Return $found
EndFunc    ;==>CheckConnection

[Jos]

You need to ensure that you retrieve all STDOUT information.

Check the helpfile for a good example.

Jos

[fctd]

Maybe something like this ?

Tring to make an script to detect if I have internet, display a tooltip is no internet but if internet no tooltip..

Gr.

[p)(d]

Thanx Jos,

with your tip it works now.

but is there a better way?

@fctd: i dont want to check if i can reach a system - i want to check if a connection is established

[fctd]

@fctd: i dont want to check if i can reach a system - i want to check if a connection is established

p)(d,

Like this ?

; Start The TCP Services
;==============================================
TCPStartUp()

; Connect to a Listening "SOCKET"
;==============================================
$socket = TCPConnect( "0.0.0.0", 12345 )
If $socket = -1 Then 
    Exit
Else
    MsgBox(0, "Connected to: ", $socket)
EndIf

; Shutdown the TCP connection
;==============================================
Func OnAutoItExit()
    ConsoleWrite("Can't connect =")
    TCPShutdown()
EndFunc

[p)(d]

hi fctd,

this script starts a tcpip connection.

but in my case a other application starts the connection and i want to use autoit to show if this connection is etablished.

p)(d,

Like this ?

; Start The TCP Services
;==============================================
TCPStartUp()

; Connect to a Listening "SOCKET"
;==============================================
$socket = TCPConnect( "0.0.0.0", 12345 )
If $socket = -1 Then 
    Exit
Else
    MsgBox(0, "Connected to: ", $socket)
EndIf

; Shutdown the TCP connection
;==============================================
Func OnAutoItExit()
    ConsoleWrite("Can't connect =")
    TCPShutdown()
EndFunc

[SmOke_N]

hi fctd,

this script starts a tcpip connection.

but in my case a other application starts the connection and i want to use autoit to show if this connection is etablished.

fctd's idea should work, as "TCPConnect" should only connect if the socket is "already open". Edited January 13, 2009 by SmOke_N

[fctd]

fctd's idea should work, as "TCPConnect" should only connect if the socket is "already open".

How are you making a connection ?

Greeting.

[p)(d]

hi fctd,

this script starts a tcpip connection.

but in my case a other application starts the connection and i want to use autoit to show if this connection is etablished.

the server on the other side is always listening!

i want to know if my computer has a established connection to this server or not.

i can see with sysinternals tcpview fctd's script starts a new tcp connection to my server and shows in every case the "Connected to:" message

on my computer there is a client application (no autoitscript!) that starts the TCP connection and i want to use my script as GUI/monitoring

if fctd's "test" would work it would be my favorite solution.

Edited January 13, 2009 by p)(d

[fctd]

Ok, Thanks for the explanation.

What is the end result? Was placing the "StdoutRead" in a loop enough?

Greetings.

[p)(d]

yes, stdout in a loop was the solution for me.

[p)(d]

hmm

stdout in a loop is no solution if the program runs a lot of days.

the memory usage increases and increases...

my program is a monitoring tool and it logs the established connections only

some idea for keeping the memory usage low?

[GEOSoft]

RunWait() won't accept $STDERR_CHILD + $STDOUT_CHILD.

You can only do that with Run()

[p)(d]

this is my code:

CODE

Func CheckConnection()

Local $found = False

Local $port = "4234"

Local $result = Run(@ComSpec & " /c netstat -anop TCP", "", @SW_HIDE ,$STDERR_CHILD + $STDOUT_CHILD)

Local $line

While 1

$line = StdoutRead($result)

If @error Then ExitLoop

Local $result_array = StringSplit($line, @LF)

For $i =1 to $result_array[0]

If StringInStr($result_array[$i], $port) Then

If StringInStr($result_array[$i], "HERGESTELLT") Then

$found = True

ExitLoop

EndIf

EndIf

Next

Wend

Return $found

EndFunc ;==>CheckConnection

Edited March 26, 2009 by p)(d

[p)(d]

How are you making a connection ?

Greeting.

i have a "black box software" on server one with my autoit program for monitoring the connections from server one to server two.

[Yashied]

func _IsInternet()
    
    local $Ret = DllCall('wininet.dll', 'int', 'InternetGetConnectedState', 'dword*', 0x20, 'dword', 0)
    
    if (@error) then
        return SetError(1, 0, 0)
    endif
    
    local $wError = _WinAPI_GetLastError()
    
    return SetError((not ($wError = 0)), $wError, $Ret[0])
endfunc; _IsInternet