tcp - client der mit server kommuniziert

Tohu · 07/02/2010, 13:48

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

PenGuin :O · 07/02/2010, 15:11

Afaik einfach Portweiterleitung von WAN IP auf LAN IP und dann den Server zuerst starten und mit dem Client auf die WAN IP connecten.

Tohu · 07/02/2010, 18:27

Quote:

Originally Posted by pinguin94

Afaik einfach Portweiterleitung von WAN IP auf LAN IP und dann den Server zuerst starten und mit dem Client auf die WAN IP connecten.

wie meinst du das?
wo stell ich das ein?

PenGuin :O · 07/02/2010, 18:35

Beim Router^^

http://de.wikipedia.org/wiki/Portweiterleitung

Tohu · 07/02/2010, 20:40

geht immer noch nicht -.-