PHP Code:
TCPStartup() ; TCP wird initialisiert
$mainsocket = TCPListen("0", 4321) ; Den mainsocket erstellen
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)
If Not $receivedData = "" Then
MsgBox(64, "Nachricht empfangen", $receivedData)
TCPCloseSocket($acceptedSocket)
EndIf
EndIf
WEnd
PHP Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$_1 = GUICreate("Text to send", 518, 270, 192, 124)
$text = GUICtrlCreateInput("Hi. Dieser Text wurde vom Client gesendet", 64, 16, 433, 21)
$Button1 = GUICtrlCreateButton("Senden", 392, 208, 113, 49)
$status = GUICtrlCreateLabel("Drücken sie Verbinden", 16, 200, 205, 20)
$ip = GUICtrlCreateInput("", 64, 40, 433, 21)
$Label1 = GUICtrlCreateLabel("Text:", 32, 16, 28, 17)
$Label2 = GUICtrlCreateLabel("IP:", 40, 40, 17, 17)
$Button2 = GUICtrlCreateButton("Verbinden", 256, 208, 113, 49)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_Func1 ()
Case $Button2
_Func2 ()
EndSwitch
$ipp = GUICtrlRead($ip)
WEnd
Func _Func1 () ;Hier wird eine Funktion gestartet und zwar die funktion die oben dem Button1 zugewiesen wurde
$textt = GUICtrlRead($text)
$ipp = GUICtrlRead($ip)
TCPStartup() ; TCP wird initialisiert
$socket = TCPConnect($ipp, 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,$textt) ; Sendet den Text an unseren verbundenen Socket
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
If Not $ipp = "" Then
If Not $textt = "" Then
MsgBox(64, $ipp, "'" & $textt & "'"&@CRLF& "" &@CRLF& "WURDE ABGESCHICKT") ; Fehlermeldung
EndIf
EndIf
TCPCloseSocket($socket)
TCPShutdown()
EndFunc
Func _Func2 ()
$ipp = GUICtrlRead($ip)
TCPStartup() ; TCP wird initialisiert
$socket = TCPConnect($ipp, 4321) ; Versucht eine Verbindung zum Server aufzubauen und speichert die SocketID in "$socket" ab
If $socket = -1 Then ; Wenn $socket = -1 ist, Fehlermeldung ausgeben
$status = GUICtrlCreateLabel("Keine Verbindung zum server", 16, 200, 205, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
EndIf
If $socket > -1 Then ; Wenn $socket = -1 ist, Fehlermeldung ausgeben
$ipp = GUICtrlRead($ip)
$status = GUICtrlCreateLabel("Verbunden mit " & $ipp, 16, 200, 205, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x00FF00)
EndIf
TCPCloseSocket($socket)
TCPShutdown()
EndFunc
