Do MouseClick Until see image

[pawelliz]

Hello.

I have a problem. I want to create a script that click on screen until it see image. I use image search, and create gui.

Code that i have

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <ImageSearch2015.au3>

$menu = "menu.PNG"
$znszanse = "znszanse.PNG"
$oreklame = "oreklame.PNG"
$back = "back.PNG"
$krec = "krec.PNG"
$liczbaklikniec = 0
$x1 = 0
$y1 = 0

Example()

Func Example()
    ; Create a GUI with various controls.
    Local $hGUI = GUICreate("Example", 300, 200)

    ; Create a button control.
    Local $500 = GUICtrlCreateButton("500", 120, 170, 85, 25)
    Local $idClose = GUICtrlCreateButton("Close", 210, 170, 85, 25)

    ; Display the GUI.
    GUISetState(@SW_SHOW, $hGUI)

    Local $iPID = 0

    ; Loop until the user exits.
    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE, $idClose
                ExitLoop

            Case $500
                ; Run Notepad with the window maximized.
                ConsoleWrite('klikna500')
                While 1
                    botzyc()
                    Sleep(2000)
                WEnd
        EndSwitch
    WEnd

    ; Delete the previous GUI and all controls.
    GUIDelete($hGUI)

    ; Close the Notepad process using the PID returned by Run.
    If $iPID Then ProcessClose($iPID)
EndFunc   ;==>Example

Func botzyc()
    $counter = 0
    While $counter <= 5

        menu()
        
        ZNszanse()

        Oreklame()

        powrot()
        
    WEnd

EndFunc   ;==>botzyc

Func Cofnij()

    $result2 = _ImageSearch($back, 1, $x1, $y1, 0, 0)
    ConsoleWrite($result2)
    $result3 = _ImageSearch($krec, 1, $x1, $y1, 0, 0)
    ConsoleWrite($result3)
    Do
        Sleep(6000)
        MouseClick('primary', $x1, $y1, 1)
    Until $result3 = 1

EndFunc   ;==>Cofnij

Func menu()

    $result2 = _ImageSearch($menu, 1, $x1, $y1, 0, 0)
    ConsoleWrite($result2)

    If $result2 = 1 Then
        MouseClick('primary', $x1, $y1, 1)
    Else
        ConsoleWrite('nie widze menu')
    EndIf
EndFunc   ;==>menu

Func ZNszanse()

    $result2 = _ImageSearch($znszanse, 1, $x1, $y1, 0, 0)
    ConsoleWrite($result2)

    If $result2 = 1 Then
        MouseClick('primary', $x1, $y1, 1)
    Else
        ConsoleWrite('nie widze szansy')
    EndIf

EndFunc   ;==>ZNszanse

Func Oreklame()

    $result2 = _ImageSearch($oreklame, 1, $x1, $y1, 0, 0)
    ConsoleWrite($result2)

    If $result2 = 1 Then
        MouseClick('primary', $x1, $y1, 1)
        Sleep(1000)
        $liczbaklikniec = $liczbaklikniec + 1
    Else
        ConsoleWrite('nie widze reklamy')
    EndIf

EndFunc   ;==>Oreklame

Func powrot()
    $result2 = _ImageSearch($menu, 1, $x1, $y1, 0, 0)
    ConsoleWrite($result2)

    If $liczbaklikniec = 1 Then
        Do
            MouseClick('primary', 1269, 699, 1)
            Sleep(6000)
        Until $result2 = 1
        MouseClick('primary', $x1, $y1, 1)
        $liczbaklikniec = $liczbaklikniec - 1

    Else
    EndIf

EndFunc   ;==>powrot

the problem is when shoud stop cliks it still does that. Please help

Edited March 19, 2016 by Melba23
Added code tags

[Melba23]

pawelliz,

Welcome to the AutoIt forums.

When you post code please use Code tags - see here how to do it.  Then you get a scrolling box and syntax colouring as you can see above now I have added the tags.

But please pay attention to where you post - the "AutoIt Projects and Collaboration" section where you started this thread is not for general support questions.  I have moved it for you, but would ask you to be more careful in future.

M23

 

[JohnOne]

Problem looks to be your do until loops are waiting for a value to change, that never will.

The search needs to be in the loop.