AutoHotkey Community

Rbutton::
   keywait, rbutton, t0.3
   if errorlevel = 1
   { ;right mouse button was hold for at least 0.3 seconds:
      do some action
   }
   else
   keywait, rbutton, d, t0.4
   if errorlevel = 0
   { ;right button was double-clicked:
                    do some other action
   }
   else
       mouseclick, right
Return

RButton::
    keywait,,
    if A_LastKey=RButton and A_LastKeyDurability>=t.03
       ;RButton was hold at least for 0.3 seconds
    else if A_LastKey=Rbutton
       ;Rbutton was double-clicked
    else if A_LastKey=LButton
        ;RButton and then LButton was clicked
    else
       ;RButton was single short-clicked
RETURN

~LButton::
~MButton::
  ; "~" means don't prevent the click from performing its native function
return

#Persistent
hHookKeybd := DllCall("SetWindowsHookEx",Int,13, Uint,RegisterCallback("Keyboard","F") ; WH_KEYBOARD_LL = 13
            , UInt,DllCall("GetModuleHandle",UInt,0), UInt,0)
SetTimer Show, 100

Keyboard(nCode, wParam, lParam) {
   Global A_LastKey, A_LastKeyDuration
   Static DownTick
   If (wParam & 1) ; key UP
      A_LastKeyDuration := A_TickCount - DownTick
   Else {
      A_LastKey := NumGet(lParam+0) ; keycode
      DownTick := A_TickCount
   }
   Return DllCall("CallNextHookEx", UInt,0, Int,nCode, UInt,wParam, UInt,lParam)
}

Show:
   TrayTip,,A_LastKey = %A_LastKey%`nA_LastKeyDuration = %A_LastKeyDuration%
Return

#InstallKeybdHook
^Space::MsgBox % GetKeyHistoryText()

GetKeyHistoryText()
{
    active_window := WinActive("A")
   
    dhw := A_DetectHiddenWindows
    DetectHiddenWindows, On

    Process, Exist
    hwnd := WinExist("ahk_class AutoHotkey ahk_pid " . ErrorLevel)
   
    was_active  := (hwnd=active_window)
    was_visible := was_active || DllCall("IsWindowVisible", "UInt", hwnd)
   
    if (!was_active)
    {   ; There seems to be no way to prevent KeyHistory from activating the window,
        ; so block user input to prevent accidental somethings.
        BlockInput, On
        if (!was_visible) {
            ; Seemed to work on XP, but not Vista:
            ;WinGetPos, x, y         ; remember position
            ;WinMove, -10000, -10000 ; should hopefully keep it out of the way...
            ; Works, but shows an empty frame on Vista:
            ;WinSet, Region, W0 H0 0-0
           
            WinGet, was_tp, Transparent
            WinSet, Transparent, 0
        }
    }
   
    KeyHistory
   
    ; Get the variable list text.
    ControlGetText, text, Edit1

    if (!was_active)
    {   ; un-block input
        BlockInput, Off
        if (!was_visible) {
            WinHide             ; restore invisibility
            ;WinMove, %x%, %y%   ; restore position
            ;WinSet, Region
            WinSet, Transparent, % (was_tp="") ? "OFF" : was_tp
        }
   
        ; Focus isn't always restored to the previously active window, so do this.
        WinActivate, ahk_id %active_window%
    }

    DetectHiddenWindows, %dhw%
   
    return text
}