TCPRecv auf W2k3 Server

  • Hallo,

    habe ein Problem mit TCPRecv auf einem W2k3 Server. Habe ein Client und ein Server Script:

    Server:

    Spoiler anzeigen
    [autoit]

    While 1
    TCPStartup()
    $MainSocket = TCPListen(@IPAddress2, 33891, 100 )

    [/autoit] [autoit][/autoit] [autoit]

    Do
    $ConnectedSocket = TCPAccept($MainSocket)
    Until $ConnectedSocket <> -1

    [/autoit] [autoit][/autoit] [autoit]

    If $ConnectedSocket <> -1 Then
    $recv = TCPRecv($ConnectedSocket, 100)
    MsgBox(0,"Empfangen",$recv)
    EndIf
    TCPShutdown()

    [/autoit] [autoit][/autoit] [autoit]

    WEnd

    [/autoit]


    Client:

    Spoiler anzeigen
    [autoit]

    $Empfaenger_IP = "193.196.108.5"
    $Port = 33891
    $Text = InputBox("Text senden","Text eingeben, der gesendet werden soll","")
    If @error = 1 Then Exit

    [/autoit] [autoit][/autoit] [autoit]

    TCPStartUp()

    [/autoit] [autoit][/autoit] [autoit]

    $ConnectedSocket = TCPConnect($Empfaenger_IP, $Port)
    TCPSend($ConnectedSocket, $Text)

    [/autoit] [autoit][/autoit] [autoit]

    TCPShutdown ()

    [/autoit]

    Zum testen möchte ich vom Client Script aus an das Server Script einen Text schicken der dann am Serverscritp in einer MsgBox erscheint. Das funktioniert auch so lange wie es zwischen normalen XP Client ist. Wenn ich nun allerdings das Server Script auf einem W2K3-Server lege und versuche einen Text zu schicken, geht am Serverscript zwar eine MsgBox auf, diese ist allerdings vollkommen leer. Auch wenn ich sowohl Client als auch Serverscript auf den W2K3-Server lege und sozusagen lokal die Nachricht verschicke bleibt die MsgBox leer. Weiß jemand woran das liegen könnte?

    mfg

    Andy hat mir ein Schnitzel gebacken aber da war ein Raupi drauf und bevor Oscar das Bugfixen konnte kam Alina und gab mir ein AspirinJunkie.

    Einmal editiert, zuletzt von chip (12. Juni 2009 um 10:35)

    • Offizieller Beitrag

    Du solltest deinem Client auch die Zeit geben was zu senden:

    Spoiler anzeigen
    [autoit]

    $Empfaenger_IP = "193.196.108.5"
    $Port = 33891
    $Text = InputBox("Text senden","Text eingeben, der gesendet werden soll","")
    If @error = 1 Then Exit

    [/autoit] [autoit][/autoit] [autoit]

    TCPStartUp()

    [/autoit] [autoit][/autoit] [autoit]

    $ConnectedSocket = TCPConnect($Empfaenger_IP, $Port)
    TCPSend($ConnectedSocket, $Text)
    Sleep(1000)
    TCPShutdown ()

    [/autoit]
  • Arg, manchmal übersieht man die einfachsten Sachen. Vielen Dank.

    Andy hat mir ein Schnitzel gebacken aber da war ein Raupi drauf und bevor Oscar das Bugfixen konnte kam Alina und gab mir ein AspirinJunkie.