Hilfe bei TCP benötigt

Bloodykill

Horst pc:

Spoiler anzeigen

[autoit]

HotKeySet("!x","_exit")
Func _exit()
Exit
EndFunc

[/autoit] [autoit][/autoit] [autoit]

TCPStartup()
$Socket=TCPListen("127.0.0.1",33333)
TCPAccept($Socket)
While 1
$x=TCPRecv($Socket,100)
If $x ="jo" then MsgBox(0,"","")
WEnd

[/autoit]

pc vom client

Spoiler anzeigen

[autoit]

TCPStartup()
$y=TCPConnect("127.0.0.1",33333)
If $y=-1 then
MsgBox(0,"",@error)
Exit
EndIf

[/autoit] [autoit][/autoit] [autoit]

While 1
$x=InputBox("Befehle","Was soll gemacht werden?")
TCPSend($y,$x)
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit]

Es wird vom Server keine msgbox zurückgegeben was ist falsch...?

Bloodykill

*schieb hoch*

Bloodykill

*nomal hochschieb*

Schrubber

Bin mir zwar nicht sicher, aber ist 127.0.0.1 nicht immer Localhost?
Also versuchst du, Server und Client gleichzeitig zu sein.
Und das sollte eig nicht gehen?

**GtaSpider**

Heyho,

Du arbeitest mit dem Wert den TCPAccept zurück gibt, nicht mit dem TCPListen wert!

Spoiler anzeigen

[autoit]

HotKeySet("!x","_exit")
Func _exit()
Exit
EndFunc

[/autoit] [autoit][/autoit] [autoit]

TCPStartup()
$Socket=TCPListen("127.0.0.1",33333)
$hAcc = TCPAccept($Socket)
While 1
$x=TCPRecv($hAcc,100)
If $x ="jo" then MsgBox(0,"","")
WEnd

[/autoit]

Außerdem würde ich eine While schleife reinsetzen o.ä. solange $hAcc = '' führe TCPAccept aus. Aber das ist nicht notwendig

Gruß
Spider

Bloodykill

thx