habe folgendes problem

  • ich habe ein klein tul gemacht für mich aber es fuktionir nich bitte um hilfe es soll mir in es sol mir die grüne farbe finden in mehrern fenstern wi z.b. die hier

  • Könntest du vielleicht beschreiben was das für ein Tool sein soll bzw. deinen bisherigen Code posten?

    Aufgrund deiner aktuellen Beschreibung und auch Rechtschreibung kann dir wohl kaum jemand helfen!

    Auch ich habe mir dies zuerst durchgelesen: Wie poste ich richtig

    mfg Troin

  • Habe das hin bekommen . Aber habe ein anderes gefunden möchte über if anweisung eine auswahl machen es wird msbox aufgerufen ok soll weiter machen mit dem programm abrechen soll das beenden der kod siht so aus ( #include <GUIConstants.au3>
    #include <StaticConstants.au3>

    Opt("WinWaitDelay", 100)
    Opt("WinTitleMatchMode", 4)
    Opt("WinDetectHiddenText", 1)
    Opt("MouseCoordMode", 0)
    Opt("CaretCoordMode", 0)


    MsgBox(1,"", "Bevor sie das Programm starten bitte die Verbindung überprüfen")
    Run("C:\Programme\WAGO Software\WAGO-IO-Check 3\IOCheck3.exe")
    Sleep(3000)
    WinMove("Knoten1 - WAGO-I/O-Check 3", "", 100, 100, 1024, 768)
    Sleep(3000)
    Send("{F8}")
    Send("{Tab}")
    Send("{Tab}")
    Send("{Tab}")
    Send("{Tab}")
    Send("{Tab}")
    Send("{Tab}")
    Sleep(1000)
    Send("{down}")
    Send("{down}")
    Sleep(2000)
    Send("{Enter}")
    Sleep(2000)
    Send("{F5}")
    Sleep(2000)
    Send("{F6}")
    Sleep(2000)
    ; Im unteren abschnitt von WinWait bis sleep(2000) wird per maus klick das Navi Fenster aktiviert und pos Fenster ausgewählt.
    WinWait("Knoten1 - WAGO-I/O-Check 3","Navigation")
    If Not WinActive("Knoten1 - WAGO-I/O-Check 3","Navigation") Then WinActivate("Knoten1 - WAGO-I/O-Check 3","Navigation")
    WinWaitActive("Knoten1 - WAGO-I/O-Check 3","Navigation")
    MouseMove(104,257)
    MouseDown("left")
    MouseUp("left")
    Sleep(1000)
    Send("{down}")
    Send("{CTRLDOWN}{SHIFTDOWN}v{SHIFTUP}{CTRLUP}")
    Sleep(2000)
    ;Pos Fenster Aktivierung
    WinWait("Pos.1: 0750-04xx"," IDC_DESCRIPTION")
    If Not WinActive("Pos.1: 0750-04xx"," IDC_DESCRIPTION") Then WinActivate("Pos.1: 0750-04xx"," IDC_DESCRIPTION")
    WinWaitActive("Pos.1: 0750-04xx"," IDC_DESCRIPTION")
    Send("{CTRLDOWN}{RIGHT}{CTRLUP}")
    Send("{CTRLDOWN}{SHIFTDOWN}v{SHIFTUP}{CTRLUP}")
    Sleep(2000)
    ;Pos Fenster verschibung
    WinWait("Pos.2: 0750-05xx"," IDC_DESCRIPTION")
    If Not WinActive("Pos.2: 0750-05xx"," IDC_DESCRIPTION") Then WinActivate("Pos.2: 0750-05xx"," IDC_DESCRIPTION")
    WinWaitActive("Pos.2: 0750-05xx"," IDC_DESCRIPTION")
    MouseMove(82,10)
    MouseDown("left")
    MouseMove(247,9)
    MouseUp("left")
    Sleep(2000)
    ;Wird Fenster ausgewählt
    WinWait("Pos.2: 0750-05xx"," IDC_DESCRIPTION")
    If Not WinActive("Pos.2: 0750-05xx"," IDC_DESCRIPTION") Then WinActivate("Pos.2: 0750-05xx"," IDC_DESCRIPTION")
    WinWaitActive("Pos.2: 0750-05xx"," IDC_DESCRIPTION")
    MouseMove(171,84)
    MouseDown("left")
    MouseUp("left")
    Sleep(3000)


    ;Wird Fenster ausgewählt und Ausgenge gesetzt
    WinWait("Pos.2: 0750-05xx"," IDC_DESCRIPTION")
    If Not WinActive("Pos.2: 0750-05xx"," IDC_DESCRIPTION") Then WinActivate("Pos.2: 0750-05xx"," IDC_DESCRIPTION")
    WinWaitActive("Pos.2: 0750-05xx"," IDC_DESCRIPTION")
    Sleep(2000)
    ;Send("{TAB}")
    Sleep(2000)
    Send("{TAB}")
    Sleep(2000)
    ;Send("{TAB}")
    Sleep(2000)

    ;$coord = PixelSearch( 0, 0,658, 480, 0x00ff00, 25 )
    ;If Not @error Then
    ;MouseMove("left", $coord[0], $coord[1])
    ;MsgBox(0, "Die Koordinaten X und Y lauten:", $coord[0] & "," & $coord[1])
    ;Else
    ; MsgBox(0,"","Farbe nicht gefunden!")
    ;EndIf
    ;Sleep(5000)

    If Not WinActive("Pos.1: 0750-04xx"," IDC_DESCRIPTION") Then WinActivate("Pos.1: 0750-04xx"," IDC_DESCRIPTION")
    WinWaitActive("Pos.1: 0750-04xx"," IDC_DESCRIPTION")
    MouseMove(150, 85)
    MouseDown("left")
    MouseUp("left")
    Sleep(2000)
    $var1 = PixelGetColor( 656 , 484)
    Sleep(2000)
    ;MsgBox(0,"Der dezimale Wert der Farbe lautet", $var)
    ;MsgBox(0,"Der hexadezimale Wert der Farbe lautet", Hex($var, 6))
    MouseMove(150, 110)
    MouseDown("left")
    MouseUp("left")
    Sleep(2000)
    $var2 = PixelGetColor( 656 , 513 )
    Sleep(2000)
    ;MsgBox(0,"Der hexadezimale Wert der Farbe lautet", Hex($var, 6))
    MouseMove(150, 135)
    MouseDown("left")
    MouseUp("left")
    Sleep(2000)
    $var3 = PixelGetColor( 656 , 534 )
    Sleep(2000)
    ;MsgBox(0,"Der hexadezimale Wert der Farbe lautet", Hex($var, 6))
    MouseMove(150, 165)
    MouseDown("left")
    MouseUp("left")
    Sleep(2000)
    $var4 = PixelGetColor( 656 , 558 )
    Sleep(2000)
    MsgBox(0,"Der hexadezimale Wert der Farben lautet: ", Hex($var1, 6) & ", " & Hex($var2, 6) & ", " & Hex($var3, 6) & ", " & Hex($var4, 6)))

    Einmal editiert, zuletzt von smersch (22. Juni 2009 um 12:23)

  • Und an welcher Stelle soll die msgbox mit "Ok" und "Abbrechen" aufgerufen werden in deinem Programm?

    Lies dir mal in der Hilfedatei das Thema MsgBox durch.

    Hier ein Beispiel wie deine MsgBox aussehen kann:

    [autoit]

    MsgBox(1, "Test", "This box will time out in 10 seconds", 10)

    [/autoit]

    Das mit dem Programm beenden bzw. weiterfahren (If then else...) musst du dir selbst anschauen, denn ich gehe jetzt wieder zur Arbeit ;)

    mfg Troin

  • habe nach gelesen und nicts gefunden es soll nach der ( MsgBox(1,"", "Bevor sie das Programm starten bitte die Verbindung überprüfen")) die auswahl kommen ??? finde nichts

  • 1. Spoiler drum

    2. Bitte präziser formulieren

    3. Bitte mal die Rechtschreibung überprüfen

    ...

  • Also ich habe das mal so interpretiert:

    Er möchte am Anfang des Programmes eine MsgBox welche ihm sagt er solle irgendwas prüfen...
    Wenn in der MsgBox auf "Ok" geklickt wird soll das Programm weiterfahren, wenn auf "Beenden" geklickt wird --> Exit

    Könnte es das sein smersch? ^^

    Wie schon erwähnt ist es nicht allzu leicht da was zu entziffern ^^

    mfg Troin