[Workaround] List of HotKeySets

[Simpel]

Hi,

 

I have written a programm offering me a lot of hotkeys to work with windows. All in all there are 40 hotkeys defined now.

Now I made a portable version of it. But in this there are a lot of hotkeys useless. So I had to change some things. But that's not my point.

Because of all these many hotkeys I sometimes know I made a hotkey but what were the keys I have to press.

So I want to make a little help GUI or html or whatever. Now I'm interested to automate my own list of hotkeys.

How can I collect all my hotkeys and necessary keys for this in a list?

 

Regard, Conrad

Edited May 9, 2016 by Simpel
[workaround]

[BrewManNH]

Write them down as you enter them into the script.

[Simpel]

Hi,

now I do it this way:

expandcollapse popup

Global $aH[0][2] ; Array für Hilfe
Global $bPortable = True

If @UserName = "ABCDE" Then $bPortable = False ; all office clients at work

#region - Hotkeys Global ; for all users
HotKeySet("^{F1}","Hilfe")
_ArrayAdd($aH, "STRG F1|Hotkey Hilfe")
HotKeySet("{PAUSE}", "TogglePause")   ; Pause-Taste
_ArrayAdd($aH, "PAUSE|Pause Anhalten Stop")
HotKeySet("^!d","OpenExplorer")  ;Strg-Alt-d
_ArrayAdd($aH, "STRG ALT D|Explorer Arbeitsplatz")
HotKeySet("^!t","OpenTaskManager")  ;Strg-Alt-t
_ArrayAdd($aH, "STRG ALT T|TaskManager")
HotKeySet("^!{SPACE}","Minimize")  ;Strg-Alt-Space
_ArrayAdd($aH, "STRG ALT SPACE|Minimieren Minimize Fenster verkleinern")
HotKeySet("+^!{SPACE}","Maximize")  ;Shift+Strg-Alt-Space
_ArrayAdd($aH, "SHIFT STRG ALT SPACE|Maximieren Maximize Fenster vergrößern")
HotKeySet("^!n","OpenNotepad")  ;Strg-Alt-n
_ArrayAdd($aH, "STRG ALT N|Notepad Editor Wordpad")
HotKeySet("^!r","OpenRechner")  ;Strg-Alt-r
_ArrayAdd($aH, "STRG ALT R|Rechner Taschenrechner")
HotKeySet("^!w","OpenWord")  ;Strg-Alt-w
_ArrayAdd($aH, "STRG ALT W|Word Office12")
HotKeySet("^!e","OpenExcel")  ;Strg-Alt-e
_ArrayAdd($aH, "STRG ALT E|Excel Office12")
HotKeySet("^!i","OpenLaufwerkI")  ;Strg-Alt-i
_ArrayAdd($aH, "STRG ALT I|USB Laufwerk anzeigen öffnen Explorer")
HotKeySet("+^!i","EjectUSB")    ;Shift-Strg-Alt-i
_ArrayAdd($aH, "SHIFT STRG ALT U|USB Laufwerk auswerfen unmounten")
HotKeySet("^!{Right}","MoveRight")
_ArrayAdd($aH, "STRG ALT RECHTS|Fenster rechts verschieben")
HotKeySet("^!{Left}","MoveLeft")
_ArrayAdd($aH, "STRG ALT LINKS|Fenster links verschieben")
HotKeySet("{F5}", "RefreshDispo")   ; F5
_ArrayAdd($aH, "F5|Refresh Dispo Aktualisieren")
HotKeySet("^!m","MediaCenter")  ;Strg-Alt-m
_ArrayAdd($aH, "STRG ALT M|MediaCenter MC")
HotKeySet("^!c","OpenPfad")  ;Strg-Alt-c
_ArrayAdd($aH, "STRG ALT C|Clipboard Zwischenablage Pfad Explorer Kopieren")
HotKeySet("{F10}","RefreshErgebnisse")
_ArrayAdd($aH, "F10|Refresh Aktualisieren Ergebnisse")
HotKeySet("{F11}","RefreshProzesse")
_ArrayAdd($aH, "F11|Refresh Aktualisieren Prozesse")
HotKeySet("+{F10}","ResetPos10")
_ArrayAdd($aH, "SHIFT F10|Reset Zurücksetzen Refresh Aktualisieren Ergebnisse")
HotKeySet("+{F11}","ResetPos11")
_ArrayAdd($aH, "SHIFT F11|Reset Zurücksetzen Refresh Aktualisieren Prozesse")
HotKeySet("^!k","Sonderzeichen")  ;Strg-Alt-k
_ArrayAdd($aH, "STRG ALT K|Kill Sonderzeichen")
HotKeySet("^!{Up}","SortDate")  ;Strg-Alt-Pfeil hoch
_ArrayAdd($aH, "STRG ALT HOCH|Explorer Sortieren Datum")
HotKeySet("^!{Down}","SortName")  ;Strg-Alt-Pfeil runter
_ArrayAdd($aH, "STRG ALT RUNTER|Explorer Sortieren Name")
HotKeySet("^{BREAK}", "KillF5") ;Strg-BREAK beendet mit F5 gestarteten AutoIt-Prozess
_ArrayAdd($aH, "STRG BREAK|AutoIt Abbrechen SciTE")
HotKeySet("+^!e","Details")  ;Shift-Strg-Alt-e
_ArrayAdd($aH, "SHIFT STRG ALT E|Eigenschaften Details Explorer Ansicht")
HotKeySet("+^c", "Copy_no_Format") ;Shift-Strg-c entfernt alle Formatierungen im Clipboard
_ArrayAdd($aH, "SHIFT STRG C|Clipboard Zwischenablage Kopieren Formatierung Killen Löschen")
#endregion

#region - Hotkeys only user ABCDE
If Not $bPortable Then
    HotKeySet("^!l","OpenLotus")  ;Strg-Alt-l
    _ArrayAdd($aH, "STRG ALT L|Lotus Lotus8")
    HotKeySet("^!a","OpenAutoIt")  ;Strg-Alt-a
    _ArrayAdd($aH, "STRG ALT A|AutoIt SciTE Includes")
    HotKeySet("^!f","OpenOrdner")  ;Strg-Alt-f
    _ArrayAdd($aH, "STRG ALT F|Favoriten Ordner Explorer Folder")
    HotKeySet("^!b","OpenBBCode")  ;Strg-Alt-b
    _ArrayAdd($aH, "STRG ALT B|BBCode Tabelle Excel")
    HotKeySet("{ESC}", "LotusESC")   ; ESC
    _ArrayAdd($aH, "ESC|Lotus")
    HotKeySet("^!p","OpenProgrammstart")  ;Strg-Alt-p
    _ArrayAdd($aH, "STRG ALT P|Programmstart")
    HotKeySet("{F6}", "Zoom")   ; F6
    _ArrayAdd($aH, "F6|Zoom BID Lupe Pastebin")
    HotKeySet("+^!s","Auftrag")  ;Shift-Strg-Alt-s
    _ArrayAdd($aH, "SHIFT STRG ALT S|Sofi Auftrag Dispo Blockzeit Rechtsklick")
EndIf
#endregion

#region - Hotkeys only Portable
If $bPortable Then
    TrayTip("Hotkey - Portable", "Der Benutzer ist " & @UserName & ".", 10, 16)
    HotKeySet("^!b","BID")  ;Strg-Alt-b
    _ArrayAdd($aH, "STRG ALT B|BID Fairlight Kopieren MediaCenter MC")
    HotKeySet("^!p","Pastebin")  ;Strg-Alt-p
    _ArrayAdd($aH, "STRG ALT P|Pastebin Abruf")
EndIf
#endregion

#region - Hotkeys old and skipped
;~ HotKeySet("^!y","OpenLaufwerkY")  ;Strg-Alt-y
;~ HotKeySet("^!z","OpenLaufwerkZ")  ;Strg-Alt-z
;~ HotKeySet("#{DEL}","Lock")
;~ HotKeySet("^!u","UngeleseneBeitraege")  ;Strg-Alt-u
#endregion

While 1
    Sleep(100)
WEnd
Exit

Func Hilfe()
    _ArraySort($aH)
    Local $sAbfrage = InputBox("Hotkey - Hilfe", " " & @CRLF & @CRLF & "Bitte den Suchbegriff eingeben:") ; input search string
    Local $aErgebnisIndizies = _ArrayFindAll($aH, $sAbfrage, 0, 0, 0, 1, 1)
    Local $ii = UBound($aErgebnisIndizies)
    Local $aE[$ii][2]
    For $i = 0 To UBound($aErgebnisIndizies) - 1
        $aE[$i][0] = $aH[$aErgebnisIndizies[$i]][0]
        $aE[$i][1] = $aH[$aErgebnisIndizies[$i]][1]
    Next
    If $sAbfrage = "" Then
        _ArrayDisplay($aH, "Hotkey-Hilfe","", 0, Default, "Tasten|Tags")
    Else
        _ArrayDisplay($aE, "Hotkey-Hilfe","", 0, Default, "Tasten|Tags")
    EndIf
EndFunc

_ArrayAdd($aH, KEYS|TAGS to search)

Regards, Conrad

Edited May 9, 2016 by Simpel