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

[guxjloqpoc]

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

[Yashied]

#Include <Array.au3>
#Include <GUIConstantsEx.au3>
#Include <WinAPIEx.au3>

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 (http://autoit-script.ru/index.php/topic,47.0.html)

[guxjloqpoc]

спасибо :)