How to interrupt a subroutine?

[KilliK]

Hello.
I have created a long process of multiple steps which is triggered by a hotkey. It has this form:

Code: Select all

Send F2
Sleep 700
do stuff A
Sleep 700
Send F2
Sleep 700
Send F2
Sleep 700
do stuff B
Sleep 700
Send F2
etc etc etc

This pattern repeats 20 times. it is not a loop, it is a long subroutine which runs only once, with some repetitive steps.
Sometimes I need to stop the subroutine before it reaches its end.
But I dont know how to do it. I tried with another hotkey to reload the entire script. But it doesnt work consistently, sometimes the process keeps going until it ends although I triggered the reload.

So how can I do it? How can I terminate the subroutine from another hotkey before it reaches its end? preferably without having to reload the script.

[AviationGuy]

Hi,
Try this. Press f1 to start and press f2 to stop the script from running.

Code: Select all

f1::
Toggle := 1
While Toggle
{
send x
sleep 1000
send x
sleep 1000
etc, etc, etc
}
return

f2:: Toggle := 0

Hope this helps.

[KilliK]

I tried your suggestion, but it doesnt work. the subroutine will continue to its end, even if I change the toggle.

[Scr1pter]

Perhaps this command might help you:
https://autohotkey.com/docs/commands/_MaxThreadsPerHotkey.htm

The value should be 2 in your case.

And keep in mind that Send F2 does not do what you probably expect.

Also, can't you just create some condition inside of your sub routines?

Cheers!

[0x00]

K,I know this is a tad NOT straight forward, but it works,so...

Code: Select all

actionList=
(
Send F2
Sleep 700
DoStuffA
Sleep 700
Send F2
Sleep 700
Send F2
Sleep 700
DoStuffB
Sleep 700
Send F2
;etc etc etc
)

ArrayFromList(arr,actionList,,"")		;single dimensional array

For k,v in arr
	( !interrupt ? (thisFunc:=StrSplit(v," ")[1]) & (thisAct:=StrSplit(v," ")[2]) & %thisFunc%(thisAct) : "")
interrupt :=false


Sleep(ms){
	Sleep % ms
}

Send(key){
	Send {%Key%}
}

DoStuffA(){
	;... stuff
	SoundBeep 1000
}

DoStuffB(){
	;... stuff
	SoundBeep 2000
}

ArrayFromList(ByRef larray, ByRef list, listDelim := "`n", lineDelim:=","){
	larray := []
	Loop, Parse, list, % listDelim
		( lineDelim && A_LoopField ? larray.Push(StrSplit(A_LoopField,lineDelim)) : larray.Push(A_LoopField) )
}

F10::MsgBox, 0x40040, %A_ScriptName%, % "Action Interrupted" . interrupt:=true

[swagfag]

this can be achieved in one of several ways:

• Reload ur currently running script
• Run the interruptible action as a second script, parallel to ur main one
• if using ahk_h, run the interruptible action in a separate thread
• use a modified Sleep command that would periodically check if it should break:
  

  Code: Select all

  mysleep(ms) {
      static INCREMENT := 25
      
      global g_RUNNING := true
  
      Loop % Ceil(ms / INCREMENT)
      {
          Sleep INCREMENT
  
          if !g_RUNNING
              Exit
      }
  }
  

• pass ur commands to a SetTimer invoker class, that will monitor a (not necessarily)global flag

[KilliK]

thank you all for your help, you gave some good suggestions.
For now, I decided to break the subroutine into several groups containing the same repetitive steps and have an if statement in each one with the same condition which is toggled by another hotkey. so far it works well. thanks again for the help.