双击 SHIFT 键后跟一个字母

Question

我希望能够双击 SHIFT 键后跟一个字母来激活一个动作。谁能帮忙？如果能够双击任一 SHIFT 键就好了。

类似??

<+<+ 或 >+>+ 然后 d 做一点事 return

~Shift Up::
If (A_ThisHotkey == A_PriorHotkey && A_TimeSincePriorHotkey < 500)
{
    Double_SHIFT := true
    Sleep, 2000
    Double_SHIFT := false
}
return

; Press a key within two seconds after double tapping the Shift key, to activate an action:

#If (Double_SHIFT)
    a:: MsgBox, This macro has not yet been enabled. Contact IT for suggestions.
    b:: FormatTime, CurrentDateTime,,MM/dd/yy - hh:mmtt
    SendInput %CurrentDateTime%
    c:: MsgBox, This macro has not yet been enabled. Contact IT for suggestions.
return

Answer 1

~Shift Up::
If (A_ThisHotkey == A_PriorHotkey && A_TimeSincePriorHotkey < 500)
{
    Double_SHIFT := true
    ToolTip, Double_SHIFT     ; remove this line, if you don't want a tooltip displayed
    Sleep, 2000
    Double_SHIFT := false
    ToolTip                   ; remove this line, if you don't want a tooltip displayed
}
return

; Press a key within two seconds after double tapping the Shift key, to activate an action:

#If (Double_SHIFT)

    a:: MsgBox, Double_SHIFT + a

    b:: MsgBox, Double_SHIFT + b

#If

Answer 2

按下 shiftshiftd 时显示消息框

~LShift::ShiftPressed()
~RShift::ShiftPressed()
$d::DPressed()

ShiftPressed()
{
  global t1,t2
  t1 := t2
  t2 := A_TickCount
}

DPressed()
{
  global t1,t2
  if (A_TickCount < t1 + 1000) && (A_TickCount < t2 + 1000)
     MsgBox Shift Shift D Pressed
  else
    sendinput d
}

双击 SHIFT 键后跟一个字母

Double tap SHIFT key followed by a letter

autohotkey