hallo könnt ihr mir sagen wiso folgendes script online nicht funktioniert?
client:
Code
TCPStartup()
$socket = TCPConnect("13.45.76.345", 4321)
If $socket = -1 Then
MsgBox(16, "Error", "es konnte keine vergindung zum server hergestellt werden")
EndIf
$sendedBytes = TCPSend($socket, "Hallo es geht^^")
If $sendedBytes = 0 Then
MsgBox(16, "Error", "das paket konnte nich gesendet werden")
EndIf
TCPCloseSocket($socket)
TCPShutdown()
Alles anzeigen
server
Code
TCPStartup()
$mainsocket = TCPListen(@IPAddress1, 4321)
While 1
$acceptedSocket = TCPAccept($mainsocket)
If $acceptedSocket <> -1 Then
$receivedData = TCPRecv($acceptedSocket, 1024)
MsgBox(64, "juhu", "Es wurde folgende Nachricht empfangen: " & $receivedData)
TCPCloseSocket($acceptedSocket)
EndIf
WEnd
Alles anzeigen
screen von den ports!
[Blockierte Grafik: http://www.imagebanana.com/img/hqm8ikal/portbalbla.JPG]