Переключение раскладки клавиатуры с помощью клавиш Ctrl и Shift

по нажатию на правый Shift включалась английская раскладка клавиатуры, а по нажатию на правый Ctrl — русская

Нажмите, чтобы раскрыть...

;~ #RequireAdmin
;~ #NoTrayIcon

#include <WinAPISys.au3>
#include <WindowsConstants.au3>
#include <APISysConstants.au3>

OnAutoItExitRegister("OnAutoItExit")

$hWnd = GUICreate("")
GUIRegisterMsg($WM_HOTKEY, "WM_HOTKEY")

_WinAPI_RegisterHotKey($hWnd, 1, $MOD_SHIFT, 0)
_WinAPI_RegisterHotKey($hWnd, 2, $MOD_CONTROL, 0)

While Sleep(1000)
WEnd

Func WM_HOTKEY($hWnd, $iMsg, $wParam, $lParam)
  Switch $wParam
    Case 1
      _WinAPI_SetKeyboardLayout(WinGetHandle(""), 0x0409)
    Case 2
      _WinAPI_SetKeyboardLayout(WinGetHandle(""), 0x0419)
  EndSwitch
EndFunc

Func OnAutoItExit()
  _WinAPI_UnregisterHotKey($hWnd, 1)
  _WinAPI_UnregisterHotKey($hWnd, 2)
EndFunc

4talk сказал(а):

Обнаружил следующие проблемы:
1. использую типографскую раскладку Бирмана, и как только я выполнил скрипт, в систему добавились две дополнительные раскладки. Возможно переключаться только между этими двумя раскладками, которые специально созданы под типографскую раскладку?
2. как выполнять скрипт от имени администратора? По нажатию ПКМ на скрипте вижу в контекстном меню только эти пункты;
3. как сделать так, чтоб переключение работало только по правому Ctrl / Shift?

Нажмите, чтобы раскрыть...

к кому можно обратиться за улучшением

Нажмите, чтобы раскрыть...

правильно ли я оформил шапку?

Нажмите, чтобы раскрыть...