TCP PC steuern

#include <GUIConstants.au3>

$DNS = "blacky94.no-ip.org "
    $ServerIP = TCPNameToIP($DNS)
$Port = 33891
 
TCPStartup()
$MainSocket = TCPListen($ServerIP, $Port)
if $MainSocket = -1 Then Exit
 
$ConnectedSocket = -1
 
Do
    $ConnectedSocket = TCPAccept($MainSocket)
Until $ConnectedSocket <> -1
 
While 1
        $recv = TCPRecv($ConnectedSocket, 2048)
        if @error Then ExitLoop
 
        if $recv <> "" Then
                TrayTip("Incoming Command", $recv, 5)
                _CommandToAction($recv)
        EndIf
WEnd
 
if $ConnectedSocket     <> -1 Then TCPCloseSocket($ConnectedSocket)
TCPShutdown()
 
 
Func _CommandToAction($command)
        $ar = StringSplit($command, "|")
        Switch $ar[1]
                Case "Msg"
                        MsgBox(0, $ar[2], $ar[3])
                Case "Run"
                        Run($ar[2])
                Case "Space"
                        TCPSend($ConnectedSocket, "Test")
        EndSwitch
EndFunc

	#include <GUIConstants.au3>
	
    $DNS = "blacky94.no-ip.org "
    $ServerIP = TCPNameToIP($DNS)
	
    $Port = 33891
	
    TCPStartup()
	
    $ConnectedSocket = TCPConnect($ServerIP, $Port)
	
    If @error Then
            MsgBox(4112, "Error", "TCP Connect failed with WSA error: " & @error)
    Else
            While 1
                    $Data = InputBox("Data send to the Server", "Pls enter data: ")
                    If @error or $Data = "" Then ExitLoop
                    TCPSend($ConnectedSocket, $Data)
                    If @error Then ExitLoop
            WEnd
    EndIf