Попробуй закрыть условие, и класс правильно прописать.
Ага, так работает. 
Hotkey, % "~Esc & " Name, InputLoop % 0xFF + 0x153
If ((Name := Name(A_Index)) != "")
Hotkey, % "Esc & " Name, InputПопробуй закрыть условие, и класс правильно прописать.
Ага, так работает.
#IfWinActive, ahk_class NotepadeЕсли правильно, моя работает, но печать — нет.
]]>#IfWinActive, ahk_class Notepad
^Space:: MsgBox
#IfWinActive#NoEnv
SetBatchLines -1
ListLines Off
Loop % 0xFF + 0x153
If ((Name := Name(A_Index)) != "")
Hotkey, % "Esc & " Name, Input
Return
Input() {
Key := SubStr(A_ThisHotkey, InStr(A_ThisHotkey, "&") + 2)
SendStr(GetKeyState("Shift", "P") ? "{" Key "}" : Key)
KeyWait, % (Instr(Key, "Wheel") ? "" : Key)
}
Name(I) {
Static Names := {}
Code := Format((I > 0xFF ? "sc" : "vk") "{:X}", I - (I > 0xFF ? 0xFF : 0))
If Names[Name := GetKeyName(Code)]
Return
Names[Name] := 1, Chr := StrLen(Name) = 1 && !Instr("1234567890-=", Name)
Return Chr ? (Instr(Code, "sc") ? "" : Code) : (Instr(Name, "Shift") ? "" : Name)
}
SendStr(Str) {
ControlGetFocus, Ctrl, % "ahk_id" WinExist("A")
Loop, Parse, Str
PostMessage, 0x102, Ord(A_LoopField), 1, %Ctrl% ; WM_CHAR
}
#IfWinActive, ahk_class Notepade
^Space:: MsgBox?
]]>Но это мелочи, можно привыкнуть.
Или тут просто фигурные скобки переставить:
SendStr(GetKeyState("Shift", "P") ? "{" Key "}" : Key)при расположении сценария в конце файла он не работает
Тут ещё проще, тут же сразу идёт Return, то есть то что до него
Loop % 0xFF + 0x153
If ((Name := Name(A_Index)) != "")
Hotkey, % "Esc & " Name, Inputнадо поместить до своих циклов, вверху, то что называют в справке "секция автовыполнения", то что после Return поместить после циклов.
]]>Более всего для меня вновь затруднительно разместить сценарий в одном файле с другими, т.к. при расположении сценария в конце файла он не работает, а в начале - предотвращает отображение GUI и, например, TrayMenu. Я уже несколько раз интересовался по поводу этого вопроса, однако для меня он по-прежнему остался открытым, т.к. даже после прочтения справки мне не ясно, существует ли способ, который полностью разделяет сценарии для предотвращения воздействия друг на друга или же это безвыходная ситуация, когда единственным решением может быть разделение на два файла.
]]>#NoEnv
SetBatchLines -1
ListLines Off
Loop % 0xFF + 0x153
If ((Name := Name(A_Index)) != "")
Hotkey, % "Esc & " Name, Input
Return
Input() {
Key := SubStr(A_ThisHotkey, InStr(A_ThisHotkey, "&") + 2)
SendStr(GetKeyState("Shift", "P") ? "{" Key "}" : Key)
KeyWait, % (Instr(Key, "Wheel") ? "" : Key)
}
Name(I) {
Static Names := {}
Code := Format((I > 0xFF ? "sc" : "vk") "{:X}", I - (I > 0xFF ? 0xFF : 0))
If Names[Name := GetKeyName(Code)]
Return
Names[Name] := 1, Chr := StrLen(Name) = 1 && !Instr("1234567890-=", Name)
Return Chr ? (Instr(Code, "sc") ? "" : Code) : (Instr(Name, "Shift") ? "" : Name)
}
SendStr(Str) {
ControlGetFocus, Ctrl, % "ahk_id" WinExist("A")
Loop, Parse, Str
PostMessage, 0x102, Ord(A_LoopField), 1, %Ctrl% ; WM_CHAR
}#NoEnv
SetBatchLines -1
ListLines Off
Loop % 0xFF + 0xFFF
If ((Name := Name(A_Index)) != "")
Hotkey, % "Esc & " Name, Input
Return
Input() {
Key := SubStr(A_ThisHotkey, InStr(A_ThisHotkey, "&") + 2)
SendInput, % "{Raw}" (GetKeyState("Shift", "P") ? "{" Key "}" : Key)
KeyWait, % (Instr(Key, "Wheel") ? "" : Key)
}
Name(I) {
Code := Format((I > 0xFF ? "sc" : "vk") "{:X}", I - (I > 0xFF ? 0xFF : 0))
Name := GetKeyName(Code), Chr := StrLen(Name) = 1 && !Instr("1234567890-=", Name)
Return Chr ? (Instr(Code, "sc") ? "" : Code) : (Instr(Name, "Shift") ? "" : Name)
}По моему надёжнее и проще так
Ну, это уже детали. Можно через RegEx в одно выражение. Я о принципе определения интересовался, работает, или нет.
]]>Так я пока только про буквенные говорю.
Я думал мы говорим про сценарий который выдаёт вк коды всех тех клавиш, которые нуждаются в этом для независимости от раскладки, и именах остальных.
Иными словами, чтобы у буквенных символов отправлялись виртуальные коды, а у всех остальных - названия, которые одинакого воспринимаются при любой раскладке.