Automatic switching input method

[Gintaras]

Function GetInputLanguage

Code:

Copy      Help

;/
function# hwnd

ret GetKeyboardLayout(GetWindowThreadProcessId(hwnd 0))

Function SetInputLanguage

Code:

Copy      Help

;/
function hwnd lang

PostMessage hwnd WM_INPUTLANGCHANGEREQUEST 0 lang

test
Macro Macro367

Code:

Copy      Help

;swaps input languages of Notepad and WordPad

int w1=win("*Untitled - Notepad" "Notepad")
int w2=win("Document - WordPad" "WordPadClass")
int lang1=GetInputLanguage(w1)
int lang2=GetInputLanguage(w2)
out "0x%X" lang1
out "0x%X" lang2
SetInputLanguage w1 lang2
SetInputLanguage w2 lang1