13 Years of Service
24%
Server:
Client:
Code:
>Func _server($ip,$porta,$timer)
TCPStartup()
While 1
$socket=TCPConnect($ip,$porta)
If $socket=-1 Then
Sleep($timer)
Else
ExitLoop
EndIf
WEnd
Return $socket
EndFunc
Code:
>Func _client($ip,$porta)
TCPStartup()
$socket1=TCPListen($ip,$porta)
Do
$socket=TCPAccept($socket1)
Until $socket > 0
Return $socket
EndFunc