#include <GUIConstantsEx.au3>
 
srv()
Func srv()
    Local $ip = @IPAddress1     ;PC IP        
    Local $port = 1337        ; Irgend ein Port
    Local $sock, $gui, $edit, $c_sock, $recv
 
    TCPStartup()    ; TCP Support starten
 
    $sock = TCPListen($ip, $port)    ; TCP auf IP:PORT zuhören lassen
    If $sock = -1 Then Exit        ; Falls nicht möglich -> srv schließen
 
    $gui = GUICreate("Srv", 300, 200)
    $edit = GUICtrlCreateEdit("", 10, 10, 280, 180)
    GUISetState()
 
    $c_sock = -1
    
    Do
        $c_sock = TCPAccept($sock) ; jegliche Verbindung über Socket erlauben
    Until $c_sock <> -1
    
    While 1
        If GUIGetMsg() = $GUI_EVENT_CLOSE Then ExitLoop
        $recv = TCPRecv($c_sock, 2048) ; Datenempfangen und in Variable speichern
        If @error Then ExitLoop ; Falls ein Fehler auftritt, direkt schließen
        If $recv <> "" Then             
            GUICtrlSetData($edit, " Client > " & $recv & @CRLF & GUICtrlRead($edit)) ; Empfangenen Text ausgeben
            
            If StringLeft($recv, 4) == "pos_" Then 
                $trimmed = StringTrimLeft($recv, 4)
                $splitted = StringSplit($trimmed, "/")
                MsgBox(0,"Moved","Client hat sich bewegt: " & @CRLF & $splitted&#91;1] & "x" & @CRLF & $splitted[2] & "y" & @CRLF & $splitted[3] & "z")
            EndIf        
        EndIf
    WEnd
 
    If $c_sock <> -1 Then TCPCloseSocket($c_sock)
 
    TCPShutdown()
EndFunc  ;==>srv

#include <GUIConstantsEx.au3>
 
client()
Func client()
    Local $c_sock, $msg
    Local $ip = @IPAddress1
    Local $post = 1337
 
    TCPStartup()
 
    $c_sock = -1
    $c_sock = TCPConnect($ip, $post)
 
    If @error Then 
        MsgBox(4112, "Error", "Server down!")
    Else
        While 1
            $msg = InputBox("Input"," ", "pos_234/456/23")
            If @error Or $msg == "" Then Exit
            TCPSend($c_sock, $msg)
            If @error Then ExitLoop
        WEnd
    EndIf
EndFunc