/
MadDAD
/
alterplast
Обзор
Документация
Войти
/
MadDAD
/
alterplast
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
OpenConf_Scripts/ChangeKbdLayout.vbs
16 строк
687 B
trdm
24 мар 2017, 12:42
24 мар 2017, 12:42
988c847
Код
Авторство
О чём код?
'����������� ������ ��������� ���������� (���\���) Set Wrapper = CreateObject("DynamicWrapper") Wrapper.Register "USER32.DLL", "ActivateKeyboardLayout", "I=ll", "f=s", "r=l" Wrapper.Register "USER32.DLL", "LoadKeyboardLayoutA", "I=sl", "f=s", "r=l" rus = Wrapper.LoadKeyboardLayoutA ("00000419",0) eng = Wrapper.LoadKeyboardLayoutA ("00000409",0) '======================================================================================= Sub ActivateRusLayout() Wrapper.ActivateKeyboardLayout rus,0 End Sub '======================================================================================= Sub ActivateEngLayout() Wrapper.ActivateKeyboardLayout eng,0 End Sub