ImageSearch Versuch

Hallo,
ich wollte mal ImageSearch austesten, habe im Netz bereits etwas gefunden, aber es läuft nicht.
Ich habe im Desktop ein 1x4 Pixel Bild vom Papierkorb ausgeschnitten und als .bmp Datei in das Skript-ordner verlegt. Benannt "ausschnitt".
Wenn er dieses Bild findet soll es einfach eine MsgBox einblenden, das bestätigt, dass es gefunden worden ist.

Im Fenster unten bei Autoit, steht immer Exit code: 0

#include <ImageSearch.au3>

Func _Go()
While 1
_ImgSearch("ausschnitt")
Sleep(2000)
Wend
EndFunc

Func _ImgSearch($sPic, $iTimeout = 5000, $bClick = 1, $iTol = 5)
Local $iX = 0, $iY = 0, $bResult = 0, $iTimer = TimerInit()

$aPics = StringRegExp($sPic, '([^|]+)', 3)

While TimerDiff($iTimer) < $iTimeout
For $i = 0 To UBound($aPics) - 1
$bResult = _ImageSearch(@ScriptDir & "/Data/" & $aPics[$i] & ".bmp", 1, $iX, $iY, $iTol)
If $bResult = 1 Then ExitLoop(2)
MsgBox(64,"info", "gefunden",4000)
Sleep(50)
Next
WEnd

If $bResult=0 Then MsgBox(64,"info", "nichts gefunden",4000)

EndFunc

Ja, das habe ich ganz oben stehen.
Jetzt kommt folgendes:

Dann habe ich ein anderes Problem.
Beimir zeigt es einfach nichts an, jetzt steht wieder Exit Code: 0..
Es tut sich aber einfach nichts.

Hast du auch den Backslash "\" genommen?

und guck dir mal genau deine If-Abfrage an

Ja, habe ich..
die .au3 Dateien sind im Skriptordner und im "Include". Und die .dll ist im System32 Ordner. Daran kann es nicht liegen, oder ?

Versuch mal so:

Das ist ja meine UDF :P! Die hast du nicht ganz ordentlich angepasst^^

So gehts z.B. auch:

Du hast auch noch keine Steuerung drin, wie man den Bot startet/beendet. So läuft er nun auf ewig, genau wie bei m-obi, musst du hart abbrechen^^... Aber bei dir ist er ja nie in die Funktion gesprungen.
Wenn du die Messageboxen in die UDF mit einbauen willst, dann machs wie m-obi^^

LG
Aca

Zitat von x0r

grad getestet, funktioniert einwandfrei (habe auch ein 1x4 px großes Papierkorb-Bild gemacht ;))

[autoit]

#include <imagesearch.au3>
#AutoIt3Wrapper_UseX64=n

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

Global $ix, $iy, $itol, $bresult

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

$bResult = _ImageSearch(@ScriptDir & "\ausschnitt.bmp", 1, $iX, $iY, $iTol)
If $bResult = 1 Then MouseMove($ix, $iy)

[/autoit]

Also das klappt jetzt, hatte das Data vor dem slash vergessen Bin jetzt schon mal froh, das es funktioniert.

----------

Zitat von m-obi

Versuch mal so:

[autoit]

#include <ImageSearch.au3>

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

While 1
If _ImgSearch("ausschnitt", 10000, 0) Then
MsgBox(64,"Info", "Gefunden!",4000)
Else
MsgBox(64,"Info", "Nicht gefunden!",4000)
EndIf
Sleep(2000)
Wend

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

Func _ImgSearch($sPic, $iTimeout = 5000, $bClick = 1, $iTol = 5)
Local $iX = 0, $iY = 0, $bResult = 0, $iTimer = TimerInit()

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

$aPics = StringRegExp($sPic, '([^|]+)', 3)

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

While TimerDiff($iTimer) < $iTimeout
For $i = 0 To UBound($aPics) - 1
$bResult = _ImageSearch(@ScriptDir & "/Data/" & $aPics[$i] & ".bmp", 1, $iX, $iY, $iTol)
If $bResult = 1 Then ExitLoop(2)
Sleep(50)
Next
WEnd
If $bClick AND $bResult Then MouseClick("left", $iX, $iY, 1, 0)
Sleep(500)

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

Return $bResult
EndFunc ;==>_ImgSearch

[/autoit]

Alles anzeigen

Das funktioniert aber immernoch nicht, es bleibt bei Exit Code: 0 ...

Oder erweitere die UDF so:

Und dein Fehler ist, dass du die Datei im Script-Ordner hast, für die UDF wird aber das verlangt: _ImageSearch(@ScriptDir & "/Data/" & $aPics[$i] & ".bmp", 1, $iX, $iY, $iTol).
Zur Ordnung also, dass das Bild in einem Order "Data" im Scriptordner ist ;)...

LG
Aca

Dann mach doch da auch das data weg.

Zitat von Acanis

Das ist ja meine UDF :P! Die hast du nicht ganz ordentlich angepasst^^

So gehts z.B. auch:

Spoiler anzeigen

[autoit]

#include

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

While 1
If _ImgSearch("ausschnitt", 10000, 0) Then
MsgBox(64,"Info", "Gefunden!",4000)
Else
MsgBox(64,"Info", "Nicht gefunden!",4000)
EndIf
Sleep(2000)
Wend

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

Func _ImgSearch($sPic, $iTimeout = 5000, $bClick = 1, $iTol = 5)
Local $iX = 0, $iY = 0, $bResult = 0, $iTimer = TimerInit()

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

$aPics = StringRegExp($sPic, '([^|]+)', 3)

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

While TimerDiff($iTimer) < $iTimeout
For $i = 0 To UBound($aPics) - 1
$bResult = _ImageSearch(@ScriptDir & "/Data/" & $aPics[$i] & ".bmp", 1, $iX, $iY, $iTol)
If $bResult = 1 Then ExitLoop(2)
Sleep(50)
Next
WEnd
If $bClick AND $bResult Then MouseClick("left", $iX, $iY, 1, 0)
Sleep(500)

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

Return $bResult
EndFunc ;==>_ImgSearch

[/autoit]

Du hast auch noch keine Steuerung drin, wie man den Bot startet/beendet. So läuft er nun auf ewig, genau wie bei m-obi, musst du hart abbrechen^^... Aber bei dir ist er ja nie in die Funktion gesprungen.
Wenn du die Messageboxen in die UDF mit einbauen willst, dann machs wie m-obi^^

LG
Aca

Alles anzeigen

Oh cool
Ja jetzt klappt es, aber Endlos-Schleife, es kommt die ganze Zeit die MsgBox, obwohl ich es wegklicke. Das Exit of loop wird dann wohl nicht klappen ?

P.s: ich habe einen Data Ordner im Skriptordner, ihr habt mich flasch verstanden.

Schwer zu sagen, auf wen/was du dich beziehst und welchen Code du nu nimmst...^^ Deine Zitierart ist schlimm xD...

Das Exit-Loop in der Funktion bezieht sich nur auf diese Funktion. In der UDF steckt halt drin, dass man eine maximale Suchzeit einstellen kann. Wenn man da aber 10 Sekunden einstellt und er findet es nach 1 Sekunde, kann er ja aufhören zu suchen ;). Das macht das ExitLoop.
Wenn er nur 1x suchen soll, musste das so in der Art machen:

LG
Aca

Zitat von Acanis

Schwer zu sagen, auf wen/was du dich beziehst und welchen Code du nu nimmst...^^ Deine Zitierart ist schlimm xD...

Das Exit-Loop in der Funktion bezieht sich nur auf diese Funktion. In der UDF steckt halt drin, dass man eine maximale Suchzeit einstellen kann. Wenn man da aber 10 Sekunden einstellt und er findet es nach 1 Sekunde, kann er ja aufhören zu suchen ;). Das macht das ExitLoop.
Wenn er nur 1x suchen soll, musste das so in der Art machen:

Spoiler anzeigen

[autoit]

#include

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

While 1
If _ImgSearch("ausschnitt") Then Exit
Sleep(2000)
Wend

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

Func _ImgSearch($sPic, $iTimeout = 5000, $bClick = 0, $iTol = 5, $bInfo = 1)
Local $iX = 0, $iY = 0, $bResult = 0, $iTimer = TimerInit()

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

$aPics = StringRegExp($sPic, '([^|]+)', 3)

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

While TimerDiff($iTimer) < $iTimeout
For $i = 0 To UBound($aPics) - 1
$bResult = _ImageSearch(@ScriptDir & "/Data/" & $aPics[$i] & ".bmp", 1, $iX, $iY, $iTol)
If $bResult = 1 Then ExitLoop(2)
Sleep(50)
Next
WEnd
If $bClick AND $bResult Then MouseClick("left", $iX, $iY, 1, 0)
If $bInfo Then
If $bResult Then
MsgBox(64,"Info", "Gefunden!",4000)
Else
MsgBox(64,"Info", "Nicht gefunden!",4000)
EndIf
EndIf
Sleep(500)

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

Return $bResult
EndFunc ;==>_ImgSearch

[/autoit]

LG
Aca

Alles anzeigen

Ja, das verstehe ich ja, aber er geht nicht aus der Schleife raus Also es findet es, dann klick ich das Fenster weg, dann kommt nochmal gefunden.

Jetzt bei dem findet er nur einmal, das stimmt.

edit: meine Zitierung ist sehr schlimm hatte glaube ich paar mal erst auf auswählen gedrückt

Doch klar ist er aus der Schleife raus, sonst wären ja auch die Messageboxen nicht gekommen.
Aber in deiner Hauptschleife, wo du die Funktion ausgerufen hast, war kein "Ausgang". Die Hauptschleife ist "immer" eine Endlosschleife und man muss sich überlegen, wie man die verlassen will...^^ Bei meiner Änderung habe ich ihm nun gesagt, wenn die Funktion erfolgreich war, dann soll er das Programm beenden.
Anstatt Exit könntest du auch ExitLoop schreiben, denn wenn er die Hauptschleife verlässt und da unter nichts mehr außerhalb von Funktionen steht, terminiert das Programm auch!

x0r: Was soll das bringen? O.o Das ändert nichts an der Funktionalität, erhöht nur die Komplexität.

Zitat von x0r

[autoit]

While TimerDiff($iTimer) < $iTimeout
For $i = 0 To UBound($aPics) - 1
$bResult = _ImageSearch(@ScriptDir & "/Data/" & $aPics[$i] & ".bmp", 1, $iX, $iY, $iTol)
If $bResult = 1 Then ExitLoop
Sleep(50)
Next
if $bResult = 1 then ExitLoop
WEnd

[/autoit]

sowas in der art schonmal in betracht gezogen?
(die option bei exitloop hab ich noch nie benutzt)

Alles anzeigen

Das ist auch endlos, habs eben getestet.

Zitat von Acanis

Doch klar ist er aus der Schleife raus, sonst wären ja auch die Messageboxen nicht gekommen.
Aber in deiner Hauptschleife, wo du die Funktion ausgerufen hast, war kein "Ausgang". Die Hauptschleife ist "immer" eine Endlosschleife und man muss sich überlegen, wie man die verlassen will...^^ Bei meiner Änderung habe ich ihm nun gesagt, wenn die Funktion erfolgreich war, dann soll er das Programm beenden.
Anstatt Exit könntest du auch ExitLoop schreiben, denn wenn er die Hauptschleife verlässt und da unter nichts mehr außerhalb von Funktionen steht, terminiert das Programm auch!

x0r: Was soll das bringen? O.o Das ändert nichts an der Funktionalität, erhöht nur die Komplexität.

Achso okey, jetzt habe ich verstanden was du meinst

Danke an alle, die geholfen haben !
War ja bestimmt nicht schwer für euch