А если серьезно, было бы кстати, если бы Вы протестировали на своей "десятке" в окне Скайпа вариант из 16 поста от Alectric. Подозреваю, что у меня одного все так плохо.]]>
]]>...
Нужно исправить возвращаемое значение на:
return "{vk" VK "}"
SendMode Input
#LAlt::
Send ^+{Left}^{vk58} ; Выделить и вырезать последнее слово слева от каретки
if (old_layout = "RU")
{
SendMessage, 0x50,, % Locale_EN,, A
}
else
{
SendMessage, 0x50,, % Locale_RU,, A
}
gosub, Paste
return
Paste:
KeyWait Ctrl
for k, v in StrSplit(clipboard)
Send % CharToVk(v)
return
; ---------- Functions -----------
CharToVk(Char)
{
static Eng := 0x4090409, Rus := 0x4190419
CharCode := Asc(Char)
Lang := charcode > 127 ? Rus : Eng
PrevLang := getscriptlang()
If (Lang != PrevLang) {
SetScriptLang(Lang)
}
VK := DllCall("VkKeyScan", "uchar", CharCode, "Short")
SetFormat, Integer, H
VK := SubStr(VK & 0xFF, 3)
StringUpper, VK, VK
SetFormat, Integer, D
If (Lang != PrevLang) {
SetScriptLang(PrevLang)
}
return "{vk" VK "}"
}
GetScriptLang()
{
static ThreadID := 0
If (ThreadID = 0)
ThreadID := DllCall("GetWindowThreadProcessId", "ptr", A_ScriptHwnd, "uint", 0, "ptr")
Return DllCall("GetKeyboardLayout", "ptr", ThreadID, "ptr")
}
SetScriptLang(Lang)
{
static Func := "PostMessage" . (A_IsUnicode? "W":"A")
DllCall(Func, "ptr", A_ScriptHwnd, "uint", 0x50, "ptr", 0, "ptr", Lang)
Sleep, -1
}
На данный момент у меня не получилось связать модификацию от YMP с отправлением скопированного текста.
]]>
MsgBox, % CharToVk("a") "`n" CharToVk("ф")
; ---------- Functions -----------
CharToVk(Char)
{
static Eng := 0x4090409, Rus := 0x4190419
CharCode := Asc(Char)
Lang := CharCode > 127 ? Rus : Eng
PrevLang := GetScriptLang()
If (Lang != PrevLang) {
SetScriptLang(Lang)
}
VK := DllCall("VkKeyScan", "uchar", CharCode, "Short")
SetFormat, Integer, H
VK := SubStr(VK & 0xFF, 3)
StringUpper, VK, VK
SetFormat, Integer, D
If (Lang != PrevLang) {
SetScriptLang(PrevLang)
}
Return "vk" VK
}
GetScriptLang()
{
static ThreadID := DllCall("GetWindowThreadProcessId", "ptr", A_ScriptHwnd, "uint", 0, "ptr")
Return DllCall("GetKeyboardLayout", "ptr", ThreadID, "ptr")
}
SetScriptLang(Lang)
{
static Func := "PostMessage" . (A_IsUnicode? "W":"A")
DllCall(Func, "ptr", A_ScriptHwnd, "uint", 0x50, "ptr", 0, "ptr", Lang)
Sleep, -1
}
msgbox,% "ru: " asc("ф") "`nen: " asc("a")
Здесь:
VK := DllCall("VkKeyScan", "uchar", Asc(Char), "Short")
...
VK1 := DllCall("VkKeyScan", "uchar", Asc("ф"), "Short")
VK2 := DllCall("VkKeyScan", "uchar", Asc("a"), "Short")
msgbox,% vk1 "`n" vk2
...
Возможно можно позаимствовать некоторые функции из библиотеки у serzh82saratov.
]]>Я могу ошибаться, но мне кажется странным, что вариант с отправлением виртуальных кодов никому не приглянулся, т.к. кажется, что такой метод должен работать не хуже при гораздо меньшем объеме кода. И самое, на мой взгляд, интересное, что он должен работать с разными языками, для чего необходимо будет лишь заменить строку с заданной раскладкой.
]]>