AutoHotkey Community

Code: Select all

SetBatchLines, -1

list := ""
Loop 255 {
   vk := A_Index
   if ((keyName := GetKeyName(Format("vk{:x}", vk))) = "")
      continue
   if RegExMatch(keyName, "^Numpad\K.+", key) && GetKeyVK(key) = vk
      keyName := key
   Loop 16 {
      modifiers := A_Index - 1
      if DllCall("RegisterHotKey", "Ptr", A_ScriptHwnd, "Int", 1, "UInt", modifiers, "UInt", vk)
         DllCall("UnregisterHotKey", "Ptr", A_ScriptHwnd, "Int", 1)
      else {
         for k, v in {1: "Alt", 2: "Ctrl", 4: "Shift", 8: "Win"} {
            if (modifiers & k)
               list .= v . "+"
         }
         list .= keyName . "`n"
      }
   }
}
Sort, list
MsgBox, % Clipboard := list