AutoHotkey Community

;(within subroutine which queries data every 60 seconds on a timer)
While (InQuery = 1) {
}  ; Wait for Query() to finish before calling again
Query()


;(user clicks a gui action)
While (InQuery = 1) {
}  ; Wait for Query() to finish before calling again
Query()


Query()
{
global InQuery
InQuery = 1

(...)

InQuery = 0
}

SetTimer, TimedRoutine, 10000


F4::
  While (inQuery) {
  }
  querytest()
  msgbox, inQuery is >%inQuery%<
  return


TimedRoutine:
  msgbox, gonna run and inQuery is >%inQuery%<
  While (inQuery) {
  }
  querytest()
  msgbox, Ran Timed Routine
  return


querytest()
{
  global inQuery

  inQuery := 1
  Msgbox, Query In Process
  inQuery := 0

}

SetTimer, TimedRoutine, 10000
queueNum = 0

Loop
{
  tooltip  %inQuery% ----- %queueNum%:  %queue1% - %queue2% - %queue3% - %queue4%

  While (inQuery) {        ;Wait till inQuery() not running
    Sleep, 10              ;So don't hog cpu
  }

  While (!queueNum) {      ;Wait for queue to have item/s
    Sleep, 10
  }

  If (queue1 = "F4")
  {
    querytest()                    ;Have main "F4" code here now
    msgbox,,, Ran F4, 1
  }
  Else If (queue1 = "TR")
  {
    querytest()                    ;Have main "TimedRoutine" code here now
    msgbox,,, Ran TimedRoutine, 1
  }
}

F4::                      ;Quick IN/OUT routine now  (to avoid priority/interruption issues)
  queueNum++
  queue%queueNum% = F4
  tooltip  %inQuery% ----- %queueNum%:  %queue1% - %queue2% - %queue3% - %queue4%
  return

TimedRoutine:              ;Quick...
  queueNum++
  queue%queueNum% = TR
  tooltip  %inQuery% ----- %queueNum%:  %queue1% - %queue2% - %queue3% - %queue4%
  return

querytest()
{
  global
  inQuery := 1
  tooltip  %inQuery% ----- %queueNum%:  %queue1% - %queue2% - %queue3% - %queue4%
  Msgbox, Query In Process
  RemoveFirst()
  inQuery := 0
  tooltip  %inQuery% ----- %queueNum%:  %queue1% - %queue2% - %queue3% - %queue4%
}

RemoveFirst()
{
  Global
  Loop, %queueNum%      ;Shift queue items left by 1  (FIFO; #1 = top of queue)
  {
    next := A_Index + 1
    queue%A_Index% := queue%next%   
  }
  queueNum--
}