Tachchen,
hab nen kleines Problem. Und zwar möchte ich, dass zwei Rechner übers Internet miteinander kommunizieren.
Ziel ist es mit meinem Laptop meinem Desktop-PC Befehle zu schicken, wennich nich zu Hause bin.
Hier mal die Sources:
Client (für Desktop-PC)
[autoit]#include<INet.au3>
AutoItSetOption ( "TrayIconDebug" ,1 )
TCPStartUp()
$Port = 33891
$myip=_GetIP()
$packet = -1
$MainSocket = TCPListen(@IPAddress1, 33891)
$ConnectedSocket = TCPAccept($MainSocket)
$Empfaenger_IP = TCPNameToIP("beliebigerserver.no-ip.biz") ;// no-ip ist ein Redirecter. Bei der Auflösung zu einer IP kommt also meine momentane IP vom Laptop.
MsgBox(0,"",$Empfaenger_IP)
$ConnectedSocket = TCPConnect($Empfaenger_IP, $Port)
If $ConnectedSocket = -1 Then
MsgBox(0,"Fehler!","Verbindung konnte nicht hergestellt werden...")
Exit
EndIf
Sleep(1000)
TCPSend($ConnectedSocket,"IP:"&$myip)
Sleep(1000)
TCPShutdown ()
MsgBox(0,"","Erfolg!")
Und hier der Source für den Server(Laptop):
[autoit]TCPStartup()
While 1
$MainSocket = TCPListen(@IPAddress1, 33891)
while 1
$ConnectedSocket = TCPAccept($MainSocket)
If $ConnectedSocket <> -1 Then ExitLoop
Sleep(100)
WEnd
$happend=0
Do ;// Start Daten werden Empfangen
$recv = TCPRecv($ConnectedSocket, 2048)
Sleep(100)
;// Ende Daten werden Empfangen
;// Start IP verarbeiten
$strcontain=StringInStr($recv,"IP:")
If $strcontain <>0 Then
$ip=StringTrimLeft($recv,3)
ConsoleWrite($ip&@CRLF)
$happend=1
EndIf
;// Ende IP verarbeiten
Until $happend=1
ConsoleWrite("IP empfangen!")
$recv = TCPRecv($ConnectedSocket, 2048)
ConsoleWrite($recv)
sleep (100)
WEnd
TCPShutdown()
[/autoit]Das Ding ist, dass wenn ich die beiden auf einem PC ausführe, Empfängt der Server die IP, wenn ich den Clienten jetz aber aufm Laptop ausführe und den Server auf dem Desktop, kann der Laptop keine Verbindung herstellen.
Kann mir jemand helfen?
Vielen dank 
