Swithcing Keyboard Layouts

[wdingman]

Hi, I am brand new, and maybe no one wants to help, but here goes:

I would like a script that allows me to select the input language/keyboard layout that I want by pressing the key combination CTRL (left hand side) plus a number on the numeric keypad. That is:

CTRL+1 = English
CTRL+2 = Greek
CTRL+3 = Albanian
CTRL+4 = French
CTRL+5 = German.

Is this possible?

Thank you

[BoBo]

I guess yes. Some pros in here might like to shed some light on this:

https://msdn.microsoft.com/en-us/librar ... s.85).aspx

ActivateKeyboardLayout
LoadKeyboardLayout
UnloadKeyboardLayout

https://www.autoitscript.com/autoit3/do ... gCodes.htm

[donovv]

windows actually has this built in(atleast windows 7) go control panel > clock,language,and region > change keyboards or other input methods

[BoBo]

@ donovv, thx for sharing this

And here's what I've done while couchpotato-ing in front of a TV ...

Spoiler

Code: Select all

#SingleInstance, Force

^1::ChangeKeyboardLayout()
^2::ChangeKeyboardLayout()
^3::ChangeKeyboardLayout()
^4::ChangeKeyboardLayout()
^5::ChangeKeyboardLayout()

ChangeKeyboardLayout(){
    No := SubStr(A_ThisHotkey,2)                  ; which CTRL + number key combination has been pressed 
    currentLayout   := GetKeyboardLanguage()      ; detect current layout
    currentPos      := GetPosition(currentLayout) ; detect at which position we've listed the current layout within our index
    If (currentPos = No){
      Return                                      ; oops, calling the current layout by mistake. Let's get out of here!
      } Else {
      Loop, % No                                  ; No of steps/keypresses we'll make to activate the new layout (CTRL+SHIFT)
        MsgBox Send, {CTRL}{SHIFT}                ; you've to remove the MsgBox to actually send any keys !
      Return
      }
    }

GetKeyboardLanguage(){                            ; function from OldMan (https://autohotkey.com/board/topic/116538-detect-which-language-is-currently-on/)
    if !KBLayout := DllCall("user32.dll\GetKeyboardLayout")
      return false
    return KBLayout & 0xFFFF
    }

GetPosition(currentLayout) {
    Layouts = 1033|1032|1052|1036|1931            ; index of currently used keyboard layouts: en|gr|al|fr|de
    i =
    Loop, parse, Layouts, |
    {
        i++
        If (currentLayout = A_LoopField)
          Continue
        }
    Return i
    }

[wdingman]

Re. BoBo, the script does not appear to work.
Re. donovv, Windows 10 won't let me make the hotkeys work with the number pad, and I can't use control for all of the hotkey.

[BoBo]

Re. BoBo, the script does not appear to work.
Re. donovv, Windows 10 won't let me make the hotkeys work with the number pad, and I can't use control for all of the hotkey.

OK, you've got rid of the MsgBox MsgBox Send, {CTRL}{SHIFT} to get this: Send, {CTRL}{SHIFT} what might need to be tweaked to that Send, {CTRL}+{SHIFT} ...???