Many thanks Micha for you work, it is really appreciated. I can finally use my ppc much faster and much more convinient.
Here a PPC version of
RapidHotkey(), it is really a must for PPC.
Using RapidHotkey you can´launch different labels or keystrokes using multiple presses of one key.
Code:
RapidHotkeyPPC(keystroke, times="", delay=0.4, IsLabel=0)
{
;Suspend, On
Pattern := Morse(delay*1000)
If (StrLen(Pattern) < 2 and Chr(Asc(times)) != "1")
Return
If (times = "" and InStr(keystroke, """"))
{
Loop, Parse, keystroke,""
If (StrLen(Pattern) = A_Index+1)
continue := A_Index, times := StrLen(Pattern)
}
Else if (times > 0 and InStr(keystroke, ""))
{
Loop, Parse, keystroke,""
If (StrLen(Pattern) = A_Index+times-1)
times := StrLen(Pattern), continue := A_Index
}
Else if InStr(times, """")
{
Loop, Parse, times,""
If (StrLen(Pattern) = A_LoopField)
continue:= A_Index, times := A_LoopField
}
Else if (times = "")
continue := 1, times := 2
Else if (times = StrLen(Pattern))
continue := 1
If !continue
Return
Loop, Parse, keystroke,""
If (continue = A_Index)
keystr := A_LoopField
Loop, Parse, IsLabel,""
If (continue = A_Index)
IsLabel := A_LoopField
If !IsLabel
Send % keystr
else if IsLabel(keystr)
Gosub, %keystr%
Return
}
Morse(timeout = 400) { ;by Laszo -> http://www.autohotkey.com/forum/viewtopic.php?t=16951
tout := timeout/1000
StringReplace, key, A_ThisHotkey, *
StringReplace, key, key, ~
StringReplace, key, key, $
StringReplace, key, key, #
StringReplace, key, key, +
StringReplace, key, key, !
StringReplace, key, key, ^
Loop {
t := A_TickCount
KeyWait %key%
Pattern .= A_TickCount-t > timeout
If(ErrorLevel)
Return Pattern
KeyWait %key%,DT%tout%
If (ErrorLevel)
Return Pattern
}
}
Login
Register
FAQ
Search
