How to check if TCP is connected

[mladost1]

I made a script that connects my and my room8s pc (TCP) by i have a problem - I have to restart my program(host) every time he turns his computer on and runs the client script. Is there a way i can check that he is disconnected and turn on the listening port again. (Does my TCPAccept() change to -1?)

Edited May 29, 2008 by mladost1

[SmOke_N]

I made a script that connects my and my room8s pc (TCP) by i have a problem - I have to restart my program(host) every time he turns his computer on and runs the server script. Is there a way i can check that he is disconnected and turn on the listening port again. (Does my TCPAccept() change to -1?)

If he's the client, why is he running a server script?

[mladost1]

If he's the client, why is he running a server script?

Sorry about that, my mistake

However the question still exist:

$main=TCPConnect($server,$port)
Do
;do something
Until $main=-1

However the mainsocket never changes and if i do this the socket always refreshes and has no time to connect:

$main=TCPConnect($server,$port)
Do
$main=TCPConnect($server,$port)
;do something
Until $main=-1

What should I do?

[sandin]

Global $ConnectedSocket, $szData
Global $szIPADDRESS = @IPAddress1 ;IP address
Global $nPORT = 23456 ;port
TCPStartup()
$MainSocket = TCPListen($szIPADDRESS, $nPORT)
If $MainSocket = -1 Then Exit
_listen()
func _listen()
    Do
        $ConnectedSocket = TCPAccept($MainSocket)
    Until $ConnectedSocket <> -1
EndFunc
While 1
    $MainSocket = TCPListen($szIPADDRESS, $nPORT)
    If $MainSocket = -1 Then _listen()
WEnd

didn't tested it though ;/