So ich wollte mal TCP ausprobieren:
Dafür hab ich nach Vorlage ein Client und ein Server erstellt!
Auf dem eigenen PC funktioniert das ja auch!
Nur was muss ich machen damit ich einem Freund, von dem ich die IP nicht weiß, aber er den Server offen hat, einen Text schicken kann?
Der Server:
Und der Client:
Ich hoffe ihr könnt mir weiterhelfen!
Ich bedanke mich jetzt schon mal!
P.S.: Ich glaube am Server stimmt auch etwas nicht!
Dafür hab ich nach Vorlage ein Client und ein Server erstellt!
Auf dem eigenen PC funktioniert das ja auch!
Nur was muss ich machen damit ich einem Freund, von dem ich die IP nicht weiß, aber er den Server offen hat, einen Text schicken kann?
Der Server:
PHP Code:
Global Const $IP = @IPAddress1
Global Const $PORT = 31758
Global $mainsocket
TCPStartup()
$mainsocket = TCPListen($IP, $PORT)
If $mainsocket = -1 Then MsgBox(0, "Error", "Konnte nicht verbinden!")
While 1
$acceptedSocket = TCPAccept($mainsocket)
If $acceptedSocket <> -1 Then
$receivedData = TCPRecv($acceptedSocket, 1024)
MsgBox(0, "Message", $receivedData)
TCPCloseSocket($acceptedSocket)
EndIf
WEnd
PHP Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Chat = GUICreate("Chat", 330, 180, 192, 124)
GUISetBkColor(0x00FF00)
$edit=GUICtrlCreateEdit("", 1, 0, 327, 153)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Send = GUICtrlCreateButton("Send", 56, 152, 227, 25)
GUICtrlSetBkColor(-1, 0x00FFFF)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $socket
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Func _senden()
Case $Send
$text=GUICtrlRead($edit)
_senden()
EndSwitch
WEnd
TCPStartup() ; TCP wird initialisiert
$socket = TCPConnect("Hier eben die IP die ich nicht weiß", 4321)
If $socket = -1 Then
MsgBox(16, "Error", "Die Verbindung zum Server konnte nicht hergestellt werden!")
EndIf
$sendedBytes = TCPSend($socket, $text)
If $sendedBytes = 0 Then
MsgBox(16, "Error", "Das Paket konnte nicht gesendet werden.")
EndIf
TCPCloseSocket($socket)
TCPShutdown()
EndFunc
Ich bedanke mich jetzt schon mal!
P.S.: Ich glaube am Server stimmt auch etwas nicht!