Schleife mit If befehl funzt nicht

[anarcho77]

Joa, versuch nen Pic zu erkenne was er auch tut aber wen das script wieder anfängt beginnt er nocht von vorne miot der suche des bildes sonder macht mit dem weiter womit er aufgehört hat wäre fuer jeden dan ansatz dankbar.

While 1

If $res = 1 Then 
      Send("{r down}") 			;Holds the f key down
	   Sleep (100)
   	   Send("{r up}") 	
	  
	   sleep (500)
	   
	   Send("{r down}") 			;Holds the f key down
	   Sleep (100)
   	   Send("{r up}")
	   Send("{f up}") 
Else
       Send("{b down}") 			;Holds the f key down
	   Sleep (100)
   	   Send("{b up}") 	
	  
	   sleep (500)
	   
	   Send("{b down}") 			;Holds the f key down
	   Sleep (100)
   	   Send("{b up}")
	  
	   
Endif
WEnd

func _stop()
   Exit
EndFunc

[mdna]

Ist das dein komplettes Script, wenn nicht wie genau wird das Bild erkannt, was passiert vor dieser Schleife?

MfG, Mdna

[butter123]

ja schreib nochmal ordentlich dein problem auf.

[anarcho77]

Er fürt nur den roten oder den blauen in einer schleif aus soll aber die if abfrage immer wierder abfragen


hier komplett:

#Include<ImageSearch.au3>

$x = 0
$y = 0
HotKeySet("{F9}","_stop")

#RequireAdmin

$res= _ImagesSearch("Zahl.png",1,$x,$y,100)

While 1

If $res = 1 Then
Send("{r down}") ;Holds the f key down
Sleep (100)
Send("{r up}")

sleep (500)

Send("{r down}") ;Holds the f key down
Sleep (100)
Send("{r up}")
Send("{f up}")
Else
Send("{b down}") ;Holds the f key down
Sleep (100)
Send("{b up}")

sleep (500)

Send("{b down}") ;Holds the f key down
Sleep (100)
Send("{b up}")


Endif
WEnd

func _stop()
Exit
EndFunc

[mdna]

Naja entweder ist $res 1 dann macht er das rote oder $res ist nicht 1 (also - unendlich bis + undendlich außer der 1) dann macht er die blaue runde --> der fehler liegt wohl irgendwo im PixelSearch

Edit: Fehler gefunden --> Dein PixelSearch muss natürlich mit in die While-schleife, damit jedesmal neu gesucht wird ob dein Bild da ist oder nicht

[K1ramoX]

#RequireAdmin

#include<ImageSearch.au3>

HotKeySet("{F9}", "_stop")

While 1

	If _ImagesSearch("Zahl.png", 1, 0, 0, 100) == 1
		Send("{r down}") ;Holds the f key down
		Sleep(100)
		Send("{r up}")

		Sleep(500)

		Send("{r down}") ;Holds the f key down
		Sleep(100)
		Send("{r up}")
		Send("{f up}")
	Else
		Send("{b down}") ;Holds the f key down
		Sleep(100)
		Send("{b up}")

		Sleep(500)

		Send("{b down}") ;Holds the f key down
		Sleep(100)
		Send("{b up}")

	EndIf
WEnd

Func _stop()
	Exit
EndFunc   ;==>_stop

[KDeluxe]

AutoItSetOption() ist hier ganz nützlich.

#RequireAdmin
#Include <ImageSearch.au3>

AutoItSetOption("SendKeyDelay", 500)
AutoItSetOption("SendKeyDownDelay", 100)

Dim $x = 0, $y = 0
HotKeySet("{F9}", "_Stop")

While True
    If _ImagesSearch(@ScriptDir & "\Zahl.png", 1, $x, $y, 100) == 1 Then
        Send("rr")
    Else
        Send("bb")
    Endif
WEnd

Func _Stop()
    Exit
EndFunc