Hey,
Ich hab mal im internet nach sachen für autoit geguckt und bin ann auf die erstellung eines servers etc.gekommen.
Die ip von dem ist 127.0.0.1 (glaub das ist die ip , die man ohne inet benutzt)
was müsste ich machen, damit , fals ich den server auf einem anderen pc öffne , und dann über den client auf meinem computer eine nachricht sende
eine msg box auf dem computer erscheint? Eina andere IP denke ich aber welche?
Spoiler anzeigen
HotKeySet ("{F1}", "beenden")
TCPStartup() ; TCP wird initialisiert
$input = InputBox ("Text","Text der gesendet wird")
$socket = TCPConnect("127.0.0.1", 4321) ; Versucht eine Verbindung zum Server aufzubauen und speichert die SocketID in "$socket" ab
If $socket = -1 Then ; Wenn $socket = -1 ist, Fehlermeldung ausgeben
MsgBox(16, "Error", "Die Verbindung zum Server konnte nicht hergestellt werden!") ; Fehlermeldung
EndIf
$sendedBytes = TCPSend($socket, $input) ; Sendet den Text an unseren verbundenen Socket
[/autoit] [autoit][/autoit] [autoit]If $sendedBytes = 0 Then ; Wenn der Rückgabewert von TCPSend(...) 0 ist, Fehlermeldung ausgeben
MsgBox(16, "Error", "Das Paket konnte nicht gesendet werden.") ; Fehlermeldung
EndIf
Func beenden ()
Exit
EndFunc
TCPCloseSocket($socket)
TCPShutdown()
Spoiler anzeigen
TCPStartup() ; TCP wird initialisiert
[/autoit] [autoit][/autoit] [autoit]$mainsocket = TCPListen("127.0.0.1", 4321) ; Den mainsocket erstellen
[/autoit] [autoit][/autoit] [autoit]While 1 ; Endlosschleife
$acceptedSocket = TCPAccept($mainsocket) ; Wir versuchen eine möglicher Verbindung anzunehmen
If $acceptedSocket <> -1 Then ; Wenn $acceptedSocket ungleich -1 ist, ...
$receivedData = TCPRecv($acceptedSocket, 1024) ; Wenn eine Socketverbindung hergestellt wurde, empfange ein Paket vom Client ($connectedSocket)
MsgBox(64, "Nachricht empfangen!", "" & $receivedData)
TCPCloseSocket($acceptedSocket)
EndIf
WEnd