Server:
[autoit]
$news = "testitesto"
$ip = ""
$port = 3000
TCPStartup ()
[/autoit][autoit][/autoit][autoit]$mainsocket = TCPListen( $ip, $port )
[/autoit][autoit][/autoit][autoit]While 1
$acceptedSocket = TCPAccept($mainsocket)
If $acceptedSocket <> -1 Then
$receivedData = TCPRecv($acceptedSocket, 1024)
$socket = TCPConnect( $receivedData, $port )
If $socket = -1 Then
MsgBox(16, "Fehler Server", "Die Verbindung zum Client konnte nicht hergestellt werden!" )
Exit
EndIf
$sendedBytes = TCPSend( $socket, $news )
If $sendedBytes = 0 Then
MsgBox( 16, "Fehler Server", "News konnten nicht gesendet werden." )
Exit
EndIf
TCPCloseSocket($socket)
[/autoit][autoit][/autoit][autoit][/autoit][autoit]TCPCloseSocket ( $acceptedSocket )
EndIf
WEnd
Client:
$ip_server = "127.0.0.1"
$ip = @IPAddress1
$port = 3000
TCPStartup ()
$socket = TCPConnect( $ip_server, $port)
[/autoit][autoit][/autoit][autoit]If $socket = -1 Then
MsgBox(16, "Fehler Client", "Verbindung konnte nicht hergestellt werden")
EndIf
$sendedBytes = TCPSend( $socket, $ip )
[/autoit][autoit][/autoit][autoit]If $sendedBytes = 0 Then
MsgBox(16, "Fehler Client", "Pakete konnten nicht gesendet werden")
EndIf
TCPCloseSocket( $socket )
[/autoit][autoit][/autoit][autoit]$mainsocket = TCPListen( $ip_server, $port )
[/autoit][autoit][/autoit][autoit][/autoit][autoit]While 1
$acceptedSocket = TCPAccept( $mainsocket )
If $acceptedSocket <> -1 Then
$receivedData = TCPRecv( $acceptedSocket, 1024 )
MsgBox ( 0, "", $receivedData )
TCPCloseSocket ( $acceptedSocket )
EndIf
WEnd
Bei mir kommt dann beim Server immer die Fehlermeldung:
"Die Verbindung zum Client konnte nicht hergestellt werden"
Liegt es am Script oder daran das ich das alles an meinem PC mache?
Heißt, weil ich mich mit mir selber verbinde.
