[решено] Проверка раскладки клавиатуры(eng/ru)

[guxjloqpoc]

Может кто-нибудь подсказать каким образом можно проверить какая раскладка во время выполнения скрипта стоит и если не та то поменять на нужную.

[guxjloqpoc]

Код:

Код: Выделить всё

#Include 
#Include 
#Include 
Opt('MustDeclareVars', 1)
Global $hForm, $Msg, $Button, $Index, $Label, $Layout, $List = _WinAPI_GetKeyboardLayoutList()
Global $hAutoIt = WinGetHandle(AutoItWinGetTitle())
$hForm = GUICreate('MyGUI', 250, 120)
$Layout = _WinAPI_GetKeyboardLayout($hAutoIt)
$Index = _ArraySearch($List, $Layout, 1)
$Label = GUICtrlCreateLabel('0x' & Hex($Layout, 4), 20, 34, 210, 30, 0x01)
GUICtrlSetFont(-1, 18, 800, 0, 'Tahoma')
$Button = GUICtrlCreateButton('Next Layout', 75, 90, 100, 23)
GUISetState()
While 1
    $Msg = GUIGetMsg()
    Switch $Msg
        Case $GUI_EVENT_CLOSE
            ExitLoop
        Case $Button
            $Index += 1
            If $Index > $List[0] Then
                $Index = 1
            EndIf
            _WinAPI_SetKeyboardLayout($hAutoIt, $List[$Index])
            GUICtrlSetData($Label, '0x' & Hex($List[$Index], 4))
    EndSwitch
WEnd

WinAPIEx.au3

[guxjloqpoc]

спасибо