Hallo
Bei mir kommen TCP Nachrichten nicht an und ich habe keine Ahnung woran das liegt.
Server:
[autoit]Local $szIPADDRESS = @IPAddress1Local $nPORT = 33811TCPStartup()$Socket=TCPListen($szIPADDRESS, $nPORT)if @error thenMsgBox(0, "Fehler", "Verbindung konnte nicht hergestellt werden")ExitEndIfWhile 1$Sockets=TCPAccept($Socket)Wend
[/autoit]Client:
[autoit]Local $szIPADDRESS = @IPAddress1Local $nPORT = 33822TCPStartUp()$Socket=TCPConnect($szIPADDRESS, $nPORT)if @error ThenMsgBox(0, "Fehler", "Die Verbindung konnte nicht hergestellt werden")ExitEndIfHotKeySet("{F1}", "senden")While 1$recv=TCPRecv($Socket, 100)if $recv <> "" ThenMsgBox(0, "Nachricht", $recv)EndIfWEndfunc senden()$input=InputBox(0, "Senden", "Was soll gesendet werden?")if not @error then TCPSend($Socket, $input)EndFunc
[/autoit]Edit: Server: http://pastebin.com/m14489256 Client: http://pastebin.com/m67ac0404