Странно.]]>У меня всё проходит.
f6:: settitlematchmode 2 ControlSend, ahk_parent, {f12}, OBS ahk_exe obs64.exe
Да, если писать как вы предлагаете, то одиночное нажатие проходит (а комбинация нет). Спасибо! Пока переделал свой скрипт таким образом, перебиндил в игре занятые клавиши (((. Может его можно еще как-то грамотнее написать (оптимизировать)?
file = e:\Work\files\Counters\Count.txt
LCount =
If !FileExist(file) {
MsgBox, 48, Error, Файл не найден. Отмена.`n`n%file%
ExitApp
}
FileReadLine, LCount, %file%, 1
Sleep, 500
If (LCount > 30) {
MsgBox, 48, Error, Не запущена программа!`n`n%file%
ExitApp
}
settitlematchmode 2
Loop {
FileReadLine, LCount, %file%, 1
Sleep, 6000
}
until LCount = 10
Sleep, 150
ControlSend, ahk_parent, {f6}, OBS ahk_exe obs64.exe
Sleep, 10000
ControlSend, ahk_parent, {f6}, OBS ahk_exe obs64.exe
Loop {
FileReadLine, LCount, %file%, 1
Sleep, 6000
}
until LCount = 20
Sleep, 150
ControlSend, ahk_parent, {f7}, OBS ahk_exe obs64.exe
Sleep, 12000
ControlSend, ahk_parent, {f7}, OBS ahk_exe obs64.exe
Loop {
FileReadLine, LCount, %file%, 1
Sleep, 6000
}
until LCount = 30
Sleep, 150
ControlSend, ahk_parent, {f8}, OBS ahk_exe obs64.exe
Sleep, 20000
ControlSend, ahk_parent, {f8}, OBS ahk_exe obs64.exe
ExitApp
И почему-то сообщения в кириллице выводятся неверно...
]]>f6::
settitlematchmode 2
ControlSend, ahk_parent, {f12}, OBS ahk_exe obs64.exeПопробовал скачать программу, установил. С клвиатуры Alt-T работает, а из AutoHotkey - нет. Хотя какие-то мелькания идут с таким кодом при неактивном окне:
ControlSend, , {LAlt Down}{T}{LAlt Up}, ahk_class Qt5QWindowIcon
А при активном даже работает. Что-то не хочет программа подчиняться AutoHotkey.
Вот поэтому и придумывали разные обходные пути на форумах, типа задержки нажатия и прочее, я перебрал несколько, которые нашел - не помогло. А выше код, про который написали, что помогает, но здесь уже у меня знаний не хватает понять, что там накручено, поэтому и спрашиваю у более опытных.
;Previously
global OBSHWND := GetOBS()
GetOBS() {
ntmm := A_TitleMatchMode
SetTitleMatchMode, Regex
;use the main window title to get the ID of the main window, because that's were we want the hotkeys to go
OBSHWND := WinExist("OBS .*[0-9]{2}\.[0-9]+\.[0-9]+ ahk_exe obs64.exe")
SetTitleMatchMode, %ntmm% ;avoids complicating other title matches
Return OBSHWND
}
SendKeyOBS(Key) {
tDelay := 250 ;ms
If OBSHWND {
If (WinExist("ahk_id " . OBSHWND)) { ;set's last found window
SetKeyDelay, 50,80 ;I experimented with various values here
;send key to last found window
ControlSend,ahk_parent,%key%
ErrLvl := ErrorLevel
If ErrLvl
;if you aren't using dbgview for script debugging consider it -- it is extremely useful (and free)
OutputDebug % Format("[{}][{}] ErrLvl: {}",sScript,A_ThisFunc . "." . A_LineNumber, ErrLvl) . " "
Sleep %tDelay% ;can't remember why this is here
}
OutputDebug % Format("[{}][{}] Key: {}; Err: {}; OBSHWND: {}",sScript,A_ThisFunc . "." . A_LineNumber,Key,ErrLvl,OBSHWND) . " "
}
Return ;no value returned
}
OBS не установлен, поэтому проверить свои догадки не могу. Скорее всего нужно отправлять в функцию 'SendKeyOBS' некую клавишу (в кавычках). Но какую - без понятия.
]]>Написал скрипт, который почти устраивает по функционалу, но он работает только при активном окне программы
Вместо Send можно использовать ControlSend. Это более сложная команда, но по ней есть документация и куча примеров на нашем форуме.
]]>
;Previously
global OBSHWND := GetOBS()
GetOBS() {
ntmm := A_TitleMatchMode
SetTitleMatchMode, Regex
;use the main window title to get the ID of the main window, because that's were we want the hotkeys to go
OBSHWND := WinExist("OBS .*[0-9]{2}\.[0-9]+\.[0-9]+ ahk_exe obs64.exe")
SetTitleMatchMode, %ntmm% ;avoids complicating other title matches
Return OBSHWND
}
SendKeyOBS(Key) {
tDelay := 250 ;ms
If OBSHWND {
If (WinExist("ahk_id " . OBSHWND)) { ;set's last found window
SetKeyDelay, 50,80 ;I experimented with various values here
;send key to last found window
ControlSend,ahk_parent,%key%
ErrLvl := ErrorLevel
If ErrLvl
;if you aren't using dbgview for script debugging consider it -- it is extremely useful (and free)
OutputDebug % Format("[{}][{}] ErrLvl: {}",sScript,A_ThisFunc . "." . A_LineNumber, ErrLvl) . " "
Sleep %tDelay% ;can't remember why this is here
}
OutputDebug % Format("[{}][{}] Key: {}; Err: {}; OBSHWND: {}",sScript,A_ThisFunc . "." . A_LineNumber,Key,ErrLvl,OBSHWND) . " "
}
Return ;no value returned
}
Loop {
FileRead, LCount, e:\Work\\files\Counters\Count.txt
Sleep, 6000
}
until LCount = 10
Send ^!{vk47}
Sleep, 10000
Send ^!{vk47}
Loop {
FileRead, LCount, e:\Work\files\Counters\Count.txt
Sleep, 6000
}
until LCount = 20
Send ^!{vk46}
Sleep, 10000
Send ^!{vk46}
Loop {
FileRead, LCount, e:\Work\files\Counters\Count.txt
Sleep, 6000
}
until LCount = 30
Send ^!{vk54}
Sleep, 20000
Send ^!{vk54}Пробовал использовать ControlSend вместо Send, но тоже не реагирует программа (OBS). Помогите разобраться, пожалуйста!
F6::ControlSend,, ^!{vk54}, ahk_class Qt5QWindowIcon ahk_class для OBS смотрел с помощью WinSpy.
Спасибо.