Hey,
ich habe ein Problem. Wir haben auf einem Rechner eine Server.au3 und auf einem anderen Rechner, in einem anderen Netz, eine Client.au3.
Das Problem: Wir können nicht connecten. Wenn wir den Server starten und versuchen mit TCPConnect drauf zuzugreifen wartet man lange und es kommt irg wann @error = 10060. Timeout.
Und ja, wir haben den Port freigegeben und auch in der Firewall den Port zugelassen. Wir haben schon jede IP benutzt, zuletzt die offene die man durch _GetIP bekommt.
Server:
Server
#include<inet.au3>
[/autoit] [autoit][/autoit] [autoit]Global Const $sSocketIP = _getip()
Global Const $sSocketPort = 4321
consolewrite($sSocketIP)
TCPStartup()
$MainSocket = TCPListen($sSocketIP, $sSocketPort)
While 1
$Accept = TCPAccept($MainSocket)
If $Accept <> -1 Then
MsgBox (0, "Client connected", "Ein Client ist connected!", 10)
Do
$Recv = TCPRecv($Accept, 1000)
Until $Recv <> ""
MsgBox(0, "Nachricht", "Es ist eine Nachricht eingegangen: " & @CRLF & $Recv)
EndIf
WEnd
TCPShutdown()
Client:
Client
Global Const $sConnectIP = "93.209.180.118"
Global Const $sConnectPort = 4321
TCPStartup()
$MainSocket = TCPConnect($sConnectIP, $sConnectPort)
If @error Then
MsgBox(0, "Fehler", "Es ist ein Fehler beim Connecten aufgetreten." & @CRLF & "Errorcode: " & @error)
Exit
Else
MsgBox(0, "Conected", "Client ist Connected.", 10)
EndIf
$sMail = "Testscript sendet an Masterserver."
While Sleep(4000)
$TcpSend = TCPSend($MainSocket, "Nachricht: " & @CRLF & $sMail)
If $TcpSend = 0 Then
MsgBox(0, "Fehler", "Senden Fehlgeschlagen." & @CRLF & "Errorcode: " & @error)
Exit
EndIf
WEnd
TCPShutdown()
Die IP Im Client müsste ihr anpassen um es zu testen. Lokal geht es, einfach @IPAdress1 benutzen.
Ich hoffe ihr könnte uns helfen.
