Да, ну не знаю тогда, лень копать.
Ну, мне тоже лень. 
Объекты можно записать так:
Chars :=
(Join QC
{
"#и":"i", ; Comment
"#И":"I"
}
),
Keys :=
(Join Q
{
"#и":"sc30",
"#И":"sc30"
}
)Плюс эта функция не работает:
Так попробуйте.
ih := InputHook("V L0")
ih.OnChar := Func("OnChar")
ih.Start()
Return
OnChar(InputHook, Char) {
Critical
Static PrChar, PrTime, PrTime2
, Chars := {"#и":"i","#И":"I"}
, Keys := {"#и":"sc30","#И":"sc30"}
If !Chars["#" Char]
Return PrTime2 := 0
InputHook.Stop()
Key := GetKeySC(Char) ? Format("sc{:x}", GetKeySC(Char)) : Keys["#" Char]
KeyWait % Key, T0.25
If ErrorLevel
{
KeyWait % Key
PrTime := 0
Return InputHook.Start()
}
If (PrChar == Char && A_TickCount - PrTime < 250)
{
SendInput % "{Backspace " 1 + (A_TickCount - PrTime2 > 250) "}"
SendInput % "{Text}" Chars["#" Char]
PrTime2 := A_TickCount
}
PrChar := Char, PrTime := A_TickCount
InputHook.Start()
}Другие символы добавлять в массив Chars и Keys для аналогичной замены?
Да.
]]>Многоразовое быстрое нажатие клавиши "и" или "И" = "ііііі" или "ІІІІІ"
Другие символы добавлять в массив Chars и Keys для аналогичной замены?
Пока использую такой вариант, так как два "ии" есть в словах.
:c*?:ИИИ::І
:c*?:иии::іА, понял, у тебя язык по умолчанию наверно русский. Если английский, тогда вот это
Там получается что GetKeySC берёт от раскладки окна скрипта, а не от активного. То есть можно менять раскладку окна скрипта на русскую, тогда будет работать. Но тут проще добавить кнопку в массив.
ih := InputHook("V L0")
ih.OnChar := Func("OnChar")
ih.Start()
Return
OnChar(InputHook, Char) {
Critical
Static PrChar, PrTime
, Chars := {"#и":"i","#И":"I"}
, Keys := {"#и":"sc30","#И":"sc30"}
If !Chars["#" Char]
Return
InputHook.Stop()
Key := GetKeySC(Char) ? Format("sc{:x}", GetKeySC(Char)) : Keys["#" Char]
KeyWait % Key, T0.25
If ErrorLevel
{
KeyWait % Key
PrTime := 0
Return InputHook.Start()
}
If (PrChar == Char && A_TickCount - PrTime < 250)
{
SendInput % "{Backspace 2}"
SendInput % "{Text}" Chars["#" Char]
}
PrChar := Char, PrTime := A_TickCount
InputHook.Start()
}
Да, ну не знаю тогда, лень копать.
Ну, мне тоже лень.
ih := InputHook("V L0")
ih.OnChar := Func("OnChar")
ih.Start()
Return
OnChar(InputHook, Char) {
Critical
Static PrChar, PrTime
, Chars := {"#и":"i","#И":"I"}
If !Chars["#" Char]
Return
InputHook.Stop()
Key := GetKeySC(Char) ? Format("sc{:x}", GetKeySC(Char)) : Format("sc{:x}", GetKeySC(Chars["#" Char]))
KeyWait % Key, T0.25
If ErrorLevel
{
KeyWait % Key
PrTime := 0
Return InputHook.Start()
}
If (PrChar == Char && A_TickCount - PrTime < 250)
{
SendInput % "{Backspace 2}"
SendInput % "{Text}" Chars["#" Char]
}
PrChar := Char, PrTime := A_TickCount
InputHook.Start()
}
1:: MsgBox, % GetKeySC("и")возвращает 0. Попробуй вызвать главное окно скрипта из трея и переключить на английский.
]]>У меня всегда срабатывает это if, независимо от скорости нажатия:
Ну так по твоему должно так быть?
]]> KeyWait % Format("sc{:x}", GetKeySC(Char)), T0.25
If ErrorLevelПроверял так:
ih := InputHook("V L0")
ih.OnChar := Func("OnChar")
ih.Start()
Return
OnChar(InputHook, Char) {
static counter := 0
Critical
Static PrChar, PrTime
, Chars := {"#и":"i","#И":"I"}
If !Chars["#" Char]
Return
InputHook.Stop()
KeyWait % Format("sc{:x}", GetKeySC(Char)), T0.25
If ErrorLevel
{
ToolTip % ++counter
KeyWait % Format("sc{:x}", GetKeySC(Char))
PrTime := 0
Return InputHook.Start()
}
If (PrChar == Char && A_TickCount - PrTime < 250)
{
SendInput % "{Backspace 2}"
SendInput % "{Text}" Chars["#" Char]
}
PrChar := Char, PrTime := A_TickCount
InputHook.Start()
}