Если в скрипте нет горячих клавиш или горячих строк, процесс скрипта завершится на Exit или return из раздела автоматического выполнения. Эта директива предотвращает это.
Цикл тоже был лишний, как оказалось, он тут не нужен.
Директива #Persistent делает его цикличным, я правильно понимаю?
]]>"SendMode Input" не помешает
Можешь добавить, если хочешь.
"Send," можно писать без запятой.
Можешь убрать запятую, если мешает.
]]>А есть необходимость в первых двух строчках?
"SendMode Input" не помешает,
"Send," можно писать без запятой.
stuermer, пардон, не до конца внимательно прочитал, что именно нужно было.
Немного подправил - всё работает, как надо.#Persistent NumpadDot:: ; ввод точки вместо запятой на нампаде Send, . return RU() ; Проверка языка ввода. { WinID := WinExist("A") ThreadID := DllCall("GetWindowThreadProcessId", "UInt", WinID, "UInt", 0) InputLocaleID := DllCall("GetKeyboardLayout", "UInt", ThreadID, "UInt") If InputLocaleID = 0x4190419 Return True Else Return False } <!sc1F:: if RU() = 1 Send, i ; если русский язык, то ввод i if RU() = 0 Send, s ;если другой язык, то ввод s return <!+sc1F:: if RU() = 1 Send, I ;если русский язык, то ввод I if RU() = 0 Send, S ;если другой язык, то ввод S return <!sc1B:: if RU() = 1 Send, ї ; если русский язык, то ввод i return <!+sc1B:: if RU() = 1 Send, Ї ;если русский язык, то ввод I return
Ок, а почему для i есть латинский кейс, а для ї - нет?
Еще непонятно, почему цикла нет. Он же закончится после одного нажатия.
- "Встретились два одиночества".
Над нами сейчас "тутошние" гуру надорвут живот.
NumpadDot:: ; тут просто создается бинд на клавишу
Send, . ; тут не ищется запятая, вообще ничего не ищется. Просто при нажатии клавиши вставляется необходимый символ, то есть точка.
return#Persistent
NumpadDot:: ; ввод точки вместо запятой на нампаде
Send, .
return
RU() ; Проверка языка ввода.
{
WinID := WinExist("A")
ThreadID := DllCall("GetWindowThreadProcessId", "UInt", WinID, "UInt", 0)
InputLocaleID := DllCall("GetKeyboardLayout", "UInt", ThreadID, "UInt")
If InputLocaleID = 0x4190419
Return True
Else
Return False
}
<!sc1F::
if RU() = 1
Send, i ; если русский язык, то ввод i
if RU() = 0
Send, s ;если другой язык, то ввод s
return
<!+sc1F::
if RU() = 1
Send, I ;если русский язык, то ввод I
if RU() = 0
Send, S ;если другой язык, то ввод S
return
<!sc1B::
if RU() = 1
Send, ї ; если русский язык, то ввод i
return
<!+sc1B::
if RU() = 1
Send, Ї ;если русский язык, то ввод I
return;Создадим макрос для смены раскладки клавиатуры при нажатии Caps Lock. Он будет выглядеть следующим образом:
SendMode Input
SetWorkingDir %A_ScriptDir%
CapsLock::Send, {Alt Down}{Shift Down}{Shift Up}{Alt Up}Тут есть директива "Send," с запятой. У тебя она тоже есть с запятой. Тогда как у тебя скрипт находит символ запятой? И почему у тебя нет первых двух строчек?
]]>stuermer, здравствуй. Я тоже не программист, но кое-что получилось сделать:
Здравствуй, спасибо, попробую!
]]>не торопитесь отвечать до внесения автором исправлений.
Хорошо, исправлюсь.
]]>Где точки нет и буквы маленькие??
я не программист
Где здесь заглавная буква и точка, не подскажете? Если думаете, что орфографию нужно соблюдать только в первом посте, то это не так.
Alexey_cake, на будущее, если было сделано замечание по оформлению, не торопитесь отвечать до внесения автором исправлений.
#Persistent
NumpadDot:: ; ввод точки вместо запятой на нампаде
Send, .
return
RU() ; Проверка языка ввода.
{
WinID := WinExist("A")
ThreadID := DllCall("GetWindowThreadProcessId", "UInt", WinID, "UInt", 0)
InputLocaleID := DllCall("GetKeyboardLayout", "UInt", ThreadID, "UInt")
If InputLocaleID = 0x4190419
Return True
Else
Return False
}
loop
{
sleep 100
<!s::
if RU() = 1
Send, i ; если русский язык, то ввод i
if RU() = 0
Send, s ;если другой язык, то ввод s
return
<!+s::
if RU() = 1
Send, I ;если русский язык, то ввод I
if RU() = 0
Send, S ;если другой язык, то ввод S
return
}
Обратите внимание на заглавные буквы в начале и точки в конце предложений.
Где точки нет и буквы маленькие??
]]>