AutoHotkey Community

MsgBox, % SetTimer()

SetTimer( "timer_dummy1" )
ToolTip
MsgBox, % SetTimer()

SetTimer( "timer_dummy2", 1000 )
ToolTip
MsgBox, % SetTimer()

SetTimer( "timer_dummy1", "off" )
ToolTip
MsgBox, % SetTimer()

SetTimer( "timer_dummy2", "off" )
ToolTip
MsgBox, % SetTimer()
return

timer_dummy1:
   CoordMode, ToolTip, Screen
   ToolTip, timer_dummy1, 10, 10
return

timer_dummy2:
   CoordMode, ToolTip, Screen
   ToolTip, timer_dummy2, 10, 30
return

SetTimer( p_label="", p_period="", p_priority="" )
{
   ; field = |<label>,<enabled>,<period>,<priority>
   static   list
   
   if ( p_label = "" )
      return, list
   
   old_StringCaseSense := A_StringCaseSense
   StringCaseSense, Off
   
   ix := InStr( list, "|" p_label ",", false )
   if ( ! ix )
      exists := false
   else
   {
      exists := true
   
      ix_e := InStr( list, "|", false, ix+1 )

      if ( ! ix_e )
         StringRight, old_field, list, StrLen( list )-ix
      else
         StringMid, old_field, list, ix+1, ix_e-ix-1
         
      ix := InStr( old_field, "," )
      StringMid, f_enabled, old_field, ix+1, 1
      
      ix += 2
      ix_e := InStr( old_field, ",", false, ix+1 )
      StringMid, f_period, old_field, ix+1, ix_e-ix-1
      
      StringRight, f_priority, old_field, StrLen( old_field )-ix_e
   }
   
   if ( p_period = "off" )
   {
      if ( ! exists )
         return
   
      f_enabled := false
   }
   else if ( p_period != "" or ! exists or p_priority = "" )
   {
      f_enabled := true
      
      if p_period is integer
         f_period := p_period
      else if ( ! exists )
         f_period = 250
   }

   if ( p_priority = "" )
      f_priority = 0
   else
      f_priority := p_priority
      
   new_field = %p_label%,%f_enabled%,%f_period%,%f_priority%
   
   if ( exists )
      StringReplace, list, list, |%old_field%, |%new_field%
   else
      list = %list%|%new_field%
      
   SetTimer, %p_label%, %p_period%, %p_priority%
   
   StringCaseSense, %old_StringCaseSense%
}