TCPStartup()

$hMainSocket = TCPListen(@IPAddress1, 1337)
If $hMainSocket = -1 Then
	MsgBox(16, "Error", "Socket Error: " & $hMainSocket)
	Exit
EndIf

Do
	$hAcceptedClient = TCPAccept($hMainSocket)
Until $hAcceptedClient <> -1

$sMessage = ""

Do
	$sMessage &= TCPRecv($hAcceptedClient, 2048)
Until StringRight($sMessage, 3) = "EOS"

TCPCloseSocket($hAcceptedClient)
TCPCloseSocket($hMainSocket)
TCPShutdown()

MsgBox(48, "Message", $sMessage)