Hallo,
ich möchte aus langeweile ein TCP Chat über Lan schreiben.
Jetzt ist das Problem das nichts am Server ankommt.
Was mache ich Falsch ?
Clien
TCPStartup()
$socket = TCPConnect(@IPAddress1, 65432)
If $socket = -1 Then MsgBox(0, "ERROR", "Port Falsch")
Local $start = TimerInit()
Do
$ConnectedSocket = TCPAccept($socket)
Until $ConnectedSocket <> -1 Or (TimerDiff($start) > 25000)
While 1
$send = TCPSend($ConnectedSocket, "hi")
MsgBox (0,"",$send)
WEnd
Server
TCPStartup()
$socket = TCPListen(@IPAddress1, 65432, 100)
If $socket = -1 Then MsgBox(0, "ERROR", "Port Falsch")
Local $start = TimerInit()
Do
$ConnectedSocket = TCPAccept($socket)
Until $ConnectedSocket <> -1 Or (TimerDiff($start) > 25000)
While 1
$rec = TCPRecv($ConnectedSocket, 2048)
If $rec <> "" Then MsgBox (0,"",$rec)
WEnd