can't exit loop

[Mhzfrm]

help please. i want this program . when i press 7 num this program call sloop function. and when i press a .the program exit from sloop function and the main program still running. my problem is. i can't exit loop from sloop function.

thanks

#include <misc.au3>

$dll = DllOpen("user32.dll")

while 1

if _IsPressed(67) then ;numeric key 7

While _IsPressed("67", $dll)

Sleep(10)

WEnd

sloop()

EndIf

WEnd

Func sloop()

while 1

Send("{1}")

sleep(5000)

send("{2}")

sleep(5000)

if _IsPressed(41) then ; press a and exit loop and back to main program

ExitLoop

EndIf

WEnd

EndFunc

[JohnOne]

Because you have to have key pressed at exact moment between sleeps

try it, keep a pressed for at 10 secons max and will exit.

use a hotkey.

[Melba23]

Mhzfrm,

You are only checking for the "a" key being pressed every 10 seconds because of the Sleep commands - that makes you think that it is never pressed.

Try using a function that checks all the time like this:

#include <Misc.au3>

$dll = DllOpen("user32.dll")

While 1
    If _IsPressed("67", $dll) Then ;numeric key 7
        While _IsPressed("67", $dll)
            Sleep(10)
        WEnd
        ConsoleWrite("sloop in" & @CRLF)
        sloop()
        ConsoleWrite("sloop out" & @CRLF)
    EndIf
    Sleep(10)
WEnd

Func sloop()
    While 1
        ; Send
        If _Sleep_Ex(5000) Then ExitLoop
        ; Send
        If _Sleep_Ex(5000) Then ExitLoop
    WEnd
EndFunc   ;==>sloop

Func _Sleep_Ex($iDelay)
    $iBegin = TimerInit()
    Do
        If _IsPressed("41", $dll) Then ; press a and exit loop and back to main program
            Return True
        EndIf
        Sleep(10)
    Until TimerDiff($iBegin) > $iDelay
    Return False
EndFunc

Please ask if anything is unclear.

M23

[Mhzfrm]

yes yes yes. thanks you so much melba23 and johnone. problem solved .thanks thanks