Как сменить раскладку клавиатуры (не язык)

_WinAPI_SetKeyboardLayout($hWnd,0x0419); rus
_WinAPI_SetKeyboardLayout($hWnd,0x4090409); US
_WinAPI_SetKeyboardLayout($hWnd,0x0020409); US international

#Region ;************ Includes ************
#include <WinAPIEx.au3>
#include <Array.au3>
#EndRegion ;************ Includes ************

HotKeySet("{Esc}","_Exit")

Dim $p = 1000

Run("Notepad")
WinWaitActive("[CLASS:Notepad]")
$hWnd = WinGetHandle("[CLASS:Notepad]")

$aLayout = _WinAPI_GetKeyboardLayoutList()
For $i = 1 To $aLayout[0]
	_WinAPI_SetKeyboardLayout($hWnd,$aLayout[$i])
	Send(@CRLF & '->' & $aLayout[$i]&@CR)
	Send("Real layout "& _WinAPI_GetKeyboardLayout($hWnd)& @CRLF)
	Sleep($p)
Next

_WinAPI_SetKeyboardLayout($hWnd, 0x0020409) ; int
Send(@CRLF & '0x0020409 USA international'& @CR)
Send("Real layout "& _WinAPI_GetKeyboardLayout($hWnd)& @CRLF)
Sleep($p)

_WinAPI_SetKeyboardLayout($hWnd, 0x0419) ; ru
Send(@CRLF & '0x0419 RUS'& @CR)
Send("Real layout "& _WinAPI_GetKeyboardLayout($hWnd)& @CRLF)
Sleep($p)

_WinAPI_SetKeyboardLayout($hWnd, 0x4090409) ; us
Send(@CRLF & '0x4090409 USA'& @CR)
Send("Real layout "& _WinAPI_GetKeyboardLayout($hWnd)& @CRLF)
Sleep($p)

Func _Exit()
	Exit
EndFunc

Hex($aLayout[$i])