Hey Leute,
ich hab wahrscheinlich des Klassische Problem mit dem TCP,
hab schon einige Foren durchsucht / Sufu benutzt , konnt aber bisher noch keine Lösung finden.
mein Ziel: "Nachrichten mittels TCP via Internet versenden"
Ich besite eine fritz.box, hab diese intern Konfiguriert(Portfreigabe) auf:
Protokoll : TCP
von Port: 2000 bis Port 2000
an Computer: "mein Computer"
an Port 100
jetzt müsste ich meine "ServerSeite" ja folgend aufbauen:
[autoit]TCPStartup()
$sock = TCPListen(@ipaddress1,100)
While 1
$con = TCPAccept($sock)
if $con > 1 then
$msg = ""
while 1
$msg &= TCPRecv($con,2096)
if @error then ExitLoop
WEnd
if $msg <> "" Then
MsgBox(0,"Angekommen!",$msg)
Exit
EndIf
EndIf
WEnd
Bei TCPListen(), die eigene Ip des Rechners, also @ipadress1 und Port ja eigentlich 100 (da mein Router zu alles was ankmmt auf meinen PC bzw auf diesen Port weiterleitet) einstellen.
Auf der "ClientSeite" hab ich nun folgendes:
[autoit]TCPStartup()
[/autoit][autoit][/autoit][autoit]$msg = InputBox("nachricht","gib deine nachricht ein:")
[/autoit][autoit][/autoit][autoit]$sock = TCPConnect($IPDESROUTERS,2000)
[/autoit][autoit][/autoit][autoit]if $sock > 0 then
TCPSend($sock,$msg)
EndIf
TCPCloseSocket($sock)
[/autoit]
Bei TCPConnect müsste ich doch nun bei der Variable $IPDESROUTERS ja dessen Ip eingeben (ermittelt mit wieistmeineip.de) und als Port 2000.
Nun müssste mein Router ja eigentlich sämtliche Daten die er auf seinen Port 2000 erhält auf meinen Computer weiterleiten oder?
Leider funktionier meine theorie nicht, hat jemand eine Idee woran es liegen könnte?
mit freundlichen Grüßen
Timo(: