$mainsocket = TCPListen( $ip, $port) ; Den Mainsocket erstellen
While 1 ; Endlosschleife
$acceptedSocket = TCPAccept($mainsocket) ; Warte auf Empfang
If $acceptedSocket <> -1 Then
$receivedData = TCPRecv($acceptedSocket, 1024) ; Paket empfangen, wenn Verbindung geht
if $receivedData = "test" Then
run ( "notepad.exe" )
WinWaitActive ( "Unbennant - Editor" )
send ( "test erfolgreich" )
EndIf
MsgBox( 0, "Chat", "Nachricht von " & $receivedData ) ;Nachricht
TCPCloseSocket ( $acceptedSocket )
EndIf
WEnd
EndIf
func ende ()
Exit
EndFunc
Das fett markierte wird einfach übersprungen wenn ich es ausführe.
Das Empfangsprogramm ist auch geöffnet.
Ich bekomme dann die Msgbox mit dem Inhalt.
Hoffe auf Problemlösung