Hallo zusammen
Ich brauch da mal eure Hilfe:
Wieso funktioniert das nicht?
Wenn ich es lokal mache funktioniert es(über die IP des gleichen PC's). Über 2 PC's nicht. (LAN)
Client:
[autoit]$ip = $cmdline[1]
$text = InputBox( "Nachricht", "Nachricht:")
TCPStartup()
$socket = TCPConnect($ip, 80)
If $socket = -1 Then
MsgBox(16, "Error", "Die Verbindung zum Server konnte nicht hergestellt werden!") ; Fehlermeldung
EndIf
$sendedBytes = TCPSend($socket, $text)
[/autoit][autoit][/autoit][autoit]If $sendedBytes = 0 Then MsgBox(16, "Error", "Das Paket konnte nicht gesendet werden.") ; Fehlermeldung
EndIf
TCPCloseSocket($socket)
TCPShutdown()
Server:
[autoit]TCPStartup()
$ip = $cmdline[1]
$mainsocket = TCPListen($ip, 80)
While 1
$acceptedSocket = TCPAccept($mainsocket)
If $acceptedSocket <> -1 Then
$receivedData = TCPRecv($acceptedSocket, 1024)
MsgBox(0, "1 neue Nachricht", "Nachricht: " & @crlf & $receivedData)
TCPCloseSocket($acceptedSocket)
EndIf
WEnd
PS.: Die $IP wird mit gegeben, als Parameter, weil die beiden Programme von einem anderen aus gestartet werden.