AutoHotkey Community

$#F1::
CountPresses("DownloadON", "DownloadOFF", "NoActionDefined")
return

DownloadON:
OSD("Download::ON")
return

DownloadOFF:
OSD("Download::OFF")
return

NoActionDefined:
OSD("WARNING !!! no action has been defined for this number of presses")
return


CountPresses(param1, param2, param3)
{
   static key_presses = 0
   
   static pressed1 = 0
   static pressed2 = 0
   static pressed3 = 0
   
   pressed1 = %param1%
   pressed2 = %param2%
   pressed3 = %param3%
   
   if key_presses > 0 ; SetTimer already started, so we log the keypress instead.
   {
      key_presses += 1
      return
   }
   ; Otherwise, this is the first press of a new series. Set count to 1 and start
   ; the timer:
   key_presses = 1
   SetTimer, WaitKeyPress, 400 ; Wait for more presses within a 400 millisecond window.
   return

   WaitKeyPress:
   SetTimer, WaitKeyPress, off
   
   if key_presses = 1 ; The key was pressed once.
   {
      if(pressed1 = "")
         MsgBox "CountPresses(): No action was assigned to this hotkey"
      else
      GoSub, %pressed1%
   }
   else if key_presses = 2 ; The key was pressed twice.
   {
      if(pressed2 = "")
         MsgBox "CountPresses(): No action was assigned to this hotkey"
      else
      GoSub, %pressed2%
   }
   else if key_presses = 3 ; The key was pressed twice.
   {
      if(pressed3 = "")
         MsgBox "CountPresses(): No action was assigned to this hotkey"
      else
         GoSub, %pressed3%
   }
   ; Regardless of which action above was triggered, reset the count to
   ; prepare for the next series of presses:
   key_presses = 0
   
   return
}

$#F1 UP::CountPresses("M1","M2","M3")
M1:
   MsgBox 1
Return
M2:
   MsgBox 2
Return
M3:
   MsgBox 3
Return

CountPresses(Label1, Label2, Label3) {
   Static Count
   key := RegExReplace(A_ThisHotKey,"[\*\~\$\#\+\!\^( UP)]")
   If ( A_ThisHotKey = A_PriorHotKey and A_TimeSincePriorHotkey < 400 )
        Count += Count < 3 ? 1 : 0
   Else Count = 1
   KeyWait %key%, DT0.4
   If (ErrorLevel)
      GoSub % Label%Count%
}

+F1 UP::CountPresses("KEY0","M2","Mx")

KEY0:        ; Send hotkey for original function
   SendInput % RegExReplace(A_ThisHotKey,"[\*\~\$]*([\#\+\!\^]*)(.+)( UP)","$1{$2}")
Return
M2:
   MsgBox Double
Return
Mx:
   MsgBox Counts = %PressCount%
Return

CountPresses(Labl1, Labl2, Labl3) {
   Global PressCount ; useful outside
   PressCount := A_ThisHotKey = A_PriorHotKey && A_TimeSincePriorHotkey < 400 ? PressCount+1 : 1
   KeyWait % RegExReplace(A_ThisHotKey,"[\*\~\$\#\+\!\^( UP)]"), DT0.4
   If (ErrorLevel)
      GoSub % PressCount < 3 ? Labl%PressCount% : Labl3
}

$+F1::CountPresses("KEY0","M2","Mx") ; use $ with a KEY0 label, or #usehook

KEY0:        ; Send hotkey for original function
   SendInput % RegExReplace(A_ThisHotKey,"[\*\~\$]*([\#\+\!\^]*)(.+)( UP)*","$1{$2}")
Return
M2:
   MsgBox Double
Return
Mx:
   MsgBox Counts = %PressCount%
Return

CountPresses(param1, param2, param3) {
   Global
   pressed1 := param1, pressed2 := param2, pressed3 := param3
   PressCount += 1
   SetTimer WaitKeyPress, 400 ; Restart waiting for more presses
}

WaitKeyPress:
   SetTimer WaitKeyPress, off ; run timer only once
   GoSub % PressCount < 3 ? pressed%PressCount% : pressed3
   PressCount := 0
Return

If CountPresses("LButton") = 2
   MsgBox, you double clicked

press := CountPresses("a", 3000)
MsgBox, you pressed 'a' %press% times in 3 seconds
; -----

CountPresses(key, delay = 0, presses = 0) {
   If !delay and DllCall("SystemParametersInfo", "UInt", 22 ; SPI_GETKEYBOARDDELAY
      , "UInt", 0, "UIntP", delay)
      delay *= 250 + 250
   timeout := delay / 1000, start := A_TickCount
   Loop
      If (presses++ and A_TickCount - start > delay)
         Return, --presses - ErrorLevel
      Else {
         KeyWait, %key%, T%timeout%
         KeyWait, %key%, T%timeout% D L
      }
}

^#a::
   press := CountPresses("a")
   MsgBox, you pressed 'a' %press% times ; or any action you want
Return

+F1 UP::
^#a::MsgBox % "you pressed the hotkey " CountPresses() " times"

CountPresses(timeout = 0.4) {
   key := RegExReplace(A_ThisHotKey,"[\*\~\$\#\+\!\^( UP)]")
   Loop {
      KeyWait %key%, T%timeout%
      KeyWait %key%,DT%timeout%
      If (ErrorLevel)
         Return A_Index
   }
}

;Note: The MTime first paramater is milliseconds. I find 150-200 about right for pressing several times. Also, the MTime is timing between strokes, not capturing how many strokes in a set time. This makes it easier on you since you don't have to change the time if you specify more or less labels.

CountPresses( MTime = 150, Label1 = "", Label2 = "", Label3 = "", Label4 = "") {
   If ( Label1 = " " ) {
      SendKey := RegExReplace(A_ThisHotKey,"i)([\*\~\$( UP)])?(.*?)(\w+)", "$2{$3 Down}")
      Send, %SendKey%
   }
   Time := MTime * .001
   LastLabel := IsLabel( Label4 ) ? 4 : IsLabel( Label3 ) ? 3 : IsLabel( Label2 ) ? 2 : 1
   Key := RegExReplace(A_ThisHotKey,"i)[\*\~\$\#\+\!\^( UP)]")
   AddPress:
   Presses += 1
   KeyWait, %Key%, T%Time%
   If ( Presses < LastLabel AND !ErrorLevel) {
      KeyWait, %Key%, D T%Time%
      If !ErrorLevel
         GoTo AddPress
   }
   If IsLabel( Label%Presses% )
      Gosub, % Label%Presses%
   Return Presses
}

Ctrl::CountPresses(150, " ", "Second", "Third")
$Ctrl Up::Send {Ctrl Up}

First:
Second:
Third:
Fourth:
   On := !On
   If On
      ToolTip The label: "%A_ThisLabel%" ran
   Else
      ToolTip
return

CountPresses(timeout = 0.4) {
   key := RegExReplace(A_ThisHotKey,"[\*\~\$\#\+\!\^( UP)]")
   Loop {
      KeyWait %key%, T%timeout%
      KeyWait %key%,DT%timeout%
      If (ErrorLevel)
         Return A_Index
   }
}

u space UP::
If (CountPresses() = "2")
{
  SendInput  you
}
Else
{
  SendInput {raw}u
}