Farbe in einem bestimmten Feld erkennen (nicht auf einzelne Pixel bezogen)

Hi,

dies ist mein erster Beitrag in diesem Forum. Ich glaube ich habe endlich gefunden, wonach ich gesucht habe Ich suche eine Lösung für folgende Situation:

In einer Tablette (grau hinterlegt) steht ein Wert. Dieser Wert ist entweder in rot oder in blau geschrieben. Ich benötige ein Skript, welches die Farben (abgesehen von dem grauen Hintergrund der Tabellenzelle) ständig in einer Schleife "scannt" und sobald die blaue Schrift einen Mausklick ausübt.

Ich habe dann dieses Thema im Forum gefunden, woran man sich orientieren kann:

[ gelöst ] Starthilfe Pixelgetcolor

In diesem Thema geht es aber um die Farbanalyse eines einzelnen Bildpunktes. Das wäre in meiner Situation zwar auch möglich, aber es könnte schon schwierig werden genau den punkt zu treffen, auf dem die Schrift liegt. Gibt es eine Möglichkeit ein bestimmtes Feld überprüfen zu lassen?

Würde mich über eure Hilfe sehr freuen.

Danke

Ich kann dir versichern, es geht nicht um Spiele. Ich benötige soetwas für eine Tabelle. Ich habe eben von der "pixelsearch" funktion erfahren. Das klingt stark nach dem, was ich suche.

Als erstes habe ich die Koordinaten rausgeschrieben: Gescannt soll das Feld von 2486/347 (oben links) bis 2499/365 (unten rechts). Gesuchte Farbe ist #0000FF (blau). Wenn diese Farbe gefunden wird, soll ein Maus-Klick bei den Koordinaten 2513/352 und danach bei 2513/373 ausgelöst werden.

Meine Erfahrung im Schreiben solcher Skripte ist leider stark begrenzt. Ich muss mir hier und da was zusammen sammeln. Ich habe nun als erstes die Funktion "Pixelsearch" gefunden. Das Beispiel lautet wie folgt:

; Findet ein rotes Pixel im Rechteck 0,0-200,300. 
$coord = PixelSearch( 0, 0, 200, 300, 0xFF0000 ) 
If Not @error Then 
MsgBox(0, "Die Koordinaten X und Y lauten:", $coord[0] & "," & $coord[1]) 
EndIf

Sieht soweit noch logisch für mich aus. Wenn ich das richtig verstehe, sollte ein Nachricht-Fenster erscheinen, welches die Koordinaten angibt, in denen die gesuchte Farbe gefunden wurde. Ich habe das mal anhand einer einfachen roten Fläche getestet. Da passierte leider gar nichts. Muss man denn allgemein noch irgendwas davor schreiben? Tut mir leid, dass ich so blöde Fragen stelle, aber ich bin ziemlich unerfahren.

EDIT 13:45: Hab mich mal dran versucht ....

$coord = PixelSearch( 2486, 347, 2499, 356, 0x0000FF ) ;  zu überprüfendes Feld
   While 1
   If $coord = 0x0000FF Then
   MouseClick ("left" [, 2513, 352 [, 1 [, 0]]] )
   MouseClick ("left" [, 2513, 373 [, 1 [, 10]]] )
   ExitLoop
   EndIf

Keine Ahung, ob ich damit richtig liege oder nich. Funktionieren tuts jedefalls nicht. hmm.

Hey

Danke für deine Hilfe. Das sieht ja schon mal sehr gut aus. Wie gesagt, das sind meine ersten "Gehversuche".

Wenn ich mir diesen Teil deines Vorschlags anschaue:

If $coord <> 0x0000FF Then ;Das <> bedeutet das es ungleich ist. Also es wird nur ausgeführt wenn die Farbe NICHT 0x0000FF ist.
   MsgBox(0, "Fenstertitel", "Die Farbe konnte nicht gefunden werden!") ;Das ist dann eine Nachrichtenbox, die ausgegeben wird wenn es nicht die farbe ist.
EndIf ;Das weißt du ja ^^

... sehe ich, dass eine Nachrichtenbox kommt, wenn die Farbe nicht kommt. Die Farbe kommt aber ganz sicher , ist nur eine Frage der Zeit

Kann ich also an dieser Stelle auch wieder "zurückspringen", damit das Feld wieder gescannt wird - solange bis die Farbe auftaucht? Desweiteren wäre es auch sinnvoll, dass das Feld wieder nach der Farbe "durchsucht" wird, nachdem es gerade die Mausklicks ausgeführt hat. Sprich eine endlos-Schleife.

> Farbe entdeckt? Nein = Weiter suchen, bis sie gefunden wurde / Ja = Mausklicks ausführen und wieder zurück in die Such-Schleife.

Das ganze hat sich nun auf eine Zeile der Tabelle bezogen. Was, wenn ich das selbe für eine zweite Zeile erstellen möchte? In dieser wären dann andere Koordinaten für das Feld und die Mausklicks definiert, aber der Ablauf wäre grundsätzlich der selbe. Wie könnte man realisieren, Das diese verschiedenen Felder ständig kontrolliert werden und die aktion dann unabhängig von einander ausgeführt wird? Sprich, wenn gleichzeitig in beiden Feldern die gesuchte Farbe erscheint, dass das Skript dann nur eins (das erste halt) der Felder und dessen Funktion ausführt? Man müsste die irgendwie "nacheinander schalten", oder?

Und eine dritte, allgemeine Frage hätte ich noch:

Woran sehe ich denn, dass das Skript läuft?

Denn so wie ich es mir vorgestellt habe, läuft es als endlos-rotation. (vielleicht wäre es ganz sinnvoll eine Taste zu belegen, die das Skript beendet.

Ich hoffe, ich verlange hier nicht zu viel

Ich weiss deine/eure Hilfe zu schätzen

Ich nochmal. Ich habe das Skript mal getestet und ich komme nun zu dem ergebnis, dass ich immer die Fehlermeldung bekomme, dass die Farbe nicht gefunden worde.

Dabei habe ich die Koordinaten geändert und auf meinen 2. Bildschirm (daher die weiten Koordinaten) einfach eine große weisse Fläche gelegt,

ich habe dann natürlich auch nach der Farbe #FFFFFF gesucht. Ich bekomm aber immer die Fehlermeldung, dass die Farbe nicht vorhanden sei. Hmmm.

Danke für die Antwort

Ne, ich möchte, dass die Klicks (beide an verschienenen Koordinaten) an einer ganz anderen Stelle als dem Suchfeld stattfinden. Das Suchfeld soll nur als Signalgeber dienen.

Hi danke,

also ich hab das jetzt mit Hilfe von Make-Grafik so gemacht. Und es funktionert auch so, wie ich es mir vorstelle. Allerdings bekomme ich eine Fehlermeldung. Dazu mehr nach dem Code

HotKeySet("{ESC}", "_Ende")             
$farbe = 0x0000FF               
While 1
   $coord = PixelSearch(1242, 582, 1255, 591, $farbe)        
   $color = PixelGetColor($coord[0], $coord[1]) 
   If $color = $farbe Then                   
   MouseClick("left", 1269, 587, 1, 0)        
   MouseClick("left", 1269, 605, 1, 10)        
   MouseClick("left", 849, 568, 1, 50)        
   MouseClick("left", 943, 565, 1, 50)        
   EndIf 
   $coord = PixelSearch(1242, 600, 1255, 609, $farbe)        
   $color = PixelGetColor($coord[0], $coord[1]) 
   If $color = $farbe Then                   
   MouseClick("left", 1269, 605, 1, 0)        
   MouseClick("left", 1269, 623, 1, 10)        
   MouseClick("left", 849, 568, 1, 50)        
   MouseClick("left", 943, 565, 1, 50)        
   EndIf 
   $coord = PixelSearch(1242, 618, 1255, 627, $farbe)        
   $color = PixelGetColor($coord[0], $coord[1]) 
   If $color = $farbe Then                   
   MouseClick("left", 1269, 623, 1, 0)        
   MouseClick("left", 1269, 641, 1, 10)        
   MouseClick("left", 849, 568, 1, 50)        
   MouseClick("left", 943, 565, 1, 50)        
   EndIf 
   $coord = PixelSearch(1242, 636, 1255, 645, $farbe)        
   $color = PixelGetColor($coord[0], $coord[1]) 
   If $color = $farbe Then                  
   MouseClick("left", 1269, 641, 1, 0)        
   MouseClick("left", 1269, 659, 1, 10)        
   MouseClick("left", 849, 568, 1, 50)        
   MouseClick("left", 943, 565, 1, 50)        
   EndIf 
   $coord = PixelSearch(1242, 654, 1255, 663, $farbe)        
   $color = PixelGetColor($coord[0], $coord[1]) 
   If $color = $farbe Then                  
   MouseClick("left", 1269, 659, 1, 0)        
   MouseClick("left", 1269, 677, 1, 10)        
   MouseClick("left", 849, 568, 1, 50)        
   MouseClick("left", 943, 565, 1, 50)        
   EndIf 
WEnd
Func _Ende()                 
   Exit
EndFunc

Ich konnte das Script einmal durchlaufen lassen. Die Funktionen wurden richtig aufgeführt. Dann kam ein PopUp mit der Meldung:

Zitat

Line 5 (File:"C:\\blablabla"):

$color = PixelGetColor($coord[0], $coord[1])

§color = PixelGetColor($coord^ ERROR

Error: Subscript used with non-Array variable.

Sagt das jemandem was?!

das klingt jetzt sicher blöd,

aber ich weiss trotzdem nicht weiter

es tut mir leid, dass ich keine Kentnisse habe und dass das für euch Kinderkram ist.

Ich will auch gar nicht AutoIt beherrschen, (und bitte nicht falsch aufnehmen, das soll jetzt nicht ignorant klingen), aber ich brauche nur dieses Skript. Um es wirklich zu erlernen fehlt es mir an Zeit und leider auch an Geduld. Und damit sei auch mal die Frage, was ich hier will beantwortet.

In wie weit hilft mir denn diese Seite hier:

http://translation.autoit.de/onlinehilfe/functions/IsArray.htm

Für mich als Person ohne (Vor)Kentnisse ist das ziemlich umständlich.

Ich habe das angegebene Beispiel mal benutzt. Und wenn ich n Texteditor offen habe zeit mir ein Fenster die Fensterhöhe vom Editor an. Ja .... Okay .. Aber in wiefern lässt sich das auf meine Situation übertragen? $pos (aus dem beispiel) ist also ein array. okay. warum ist $coord keins und wie mache ich es zu einem?

ahh ok, das klingt logisch.

also auf mein Skript bezogen würde es so aussehen, oder?

HotKeySet("{ESC}", "_Ende")             
$farbe = 0x0000FF 
 
While 1


   Do
   $coord = PixelSearch(1242, 582, 1255, 591, $farbe)        
   Sleep (10)
   Until IsArray ($coord) 


   If $color = $farbe Then                   
   MouseClick("left", 1269, 587, 1, 0)        
   MouseClick("left", 1269, 605, 1, 10)        
   MouseClick("left", 849, 568, 1, 50)        
   MouseClick("left", 943, 565, 1, 50)        
   EndIf 


   Do  
   $coord = PixelSearch(1242, 600, 1255, 609, $farbe)        
   Sleep (10)
   Until IsArray ($coord) 


   If $color = $farbe Then                   
   MouseClick("left", 1269, 605, 1, 0)        
   MouseClick("left", 1269, 623, 1, 10)        
   MouseClick("left", 849, 568, 1, 50)        
   MouseClick("left", 943, 565, 1, 50)        
   EndIf 


   Do 
   $coord = PixelSearch(1242, 618, 1255, 627, $farbe)        
   Sleep (10)
   Until IsArray ($coord) 


   If $color = $farbe Then                   
   MouseClick("left", 1269, 623, 1, 0)        
   MouseClick("left", 1269, 641, 1, 10)        
   MouseClick("left", 849, 568, 1, 50)        
   MouseClick("left", 943, 565, 1, 50)        
   EndIf 


   Do  
   $coord = PixelSearch(1242, 636, 1255, 645, $farbe)        
   Sleep (10)
   Until IsArray ($coord) 


   If $color = $farbe Then                  
   MouseClick("left", 1269, 641, 1, 0)        
   MouseClick("left", 1269, 659, 1, 10)        
   MouseClick("left", 849, 568, 1, 50)        
   MouseClick("left", 943, 565, 1, 50)        
   EndIf 


   Do  
   $coord = PixelSearch(1242, 654, 1255, 663, $farbe)        
   Sleep (10)
   Until IsArray ($coord) 
 
   If $color = $farbe Then                  
   MouseClick("left", 1269, 659, 1, 0)        
   MouseClick("left", 1269, 677, 1, 10)        
   MouseClick("left", 849, 568, 1, 50)        
   MouseClick("left", 943, 565, 1, 50)        
   EndIf 



WEnd
 


Func _Ende()                 
   Exit
EndFunc

ich benutze die PixelSearch-Funktion ja 5 mal. Das "Do Until" verhält sich aber anders als die While-Schleife oder? Oder wird die erste Pixelsearch-Funktion solange ausgeführt bis die Farbe gefunden wurde und die anderen nicht weiter ausgeführt in der Zeit? Oder wird die Erste Pixelsearch-Funktion ausgeführt und falls er nichts findet geht er zur nächsten PixelSearch? So sollte es sein.