TCPStartup()
$MainSocket = TCPListen("0.0.0.0", 5555)
If $MainSocket = -1 Then
	MsgBox(16, "Error", "Can not open TCP Socket")
	Exit
EndIf

ConsoleWrite("waiting for connection" & @CRLF)
Do
	$ConnectedSocket = TCPAccept($MainSocket)
Until $ConnectedSocket <> -1

ConsoleWrite("connected" & @CRLF)

While 1
	$text = TCPRecv($ConnectedSocket, 2048)
	If not @error then ConsoleWrite($text & @CRLF)
WEnd