Hallo zusammen.
Ich wollte ein wenig mit TCP programmen herumprobieren, bin allerdings nicht weit gekommen.
Habe einen Server + Clienten geschrieben.
Mit dem Client will ich dem Server Nachrichten schicken.
Das klappt sogar, jedoch nur wenn ich den Client mit meiner Festen/Netzwerk IP füttere.
Sobald ich die Internet IP (keine ahnung wie die beiden heißen, aber ihr wisst was ich meine) benutze, funktioniert es nicht mehr.
Es kann denke ich nicht an meiner Firewall liegen, denn verbinden tun die beiden sich noch. Es kommen nur keine Nachrichten mehr beim Server an...
Wüsste wirklich gerne wo mein Fehler liegt.
Habe schon viel ausprobiert und weiß nicht mehr weiter.
Hier die beiden Scripts:
Client:
[autoit]#include <GUIConstantsEx.au3>
[/autoit][autoit][/autoit][autoit]TCPStartup()
$ip = TCPNameToIP ("mabbi.dnsuser.de")
$verbindungszeit = 0
While 1
ToolTip ("Verbinden",1,1)
Sleep(500)
$Socket = TCPConnect($IP, 65432)
If Not @error Then ExitLoop
$verbindungszeit = $verbindungszeit +1
If $verbindungszeit = 40 Then
MsgBox (0,"Fehler","Fehler beim Verbinden mit dem Server.")
Run ("MTC.exe")
Exit
EndIf
WEnd
ToolTip ("Bereit Client",1,1)
[/autoit][autoit][/autoit][autoit]While 1
$inutbox2 = InputBox ("Hallo","hallo")
TCPSend ($Socket,$inutbox2)
WEnd
Server:
[autoit]$IP = "192.168.0.100"
$sock = 0
TCPStartup ()
$tcplisten = TCPListen ($IP,65432,100)
Do
$sock = TCPAccept($TcpListen)
Until $sock <> -1
ToolTip ("Bereit Server",1,40)
While 1
$1 = TCPRecv ($sock,4000)
If $1 = 1 Then
Exit
EndIf
WEnd