Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Приветствую всех.
Скажите - можно ли c помощью Autohotkey - по названию титла окна (например "Безымянный - Paint") и части ClassnameNN ("Afx:0") - определить его полный ClassnameNN, выведя через Msgbox?
Наверно можно как-нибудь через Accessible.
У меня совсем другое название ClassNN показывает.
Но я не об этом спрашивал.
Я спросил - как это скриптом сделать, чтобы ClassnameNN вывелся бы через msgbox ?
Не уверен, что вы не путаете Class (он же ahk_class) и ClassNN. У окна пайнта (как и у других окон верхнего уровня) есть класс, а ClassNN есть у его «внутренних» окон — контролов. Их может быть много, и их ClassNN может отличаться только номером.
части ClassnameNN ("Afx:0")
В паинте таких контролов несколько.
Run,mspaint,,,pid
Sleep 500
winget,hWnd,id,ahk_pid %pid%
WinGet,CL,ControlList,ahk_pid %pid%
Loop,Parse,CL,`n
{
if instr(A_LoopField,"Afx:0")
MsgBox,% A_LoopField
}
На десятке контрол рендера у меня Afx:00007FF6D9510000:81, причём как ни странно всегда одинаковый. Но что надо ТС мне всё равно не ясно.
Alectric, скрипт выводит три сообщения.
Как выбрать только самое первое из этих сообщений?
Alectric
Я написал сообщение потому что мне показалось что тут было написано что таких контролов нет.
В паинте таких контролов несколько.
Dalm
А у вас эта часть бывает разной?
Afx:00007FF6D9510000:8Dalm
А у вас эта часть бывает разной?
Afx:00007FF6D9510000:8Да
Ribbon меню можно автоматизировать через такой хак:
http://forum.script-coding.com/viewtopi … 15#p120115
Alectric, скрипт выводит три сообщения.
Как выбрать только самое первое из этих сообщений?
winget,hWnd,id, ahk_class MSPaintApp
WinGet,CL,ControlList,ahk_id %hWnd%
first := ""
Loop,Parse,CL,`n
{
if instr(A_LoopField,"Afx:0")
first := A_LoopField
}
If first
MsgBox % firstMalcev
Так у Ribbon класс UIRibbonWorkPane, а не Afx:***.
Можно ещё так попробовать, если нужен только класс или хэндл.
wid := WinExist("ahk_class MSPaintApp")
cid := ChildFromPath("5.1", wid)
WinGetClass, Class, ahk_id %cid%
MsgBox % Class
ChildFromPath(str, hwnd)
{
Static GW_HWNDNEXT := 2, GW_CHILD := 5
hwnd := DllCall("GetWindow", "Ptr", hwnd, UInt, GW_CHILD, "Ptr")
arr := StrSplit(str, "."), off := 1, i := 1
Loop
{
If (i = arr[off])
{
If (off = arr.Count())
return hwnd
hwnd := DllCall("GetWindow", "Ptr", hwnd, UInt, GW_CHILD, "Ptr"), ++off, i := 1
}
Else If (++i) && !(hwnd := DllCall("GetWindow", "Ptr", hwnd, UInt, GW_HWNDNEXT, "Ptr"))
return
}
}
serzh82saratov
Этот код определяет Class.
А нужен ClassnameNN - он такой: Afx:00000000FF690000:81
ClassnameNN начинается всегда на "Afx:" а заканчивается на ":81"
А нужен ClassnameNN
А зачем вам ClassNN, если есть хэндл?
Dalm, конкретно задача у вас какая - ради интереса выводить ClassnameNN?
Вот это скрипт - выводит три сообщения:
Run,mspaint,,,pid
Sleep 500
winget,hWnd,id,ahk_pid %pid%
WinGet,CL,ControlList,ahk_pid %pid%
Loop,Parse,CL,`n
{
if instr(A_LoopField,"Afx:0")
MsgBox,% A_LoopField
}Как оставить только самое первое из этих сообщений (а последующие два - не показывать) ?
Я вам в 12 посте ответил.
Вы ни тему свою не читаете, ни на вопросы не отвечаете...
serzh82saratov, да я читаю свою тему, просто не все коды тут срабатывают.
Вот код из сообщения 5 - выдает три сообщения.
Из них - самое первое - то что мне нужно:
тот самый ClassnameNN, который заканчивается на ":81"
То есть задача почти решена, но не так все просто.
Нужны не все эти три сообщения, а только одно - первое.
Я вижу - в вашем коде из сообщения 12 - стоит команда
If first
MsgBox % firstЧтобы выводилось - первое сообщение, надо понимать.
Но почему-то выдается не первое сообщение (то что заканчивается на ":81"), а третье (то что заканчивается на ":01").
Поэтому и спрашиваю.
да я читаю свою тему, просто не все коды тут срабатывают.
В таком случае надо написать что что то не работает, а не продолжать, как будто кода и не было.
Я ошибся на скорую руку, так должно работать.
winget,hWnd,id, ahk_class MSPaintApp
WinGet,CL,ControlList,ahk_id %hWnd%
first := ""
Loop,Parse,CL,`n
{
if instr(A_LoopField,"Afx:0") && (first := A_LoopField)
break
}
If first
MsgBox % first
If first
Тут только чтобы не выводить MsgBox когда контрол не найден.
serzh82saratov теперь выводит нужное сообщение.
Этот параметр, который выводится - его можно как-нибудь в переменную сохранить (чтобы потом где-нибудь использовать) ?
Сейчас он в переменной first.
serzh82saratov, спасибо - теперь срабатывает как нужно.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
