Global Const $IP = @IPAddress1
Global Const $PORT = 5393
TCPStartup()


$hCon = TCPConnect($IP,$PORT)
If @error Then Exit MsgBox(16,"","Server ist nicht gestartet. Fehler: "&@error)

TCPSend($hCon,"Hi. Ich bin "&@ComputerName&" mit dem User"& @UserName)
While 1
	$sRecv = TCPRecv($hCon,1024)
	If @error Then ExitLoop
	If $sRecv Then MsgBox(0,"Client Incoming",$sRecv)
	Sleep(100)
WEnd

TCPShutdown()