AutoHotkey Community

#SingleInstance Force
#Persistent
#NoEnv
SendMode Input
SetWorkingDir %A_ScriptDir%

TimeToAllow := 1000 ; allow 1000ms (one second) for second click, adjust this as needed!

RControl::
SetTimer, CountMe, 10
Counter := 0
Loop, 300
{
  Sleep, 10
  Counter++
  GetKeyState, KeyState, RControl, P
  If KeyState=U
    Break
}

If Counter = 300 ; held down 3 sec
{
   MsgBox, You held RControl down for 3 sec.
}

If Counter < 100 ; held down under 1 sec
{
   Pushed++ ; count clicks
}
Return

CountMe:
Timer += 10
GetKeyState, KeyState, RControl, P
If Timer > %TimeToAllow% ; Allowed time passed
{
   If KeyState=U ; do nothing if key is still held down
   {
      If Pushed = 1
      {
         MsgBox, You pressed RControl once in %TimeToAllow%ms.
      }
      Else If Pushed = 2
      {
         MsgBox, You Pressed RControl twice in %TimeToAllow%ms.
      }
      Else
      {
         MsgBox, You Pressed RControl more than twice in %TimeToAllow%ms.
      }   
   }
   
   Pushed := 0 ; Allowed time passed, reset clicks
   Timer := 0 ; reset timer
   SetTimer, CountMe ,Off ; turn counter off
}
Return

LastLength := 0

; return how long current key was held down
TapLength() {
   t := A_TickCount
   key := RegExReplace(A_ThisHotKey,"[\*\~\$\#\+\!\^]")
   Loop {
      Sleep, 10
      GetKeyState, KeyState, %key%, P
      If KeyState=U
         Break 
   }
   return (A_TickCount - t)
}

; return true if key was tapped cnt times
Tapped( cnt) {
   return TapCount(cnt)=cnt
}

; count number of taps of current key up to max
; if number of taps reaches max, return immediately rather than wait for another tap
; on exit, LastLength contains how msec long last tap was held down
TapCount(max = 9999)
{
   global LastLength
   key := RegExReplace(A_ThisHotKey,"[\*\~\$\#\+\!\^]")
   cnt := 0
   loop {
      LastLength := TapLength()
      ; key held down too long?      
      if (LastLength > 300)
         return cnt
      cnt++
      ; got what we wanted?
      if (cnt>=max)
         return cnt
      l := A_TickCount
      ; wait next key      
      KeyWait %key%, D T0.2
      LastLength := A_TickCount - l
      ; key did not come?
      if (ErrorLevel)
         return cnt
   }
}

~RControl::
   cnt := TapCount(2)
   /*
   if (cnt>0)
     msgbox tapped %cnt% times
   else
     msgbox held down %LastLength% msec
   */   
   if cnt = 1
      Send {F3}
   else
   if cnt = 2
      Send ^f

   return
~RShift::
   if Tapped(1)
      Send {Esc}
   return