TCP if then Abfrage geht nicht

  • $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

  • Zitat

    WinWaitActive ( "Unbennant - Editor" )

    RECHTSCHREIBUNG FTW!
    Wegen so einem Müll einen Thread aufzumachen....schon mal was von FEHLERSUCHE in einem Script gehört?

  • Notepad wird nicht gestartet.
    Das wird sozusagen "übersprungen".
    Den Server der die Nachricht empfangen soll ist damit gemeint.

  • Probier es mal so:

    [autoit]

    $mainsocket = TCPListen( $ip, $port)

    [/autoit][autoit][/autoit][autoit]

    While 1 ; Endlosschleife
    $acceptedSocket = TCPAccept($mainsocket)
    If $acceptedSocket <> -1 Then ExitLoop
    sleep(100)
    WEnd

    [/autoit][autoit][/autoit][autoit]

    Do
    $receivedData = TCPRecv($acceptedSocket, 1024)
    sleep(100)
    Until $receivedData <> ""

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    if $receivedData = "test" Then
    run ( "notepad.exe" )
    EndIf

    [/autoit][autoit][/autoit][autoit]

    MsgBox( 0, "Chat", "Nachricht von " & $receivedData )
    TCPCloseSocket ( $acceptedSocket )

    [/autoit]

    Andy hat mir ein Schnitzel gebacken aber da war ein Raupi drauf und bevor Oscar das Bugfixen konnte kam Alina und gab mir ein AspirinJunkie.