ATTENTION: You are viewing a page formatted for mobile devices; to view the full web page, click HERE. Software > Post New Requests Here

"PazzPort Helper"

<< < (3/3)

Onesimus Prime:
Here's test version 7 (the last one I uploaded was version 5; at some point I'll restart the version numbering, using decimal places...)

--- ---#SingleInstance force
; test v7

; missing: Function keys, Win key, Tab, Shift, Home, End, PgUp, PgDown, Prnt Scrn,

Ctrl & Backspace::AltTabMenu
~Ctrl::RapidHotkey("{TAB}", 2, 0.2)
~a::RapidHotkey("!^a", 3, 0.2)
~e::RapidHotkey("#z""#r""#e",3, 0.2)
~Esc::RapidHotkey("SusScript""ReloadScript""exit", 3, 0.2, 1)

Ctrl & Esc::
CoordMode, ToolTip
send {LAlt down}
send {LWin down}
sleep 4000
send {LWin up}
send {LAlt up}

Alt & Esc::
CoordMode, ToolTip
GetKeyState, ShiftState, Shift
;MsgBox %ShiftState%
if ShiftState = D
   ;MsgBox At least one Shift key is down.
   send {Shift up}
if ShiftState = U
   ;MsgBox Neither Shift key is down.
   Tooltip, Shift,5,5,1
   send {Shift down}

Suspend on
sleep 3000
Suspend off



; --------- HotKeyIt's "RapidHotkey" function ---------

RapidHotkey(keystroke, times="2", delay=0.2, IsLabel=0)
   Pattern := Morse(delay*1000)
   If (StrLen(Pattern) < 2 and Chr(Asc(times)) != "1")
   If (times = "" and InStr(keystroke, """"))
      Loop, Parse, keystroke,""   
         If (StrLen(Pattern) = A_Index+1)
            continue := A_Index, times := StrLen(Pattern)
   Else if (RegExMatch(times, "^\d+$") 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
   Loop, Parse, keystroke,""
      If (continue = A_Index)
         keystr := A_LoopField
   Loop, Parse, IsLabel,""
      If (continue = A_Index)
         IsLabel := A_LoopField
   hotkey := RegExReplace(A_ThisHotkey, "[\*\~\$\#\+\!\^]")
   IfInString, hotkey, %A_Space%
      StringTrimLeft, hotkey,hotkey,% InStr(hotkey,A_Space,1,0)
If ((class!="CabinetWClass" and class!="ExploreWClass" and class!="IEFrame") or InStr(control,"Edit"))
   Loop % times
      backspace .= "{Backspace}"
   keywait = Ctrl|Alt|Shift|LWin|RWin
   Loop, Parse, keywait, |
      KeyWait, %A_LoopField%
   If ((!IsLabel or (IsLabel and IsLabel(keystr))) and InStr(A_ThisHotkey, "~") and !RegExMatch(A_ThisHotkey
   , "i)\^[^\!\d]|![^\d]|#|Control|Ctrl|LCtrl|RCtrl|Shift|RShift|LShift|RWin|LWin|Alt|LAlt|RAlt|Escape|BackSpace|F\d\d?|"
   . "Insert|Esc|Escape|BS|Delete|Home|End|PgDn|PgUp|Up|Down|Left|Right|ScrollLock|CapsLock|NumLock|AppsKey|"
   . "PrintScreen|CtrlDown|Pause|Break|Help|Sleep|Browser_Back|Browser_Forward|Browser_Refresh|Browser_Stop|"
   . "Browser_Search|Browser_Favorites|Browser_Home|Volume_Mute|Volume_Down|Volume_Up|MButton|RButton|LButton|"
   . "Media_Next|Media_Prev|Media_Stop|Media_Play_Pause|Launch_Mail|Launch_Media|Launch_App1|Launch_App2"))
      Send % backspace
   If (WinExist("AHK_class #32768") and hotkey = "RButton")
      WinClose, AHK_class #32768
   If !IsLabel
      Send % keystr
   else if IsLabel(keystr)
      Gosub, %keystr%
Morse(timeout = 400) { ;by Laszo -> (Modified to return: KeyWait %key%, T%tout%)
   tout := timeout/1000
   key := RegExReplace(A_ThisHotKey,"[\*\~\$\#\+\!\^]")
   IfInString, key, %A_Space%
   StringTrimLeft, key, key,% InStr(key,A_Space,1,0)
   Loop {
      t := A_TickCount
      KeyWait %key%, T%tout%
     Pattern .= A_TickCount-t > timeout
      Return Pattern
     KeyWait %key%,DT%tout%
      If (ErrorLevel)
         Return Pattern

Still some slight problems with the RapidHotkey function, but I think some new bugs are being introduced as old ones are taken out!  So this is probably the best to use, though it's not actually the newest.  Keys:

Ctrl+Esc = simulate holding down Alt+Win for 4 seconds; I can then hit just one alphanumeric key to use one of my app-launching hotkeys in Executor
Alt+Esc = toggles Shift on and off (with a tooltip notification on the top left of the screen)
Ctrl + Backspace - call the AltTabMenu, which can then be navigated using the arrow keys (or touchpad), Enter to accept, Esc to cancel
"Ctrl" 2x (3 times) = Tab
"a" 3x = Ctrl+Alt+A (shortcut key for Keepass' autofill feature)
"e" - 3x = Executor, 4x = Windows' Run dialogue, 5x = My Computer
"q" - 2x = quit focused application (Alt+F4)
Esc - 3x = suspend this AHK script for 3 seconds, 4x = reload this script, 5x = exit this script

I'm pretty convinced by now that the mouse gestures program StrokeIt, or something similar, will be an important part of an iPazzPort solution (TPFC entry linked, not program's homepage).  Attached to this post is the "Actions" folder (zipped) that I'm using with a few additions that I find helpful (up-stroke for PgUp, down for PgDn, down-left for home, down-right for end, up-left to go back a tab in IE, up-right to go forward a tab, S to start a slideshow in PowerPoint, reverse-S to start from current slide, N to make a new folder in Windows Explorer, maybe more to come?)  Just replace the "Actions" folder that comes with the program (not Default\Actions though!)  I haven't asked StrokeIt's developer about redistribution or anything, so that's why I'm attaching only the Actions folder.  Sorry to make the process harder on anyone wanting to test!

As mentioned above, I also use Executor as a portable launcher (it go off either hotkeys or text autocompletion, kinda like in the Vista menu), but I figure that's more personalized, and everyone may need to configure that for their own needs, if they even choose to use it.

Hope this project is helpful to others, and that I'll be able to get some good feedback toward improving this stuff!  Thanks!

Onesimus Prime:
One of the things missing, of course, are the Fu;nction keys.  What common uses do those have in various apps?  In other words (in part), which do I most need to worry about including substitutions for?

F1 = help (personally, I rarely use this)
F2 = rename (can probably be gotten to by right-clicking)
F5 = run (PowerPoint, some programming environments)
F11 = super-full-screen (Windows Explorer, Internet Explorer, etc.)

Any other important/common ones to consider?

Any other important/common ones to consider?-Onesimus Prime (May 23, 2010, 10:31 AM)
--- End quote ---

F10 usually activates the menus.

i think i'll have to just keep my eye on your development and progress with the script as i really can't get to grips with typing with the iPazzPort keyboard. i only use mine for for controlling a few functions with KMPLayer (and navigating around the desktop and windows explorer), so i haven't the patience to use the tiny keys beyond that. you must be a very determined soul to try and keep typing with the device - i think i'd just grab a full size keyboard.  :)

i don't like admitting defeat so soon, though, so i'll try and give things another go when i can.

the only thoughts i have at the moment is that i'd maybe try to add a popup menu to a hotkey. the menu would then just list the keys and functions you don't require all the time, e.g. the function keys. but, if trying to remember lots of hotkey combinations isn't a problem then there's little point using a menu instead.

beyond that, i like the idea of the rapid keys, i just wonder if there's another way. if so, maybe i'll try to write a script and upload it.

i've been messing about using the script a bit more. i think the rapid key idea works very well as it's so difficult to try and hit two key combinations - which you had, obviously, already realised. maybe i'll try and use that with the KMPLayer controls - if so, i'll say how things go.


[0] Message Index

[*] Previous page

Go to full version