tcp - client der mit server kommuniziert

hallo k�nnt ihr mir sagen wiso folgendes script online nicht funktioniert?
client:

Code:

TCPStartup()

$socket = TCPConnect(13.45.76.345, 4321)

If $socket = -1 Then
    MsgBox(16, "Error", "es konnte keine vergindung zum server hergestellt werden")
EndIf

$sendedBytes = TCPSend($socket, "Hallo es geht^^")

If $sendedBytes = 0 Then
    MsgBox(16, "Error", "das paket konnte nich gesendet werden")
EndIf

TCPCloseSocket($socket)
TCPShutdown()

server

Code:

TCPStartup()

$mainsocket = TCPListen("@IPAddress1", 4321)

While 1
    $acceptedSocket = TCPAccept($mainsocket)
    
    If $acceptedSocket <> -1 Then
        $receivedData = TCPRecv($acceptedSocket, 1024)
        MsgBox(64, "juhu", "Es wurde folgende Nachricht empfangen: " & $receivedData)
        TCPCloseSocket($acceptedSocket)
    EndIf
WEnd

ich bin mir nicht ganz sicher ob ich die ports richtig freigeschaltet habe vlt. liegt es daran hier ein screen
[Only registered and activated users can see links. Click Here To Register...]