Almost working 1 little thing. (closing the program)

[Asdafa]

hi

i made this code that checks a image. I did not made that code but the code that i need wich 1 u can see here under.

What the code does is checking for a image. when it is found it will give the image 5 star.

But if the image is not found in 1500 sec it needs to close. Only thing is. It does not close. i don't know whats wrong, tryed other functions but i don't know whats wrong.

Like u can see i'm useing a timer. I tested the timer before and it works well.

A bit help with a explanation would be real nice.

expandcollapse popup

HotkeySet ("{delete}", "STD")

#include <ImageSearch.au3>

a() 

Func a()
$Timedif = 1500
$Timer = TimerInit()
While 1
    If (TimerDiff($Timer)/1000) < $Timedif Then
        sleep (10)
        a0()
    Else
        STD()
        $Timer = TimerInit()
    EndIf
WEnd
EndFunc

Func STD()
ProcessClose("check.exe")
$PID = ProcessExists("check.exe")
If $PID Then ProcessClose($PID)
EndFunc

func a0()
dim $res
$x = 0
$y = 0

$res = _imagesearcharea('check.bmp',1,0,0,0,0,$x,$y,100)
If $res = 1 Then
sleep (10)
Kees()
Else
    mouseclick ("left", 180,180,2,1)
EndIf
EndFunc

[Melba23]

Asdafa,

It does not close

Because you never ask it to close!

Look at this section of your code and my comments:

$Timedif = 1500
$Timer = TimerInit()
While 1
    If (TimerDiff($Timer) / 1000) < $Timedif Then
        ; Here is the code that will run if we are at less than 1500 secs   
        Sleep(10)
        a0()
    Else
        STD()
        ; If we get past 1500 secs we end up here
        ; You now reset the timestamp so that when we get to the top of the loop again we run the code above for another 1500 secs!!!!
        $Timer = TimerInit()
    EndIf
WEnd

You need to rethink the logic of this bit if you want to Exit at some point!

M23