script geht nicht richtig (Farbe suchen und Maus positionieren)

Dr.Galvany

hi leute, habe mal schnell ein kleines script gemacht.
aber es geht einfach nicht richtig.
das script selber ist io, vermude mal das ist eine schwäche von autoIt.
gibt es eine andere möglichkeit um nach farbpunkte zu suchen (scannen)?
hier habe ich noch dir 3 kleinen bilder dazu.

Spoiler anzeigen

C

opt("MouseCoordMode", 0)


#include <GUIConstants.au3>




$Form1 = GUICreate("Farbfinder GUI-1", 220, 150)
$Pic1 = GUICtrlCreatePic("rot.jpg", 40, 30, 20, 20)
$Pic2 = GUICtrlCreatePic("blau.jpg", 100, 30, 20, 20)
$Pic3 = GUICtrlCreatePic("grün.jpg", 160, 30, 20, 20)
$Button1 = GUICtrlCreateButton("Brau", 30, 100, 40)
$Button2 = GUICtrlCreateButton("Rot", 90, 100, 40)
$Button3 = GUICtrlCreateButton("Grün", 150, 100, 40)


GUICtrlSetColor(-1, 0xEBE9ED)
GUISetState(@SW_SHOW)




While 1
	$msg = GUIGetMsg()
	Select
		Case $msg = $GUI_EVENT_CLOSE
			ExitLoop
		Case $msg = $Button1
			BlockInput(1)
			MouseMove(110, 70, 40)
			BlockInput(0)
		Case $msg = $Button2
			BlockInput(1)
			MouseMove(50, 70, 40)
			BlockInput(0)
		Case $msg = $Button3
			BlockInput(1)
			MouseMove(170, 70, 40)
			BlockInput(0)
	EndSelect
WEnd




$coord1 = PixelSearch(5, 35, 220, 100, 0x00FF00, 5);grün
Sleep(50)
$coord2 = PixelSearch(5, 35, 220, 100, 0xFF0000, 5);rot
Sleep(50)
$coord3 = PixelSearch(5, 35, 220, 100, 0x0000FF, 5);blau
Sleep(50)


WinSetTitle($Form1, "", "Farbfinder GUI-2")


While 1
	$msg = GUIGetMsg()

	Select
		Case $msg = $GUI_EVENT_CLOSE
			ExitLoop
		Case $msg = $Button1
			If UBound($coord3, 0) Then
				MouseMove($coord3[0], $coord3[1], 40)
			Else
				MsgBox(0, "Nichts!", "Farbe nicht gefunden")
			EndIf

		Case $msg = $Button2
			If UBound($coord2, 0) Then
				MouseMove($coord2[0], $coord2[1], 40)
			Else
				MsgBox(0, "Nichts!", "Farbe nicht gefunden")
			EndIf

		Case $msg = $Button3
			If UBound($coord1, 0) Then
				MouseMove($coord1[0], $coord1[1], 40)
			Else
				MsgBox(0, "Nichts!", "Farbe nicht gefunden")
			EndIf

	EndSelect
WEnd


Exit

Alles anzeigen

**bernd670**

Hallo,

ich kann keinen Fehler erkennen, eine kleine Fehlerbeschreibung wäre evtl. hilfreich!

Dr.Galvany

hallo,
neim zweiten GUI "Farbfinder GUI-2" sucht er ja nach drei farben (rot,blau,grün) aber wenn er dann mit "MouseMove" zu den positionen soll geht er eigentlich nicht richtig hin bzw. er findet gar keine farbe

**bernd670**

Hallo,

füge am Anfang mal folgende Zeile ein:

Code

opt("PixelCoordMode", 0)

Dr.Galvany

bernd670 [Blockierte Grafik: http://michischmitt.de/Maxthon/B-plugin/smilies/22.gif] [Blockierte Grafik: http://michischmitt.de/Maxthon/B-plugin/smilies/21.gif]

danke es geht

mano wieso hatte ich das nicht drinnen

gibt es trotzdem noch eine andere möglichkeit eine farbe zu suchen?

no-GuRu

Danke ich spiele grad etwas mit rum...
Kann man da auch nach einem Bild suchen?
Zb eine Seite wo der Smiley heir ist: :teufel: ..
Und dann beim script den namen eingibt und es anpasst (wie geht das??) , sucht er dann den smiley?

EDIT//
Wie mach ich das denn das ich das suchen (zb) per F1 starte?
Damit ich es in einem anderen Fenster benutzen kann..

Also mein Plan ist es:
-Ein Fenster (sagen wir mal AA)
-Script was ein teil eines Bildes sucht
-Starthotkey (F1-F12)
..
Also so nun haben wir ein aktives Fenster (AA) Ich drücke nun F1 (Hotkey) zum starten..Nun wartet er solange bis das Teil des Bildes erscheint.!
Und wenn dies erschienen ist, klickt das Script drauf!
Dankeschon mal!

**peethebee**

Hallo!

Um eine Funktion auf eine Taste zu legen, benötigste du einen HotKey (siehe dazu auch die Hilfe). So legst du z.B. eine AKtion auf die Taste F1:

Code

HotKeySet("{F1}", "Scan")

Dazu muss eine Funktion namens Scan definiert sein, die dann bei Druck auf F1 automatisch aufgerufen wird.

Code

Func Scan()
; hier der Code
EndFunc

Zur Not kann man auch einen Klick auf den entsprechenden Button der GUI mit ControlClick simulieren. Wenn das geht - was ich vermute - dann könnte man sich das Umbauen in eine Funtkion sparen, sondern müsste innerhalb von Scan lediglich einmal ControlClick aufrufen.

peethebee

**bernd670**

Hallo,

ich habe mal eine kleine Routine geschrieben die nach einer Grafik sucht,
erwarte aber keine Geschwindigkeitsrekorde :D!

Spoiler anzeigen

C

opt("MouseCoordMode", 2)
opt("PixelCoordMode", 2)


#include <GUIConstants.au3>
Global $chksum


$Form1 = GUICreate("Grafikfinder", 220, 150)
$Pic1 = GUICtrlCreatePic("teufel.gif", 0, 0,30,30)
$Button1 = GUICtrlCreateButton("suchen", 30, 100, 60)
$Button2 = GUICtrlCreateButton("position", 130, 100, 60)
$status = GUICtrlCreateLabel("",5,130,210,20)
GUISetState(@SW_SHOW)


$chksum = PixelChecksum(0,0,30,30)


GUICtrlSetPos($pic1,Random(0,180),Random(0,60))


While 1
	$msg = GUIGetMsg()

	Select
		Case $msg = $GUI_EVENT_CLOSE
			ExitLoop
		Case $msg = $Button1
            $coord = SearchGrafic()
			If UBound($coord, 0) Then
				MouseMove($coord[0], $coord[1], 40)
			Else
				MsgBox(0, "Nichts!", "Grafik nicht gefunden")
			EndIf

        Case $msg = $Button2
            GUICtrlSetPos($pic1,Random(0,180),Random(0,60))

	EndSelect
WEnd


Func SearchGrafic ()
    Dim $coord[2]

    For $zeile = 0 To 60
        For $Spalte = 0 To 180
            GUICtrlSetData($status,"suche (z : " & $zeile & "  s : " & $Spalte & ")")
            If $chksum == PixelChecksum($Spalte,$zeile,$Spalte+30,$zeile+30) Then
                GUICtrlSetData($status,"gefunden (z : " & $zeile & "  s : " & $Spalte & ")")
                $coord[0] = $Spalte
                $coord[1] = $zeile
                Return $coord
            EndIf
        Next  
    Next
    GUICtrlSetData($status,"")
    Return 0
EndFunc


Exit

Alles anzeigen

Als Bild kann man eines der Smilies nutzen und bei $Pic1 angeben

Dr.Galvany

und wo ist das bild dazu?

ohne bild kommt aber auch nicht die box, das keins gefunden wurde.
sondern es geht auf pos 0,0

sorry es sucht Nicht richtig!

**bernd670**

Hallo,

ist logisch das er ohne Bild an die pos 0,0 geht, weil ja der Bereich von 0,0 - 30,30 am Anfang mit PixelChecksum gespeichert wird, das ist ohne grafik ein graues Viereck, das von SearchGrafic dann an der Positon 0,0 gefunden wird!

no-GuRu

Ok das funzt ja ganz super ..
nur EXTREM lagnsam^^wenn man da 1024x.... scannt brauch man ja jahre xD
Naja ok kannste mir mal den code machen das der mit F8 sucht?
Wär nett!

**bernd670**

Kein problem :tongue:!

Spoiler anzeigen

C

opt("MouseCoordMode", 2)
opt("PixelCoordMode", 2)


#include <GUIConstants.au3>
Global $chksum


$Form1 = GUICreate("Grafikfinder", 220, 150)
$Pic1 = GUICtrlCreatePic("teufel.gif", 0, 0,30,30)
$Button1 = GUICtrlCreateButton("suchen", 30, 100, 60)
$Button2 = GUICtrlCreateButton("position", 130, 100, 60)
$status = GUICtrlCreateLabel("",5,130,210,20)
GUISetState(@SW_SHOW)


$chksum = PixelChecksum(0,0,30,30)


GUICtrlSetPos($pic1,Random(0,180),Random(0,60))


HotKeySet("{F8}","Suche")


While 1
	$msg = GUIGetMsg()

	Select
		Case $msg = $GUI_EVENT_CLOSE
			ExitLoop
		Case $msg = $Button1
            Suche()

        Case $msg = $Button2
            GUICtrlSetPos($pic1,Random(0,180),Random(0,60))

	EndSelect
WEnd


Func Suche()
    $coord = SearchGrafic()
    If UBound($coord, 0) Then
        MouseMove($coord[0], $coord[1], 40)
    Else
        MsgBox(0, "Nichts!", "Grafik nicht gefunden")
    EndIf
EndFunc


Func SearchGrafic ()
    Dim $coord[2]

    For $zeile = 0 To 60
        For $Spalte = 0 To 180
            GUICtrlSetData($status,"suche (z : " & $zeile & "  s : " & $Spalte & ")")
            If $chksum == PixelChecksum($Spalte,$zeile,$Spalte+30,$zeile+30) Then
                GUICtrlSetData($status,"gefunden (z : " & $zeile & "  s : " & $Spalte & ")")
                $coord[0] = $Spalte
                $coord[1] = $zeile
                Return $coord
            EndIf
        Next  
    Next
    GUICtrlSetData($status,"")
    Return 0
EndFunc


Exit

Alles anzeigen

Dr.Galvany

Zitat

Original von no-GuRu
Ok das funzt ja ganz super ..
nur EXTREM lagnsam^^wenn man da 1024x.... scannt brauch man ja jahre xD
Naja ok kannste mir mal den code machen das der mit F8 sucht?
Wär nett!

du musst in der zeile 38 die 40 ändern in 0 oder 1

Code

MouseMove($coord[0], $coord[1], 0)

**bernd670**

Zitat
Original von Dr.Galvany

du musst in der zeile 38 die 40 ändern in 0 oder 1
Code
MouseMove($coord[0], $coord[1], 0)

Das ändert aber nur die Geschwindigkeit der Mausbewegung und nicht die der Suchroutine! Man könnte die Suchroutine so umschreiben das sie den Bildschirm in mehrere Abschnitte aufteilt und diese dann "quasi" parallel absucht.

Dr.Galvany

ja das stimmt!
aber die suche an für sich ist nicht langsam.
ich denke er hat gedacht, das er die ganze zeit such bis er (der cursor) auf position ist.
und ich vermute mal, das das was ich gemeint hab, auch das ist was er wollte

no-GuRu

Zitat

Original von Dr.Galvany
ja das stimmt!
aber die suche an für sich ist nicht langsam.
ich denke er hat gedacht, das er die ganze zeit such bis er (der cursor) auf position ist.
und ich vermute mal, das das was ich gemeint hab, auch das ist was er wollte

Jopp!
Ich mein das in der mitte (bestimmte postion) ein bestimmtes "bild" auftaucht..
Wenn dies auftacht , macht er ein klick daruf!