Beiträge von Norrec

Dim $IPAddress = "127.0.0.1", $Port = 23
TCPStartup()
$TCPListenSocket = TCPListen($IPAddress, $Port,10)
While 1
  $TCPAcceptSocket = TCPAccept($TCPListenSocket)
  TCPSend($TCPAcceptSocket, "test"&@CRLF)
  While $TCPAcceptSocket <> -1
     $receivedData = TCPRecv($TCPAcceptSocket, 2048)
     If $receivedData <> "" Then $Timer = TimerInit()
     If TimerDiff($Timer) > 1000 Then
        TCPSend($TCPAcceptSocket, 0) ;keepalive senden [NULL (NUL) 0 No Operation] RFC854; Hat der TelnetClient die Sesion unerwartet beendet, erzeugt der keepalive ERROR 100053
        If @error Then
           ConsoleWrite ("Socket ID:"&$TCPAcceptSocket&" Timeout. Error:"&@error&@CR)
           TCPCloseSocket($TCPAcceptSocket)
           $TCPAcceptSocket = -1
           $Timer = TimerInit()
        EndIf
     EndIf
     If $receivedData <> "" Then ConsoleWrite ("Sockeet ID:"&$TCPAcceptSocket&" Data: "&$receivedData)
  WEnd
WEnd

Dim $IPAddress = "127.0.0.1", $Port = 23

TCPStartup()
$TCPListenSocket = TCPListen($IPAddress, $Port,10)

While 1
  $TCPAcceptSocket = TCPAccept($TCPListenSocket)

  TCPSend($TCPAcceptSocket, "test"&@CRLF)
  While $TCPAcceptSocket <> -1
     $receivedData = TCPRecv($TCPAcceptSocket, 1024)
;~                TCPSend($TCPAcceptSocket, ">")
     If @error Then
        ConsoleWrite ("TCP Socket ID:"&$TCPAcceptSocket&" Timeout."&@CR)
        TCPCloseSocket($TCPAcceptSocket)
        $TCPAcceptSocket = -1
     EndIf
;~      If $receivedData <> "" Then ConsoleWrite ("TCP Receive from Sockeet ID:"&$TCPAcceptSocket&" Data: "&$receivedData&@CR)
     ConsoleWrite ("TCP Receive from Sockeet ID:"&$TCPAcceptSocket&" Data: "&$receivedData&@CR)
  WEnd
WEnd