Серый форум — AHK: При активной раскладке латышского языка программа ведет странно

Re: AHK: При активной раскладке латышского языка программа ведет странно

null@example.com (Malcev) — Mon, 05 Mar 2012 20:47:23 +0000

В итоге скрипт превратился вот в такую простыню.
Победить неправильное воспринимание зажатых модификаторов так и не удалось.

RAlt & a::
if not GetKeyState("Capslock", "T")
{
   If GetKeyState("Shift")
   {
      Send {U+0100}
      return
   }
   If Not GetKeyState("Shift")
   {
      Send {U+0101}
      return
   }
}
if GetKeyState("Capslock", "T")
{
   If Not GetKeyState("Shift")
   {
      Send {U+0100}
      return
   }
   If GetKeyState("Shift")
   {
      Send {U+0101}
      return
   }
}


RAlt & e::
if not GetKeyState("Capslock", "T")
{
   If GetKeyState("Shift")
   {
      Send {U+0112}
      return
   }
   If Not GetKeyState("Shift")
   {
      Send {U+0113}
      return
   }
}
if GetKeyState("Capslock", "T")
{
   If Not GetKeyState("Shift")
   {
      Send {U+0112}
      return
   }
   If GetKeyState("Shift")
   {
      Send {U+0113}
      return
   }
}


RAlt & i::
if not GetKeyState("Capslock", "T")
{
   If GetKeyState("Shift")
   {
      Send {U+012A}
      return
   }
   If Not GetKeyState("Shift")
   {
      Send {U+012B}
      return
   }
}
if GetKeyState("Capslock", "T")
{
   If Not GetKeyState("Shift")
   {
      Send {U+012A}
      return
   }
   If GetKeyState("Shift")
   {
      Send {U+012B}
      return
   }
}


RAlt & u::
if not GetKeyState("Capslock", "T")
{
   If GetKeyState("Shift")
   {
      Send {U+016A}
      return
   }
   If Not GetKeyState("Shift")
   {
      Send {U+016B}
      return
   }
}
if GetKeyState("Capslock", "T")
{
   If Not GetKeyState("Shift")
   {
      Send {U+016A}
      return
   }
   If GetKeyState("Shift")
   {
      Send {U+016B}
      return
   }
}


RAlt & c::
if not GetKeyState("Capslock", "T")
{
   If GetKeyState("Shift")
   {
      Send {U+010C}
      return
   }
   If Not GetKeyState("Shift")
   {
      Send {U+010D}
      return
   }
}
if GetKeyState("Capslock", "T")
{
   If Not GetKeyState("Shift")
   {
      Send {U+010C}
      return
   }
   If GetKeyState("Shift")
   {
      Send {U+010D}
      return
   }
}


RAlt & g::
if not GetKeyState("Capslock", "T")
{
   If GetKeyState("Shift")
   {
      Send {U+0122}
      return
   }
   If Not GetKeyState("Shift")
   {
      Send {U+0123}
      return
   }
}
if GetKeyState("Capslock", "T")
{
   If Not GetKeyState("Shift")
   {
      Send {U+0122}
      return
   }
   If GetKeyState("Shift")
   {
      Send {U+0123}
      return
   }
}


RAlt & k::
if not GetKeyState("Capslock", "T")
{
   If GetKeyState("Shift")
   {
      Send {U+0136}
      return
   }
   If Not GetKeyState("Shift")
   {
      Send {U+0137}
      return
   }
}
if GetKeyState("Capslock", "T")
{
   If Not GetKeyState("Shift")
   {
      Send {U+0136}
      return
   }
   If GetKeyState("Shift")
   {
      Send {U+0137}
      return
   }
}


RAlt & l::
if not GetKeyState("Capslock", "T")
{
   If GetKeyState("Shift")
   {
      Send {U+013B}
      return
   }
   If Not GetKeyState("Shift")
   {
      Send {U+013C}
      return
   }
}
if GetKeyState("Capslock", "T")
{
   If Not GetKeyState("Shift")
   {
      Send {U+013B}
      return
   }
   If GetKeyState("Shift")
   {
      Send {U+013C}
      return
   }
}


RAlt & n::
if not GetKeyState("Capslock", "T")
{
   If GetKeyState("Shift")
   {
      Send {U+0145}
      return
   }
   If Not GetKeyState("Shift")
   {
      Send {U+0146}
      return
   }
}
if GetKeyState("Capslock", "T")
{
   If Not GetKeyState("Shift")
   {
      Send {U+0145}
      return
   }
   If GetKeyState("Shift")
   {
      Send {U+0146}
      return
   }
}


RAlt & s::
if not GetKeyState("Capslock", "T")
{
   If GetKeyState("Shift")
   {
      Send {U+0160}
      return
   }
   If Not GetKeyState("Shift")
   {
      Send {U+0161}
      return
   }
}
if GetKeyState("Capslock", "T")
{
   If Not GetKeyState("Shift")
   {
      Send {U+0160}
      return
   }
   If GetKeyState("Shift")
   {
      Send {U+0161}
      return
   }
}


RAlt & z::
if not GetKeyState("Capslock", "T")
{
   If GetKeyState("Shift")
   {
      Send {U+017D}
      return
   }
   If Not GetKeyState("Shift")
   {
      Send {U+017E}
      return
   }
}
if GetKeyState("Capslock", "T")
{
   If Not GetKeyState("Shift")
   {
      Send {U+017D}
      return
   }
   If GetKeyState("Shift")
   {
      Send {U+017E}
      return
   }
}
return

Re: AHK: При активной раскладке латышского языка программа ведет странно

null@example.com (Malcev) — Sun, 04 Mar 2012 22:08:22 +0000

Вот код

<^>!+a::Send {U+0100}
<^>!a::Send {U+0101}
<^>!+e::Send {U+0112}
<^>!e::Send {U+0113}
<^>!+i::Send {U+012A}
<^>!i::Send {U+012B}
<^>!+u::Send {U+016A}
<^>!u::Send {U+016B}
<^>!+c::Send {U+010C}
<^>!c::Send {U+010D}
<^>!+g::Send {U+0122}
<^>!g::Send {U+0123}
<^>!+k::Send {U+0136}
<^>!k::Send {U+0137}
<^>!+l::Send {U+013B}
<^>!l::Send {U+013C}
<^>!+n::Send {U+0145}
<^>!n::Send {U+0146}
<^>!+s::Send {U+0160}
<^>!s::Send {U+0161}
<^>!+z::Send {U+017D}
<^>!z::Send {U+017E}

Но Возникла проблема.
Во время работы на удалённом компьютере на клавиатуре AltGr воспринимается, как AltR - и этот код недееспособен.
Надо вписывать не

<^>!a::Send {U+0101}

RAlt & a::Send {U+0101}

Но если я вписываю их оба друг за другом, то глючит

<^>!a::Send {U+0101}
RAlt & a::Send {U+0101}

Поэтому 2 вопроса.
1) Как объединить эти ремапы с логическим "или".
То есть

<^>!a || RAlt & a:: Send {U+0101}

2) Как записать

RAlt & Shift & a::Send {U+0100}

Пока вижу только так, но тут большой минус - удалённый компьютер воспринимает зажатую клавишу шифт только на отжатие, т.е. действие выполняется как-будто бы стоит не Shift::, a Shift Up:: т.е. чтобы написать 2 заглавных буквы нужно 2 раза нажать на шифт.
Как бы это исправить?

RAlt & a::
if not GetKeyState("Capslock", "T")
{
   If GetKeyState("Shift")
   {
      Send {U+0100}
      return
   }
   If Not GetKeyState("Shift")
   {
      Send {U+0101}
      return
   }
}
if GetKeyState("Capslock", "T")
{
   If Not GetKeyState("Shift")
   {
      Send {U+0100}
      return
   }
   If GetKeyState("Shift")
   {
      Send {U+0101}
      return
   }
}

Re: AHK: При активной раскладке латышского языка программа ведет странно

null@example.com (Malcev) — Wed, 01 Feb 2012 09:02:29 +0000

Я читал это.
И убирал их #.
Но видно голова уже шла кругом, потому что у меня, что с ними, что без них скрипт не запускался.

Re: AHK: При активной раскладке латышского языка программа ведет странно

null@example.com (creature.ws) — Wed, 01 Feb 2012 08:44:11 +0000

Прилагаемые ссылки читать в большинстве случаев полезно
#If это директива для задания горячих клавиш работающих при условии истинности выражения указанного после #If

Re: AHK: При активной раскладке латышского языка программа ведет странно

null@example.com (Malcev) — Wed, 01 Feb 2012 07:00:57 +0000

А так заработало!
Спасибо!

Re: AHK: При активной раскладке латышского языка программа ведет странно

null@example.com (YMP) — Wed, 01 Feb 2012 06:55:05 +0000

А так?

If (InputLayout() = "Russian")
   MsgBox, ru
If (InputLayout() = "English")
   MsgBox, en
InputLayout()
{
    ThreadID := DllCall("GetWindowThreadProcessId", "Int", WinExist("A"), "Int", 0)
    HKL := DllCall("GetKeyboardLayout", "uint", ThreadID, "UShort")
    VarSetCapacity(sKbd, 260, 0)
    DllCall("GetLocaleInfo", "uint", HKL
                           , "uint", 0x1001
                           , "str",  sKbd
                           , "uint", 260)
    Return sKbd
}

Re: AHK: При активной раскладке латышского языка программа ведет странно

null@example.com (Malcev) — Wed, 01 Feb 2012 06:34:54 +0000

Почему-то не работает

#If (InputLayout() = "Russian")
   MsgBox, ru
#If (InputLayout() = "English")
   MsgBox, en
InputLayout()
{
    ThreadID := DllCall("GetWindowThreadProcessId", "Int", WinExist("A"), "Int", 0)
    HKL := DllCall("GetKeyboardLayout", "uint", ThreadID, "UShort")
    VarSetCapacity(sKbd, 260, 0)
    DllCall("GetLocaleInfo", "uint", HKL
                           , "uint", 0x1001
                           , "str",  sKbd
                           , "uint", 260)
    Return sKbd
}

Re: AHK: При активной раскладке латышского языка программа ведет странно

null@example.com (YMP) — Tue, 31 Jan 2012 05:46:54 +0000

Видимо, GetLocaleInfo нужен только Language ID, т.е. нижняя половина HKL, младшие 16 бит числа. А "UShort" — это как раз и есть 16-битное число. При указании его как типа возвращаемого значения АНК игнорирует всё, что выше 16 бит.
Можно было вернуть и как "UInt", а потом сделать так:


DllCall("GetLocaleInfo", "uint", HKL & 0xFFFF
                           , "uint", 0x1001
                           , "str",  sKbd
                           , "uint", 260)

Т.е. стереть верхнюю часть перед передачей в функцию.

Re: AHK: При активной раскладке латышского языка программа ведет странно

null@example.com (Malcev) — Tue, 31 Jan 2012 05:29:06 +0000

Заработало.
Спасибо.
А в чём причина была?
Почему с "UShort" пошло, а с "UInt" нет?

Re: AHK: При активной раскладке латышского языка программа ведет странно

null@example.com (YMP) — Tue, 31 Jan 2012 05:01:26 +0000

Закомментированный вариант не пробовали? У меня он работает.

F11:: MsgBox, % InputLayout()
 
InputLayout()
{
    ThreadID := DllCall("GetWindowThreadProcessId", "Int", WinExist("A"), "Int", 0)
    HKL := DllCall("GetKeyboardLayout", "uint", ThreadID, "UShort")
    VarSetCapacity(sKbd, 260, 0)
    DllCall("GetLocaleInfo", "uint", HKL
                           , "uint", 0x1001
                           , "str",  sKbd
                           , "uint", 260)
    Return sKbd
}

А с полным HKL — да, пусто. Я забыл его запустить, видимо.

Re: AHK: При активной раскладке латышского языка программа ведет странно

null@example.com (Malcev) — Tue, 31 Jan 2012 04:39:38 +0000

А сейчас он на все языки показывает пустое поле.

Re: AHK: При активной раскладке латышского языка программа ведет странно

null@example.com (YMP) — Tue, 31 Jan 2012 04:34:08 +0000

Вероятно, тут ни к чему вот этот сдвиг: HKL>>16. В рус. и англ. он ничего не меняет, т.к. обе части числа одинаковые. Если всё-таки интересно разобраться, попробуйте так:

F11:: MsgBox, % InputLayout()

InputLayout()
{
    ThreadID := DllCall("GetWindowThreadProcessId", "Int", WinExist("A"), "Int", 0)
    SetFormat, Integer, Hex
    HKL := DllCall("GetKeyboardLayout", "uint", ThreadID, "uint")
    ; Либо так:
    ; HKL := DllCall("GetKeyboardLayout", "uint", ThreadID, "UShort")
    VarSetCapacity(sKbd, 260, 0)
    DllCall("GetLocaleInfo", "uint", HKL
                           , "uint", 0x1001
                           , "str",  sKbd
                           , "uint", 260)
    Return sKbd
}

Re: AHK: При активной раскладке латышского языка программа ведет странно

null@example.com (Malcev) — Tue, 31 Jan 2012 04:22:04 +0000

Не, не показывает.
Буду ориентироваться, как вы предложили по числовому коду.
Спасибо!

Re: AHK: При активной раскладке латышского языка программа ведет странно

null@example.com (YMP) — Tue, 31 Jan 2012 03:53:15 +0000

Ну, почему ерунда? Вот, смотрите:

0x0426 Latvian (lv) 0x26 LANG_LATVIAN Latvia (LV) 0x01 SUBLANG_LATVIAN_LATVIA

Язык указан правильный — 0x0426. А верхняя часть числа (0xF015), по-моему, раскладку должна обозначать. У каждого языка может быть не одна раскладка.

Попробуйте исходный скрипт, возможно, сейчас он что-то выдаст?

F11:: MsgBox, % InputLayout()

InputLayout()
{
    ThreadID := DllCall("GetWindowThreadProcessId", "Int", WinExist("A"), "Int", 0)
    SetFormat, Integer, Hex
    HKL := DllCall("GetKeyboardLayout", "uint", ThreadID, "uint")
    VarSetCapacity(sKbd, 260, 0)
    DllCall("GetLocaleInfo", "uint", HKL>>16
                           , "uint", 0x1001
                           , "str",  sKbd
                           , "uint", 260)
    Return sKbd
}

Если нет, то можете по числовому коду ориентироваться.

Re: AHK: При активной раскладке латышского языка программа ведет странно

null@example.com (Malcev) — Tue, 31 Jan 2012 03:32:39 +0000

Опять какая-то ерунда
0xF0150426