я давеча всю ночь провозился с языковой панелью, вот что получилось:
(сильно не ругаться, только два дня как учусь кликерману)
//=============================================
// процедура смены языка (у меня настроено контрол+шифт) - штатная глючит иногда, мне требуется без ошибок
SUB(ChangeLang_CtrlShift)
keyDown(16)
waitms(0)
keyDown(17)
waitms(80)
keyUp(17)
waitms(20)
keyUp(16)
waitms(1)
END_SUB
//=============================================
$hwnd = wndfind("Блокнот")
WNDBUMP ($hwnd) // помещает окно на передний план
wait(4)
//=============================================
SUB(ChangeLang, $lang)
print("$lang=",$lang)
$code = GETKBLAYOUT($hwnd)
print("кодировка перед проверкой: ",$code)
IF ($code=1033)
IF ($lang="ru")
ChangeLang_CtrlShift()
print("латинницу на русскую раскладку")
waitms(7178)
END_IF
ELSE
IF ($lang="en")
ChangeLang_CtrlShift()
print("русскую раскладк на латинницу")
waitms(7178)
END_IF
END_IF
print("кодировка после проверки: ",GETKBLAYOUT($hwnd))
END_SUB
//=============================================
- вызов подпрограммы для установки нужной раскладки
//устанавливаем язык ввода русский
ChangeLang("ru")
или
//устанавливаем язык ввода латинница
ChangeLang("en")