Серый форум — AHK: IAccessible

Re: AHK: IAccessible

null@example.com (fwant) — Wed, 23 Jul 2014 12:10:42 +0000

Большое спасибо.

Re: AHK: IAccessible

null@example.com (teadrinker) — Wed, 23 Jul 2014 12:06:59 +0000

IAccessible здесь не при чём. Нужно просто знать правила передачи параметров в функцию.
Переменная: MyFunc(var)
Строка: MyFunc("string")
Строка с переменной: MyFunc("string" . var)
Переменная внутри строки: MyFunc("part1" . var . "part2")

Re: AHK: IAccessible

null@example.com (fwant) — Wed, 23 Jul 2014 10:21:31 +0000

Добрый день!
Столкнулся с такой проблемой: В программе задана таблица, необходимо взять 10ый элемент каждой строки. Обычным методом не получается, только через IAccessible. Докопал до адреса, но нельзя задать переменную в куске Path:

AccObj := Acc_Get("Object", "4.4.4.1.4.2.4.1.4.1.4.2.4.1.4.4.10" , ,"A")
case2 := AccObj.accvalue(0)
AccObj := Acc_Get("Object", "4.4.4.1.4.2.4.1.4.1.4.2.4.1.4.5.10" , ,"A")
case3 := AccObj.accvalue(0)

Меняется только предпоследняя строка.
При использовании переменной как части строки, либо целиком строчкой, не получается получить данное значение:

AccObj := Acc_Get("Object", var , ,"A")
AccObj := Acc_Get("Object", "%var%" , ,"A")
AccObj := Acc_Get("Object", %var% , ,"A")
AccObj := Acc_Get("Object", "4.4.4.1.4.2.4.1.4.1.4.2.4.1.4.%var%.10" , ,"A")

Не выдают значение.

Re: AHK: IAccessible

null@example.com (Malcev) — Fri, 30 May 2014 18:28:18 +0000

Спасибо! То, что надо.

Re: AHK: IAccessible

null@example.com (teadrinker) — Fri, 30 May 2014 18:16:55 +0000

Как-то так:

F11::
   If !AccObj := ExistAccDescription(WinExist("A"), "ready")
      MsgBox, нет
   else
   {
      While Acc_State(AccObj) != "invisible"
         Sleep, 1000
      MsgBox, invisible
   }
   return 

ExistAccDescription(winid, Desc)
{
   if (!(AccObj := Acc_ObjectFromWindow(winid)) && Error := "Не удалось получить IAccessible")
      Return 0, DllCall("MessageBox", Ptr, 0, Str, Error, Str, "", UInt, 0) 
   Return FindAccDescription(AccObj, Desc)
}    

FindAccDescription(AccObj, Desc)
{    
   try if (AccObj.accDescription(0) = Desc)  
      Return AccObj

   for k, v in Acc_Children(AccObj)
      if AccObj := FindAccDescription(v, Desc)  
         Return AccObj
}

Re: AHK: IAccessible

null@example.com (teadrinker) — Fri, 30 May 2014 10:15:58 +0000

Ой, плохо посмотрел, с телефона пишу . Попозже.

Re: AHK: IAccessible

null@example.com (Malcev) — Fri, 30 May 2014 10:07:18 +0000

Спасибо, но тут нету ни слова о:

Если же есть, то он ждал бы пока его State станет invisible и тогда выдал бы msgbox.

try if instr(AccObj.accDescription(0), Desc) and (AccObj.accState(0), "invisible")

Re: AHK: IAccessible

null@example.com (teadrinker) — Fri, 30 May 2014 07:21:06 +0000

F11::
If !ExistAccDescription(hWnd := WinExist("A"), "ready")
{
    MsgBox, нет
    While !ExistAccDescription(hWnd, "ready")
        Sleep, 1000
}
MsgBox, есть
return 

ExistAccDescription(winid, Desc)
{
    static AccObj
    if !AccObj
        if !AccObj := Acc_ObjectFromWindow(winid)
            Return 0 ;  "Не удалось получить IAccessible"  
    Return FindAccDescription(AccObj, Desc) ? 1 : 0
}    

FindAccDescription(AccObj, Desc)
{    
    try if (AccObj.accDescription(0) = Desc)  
        Return 1

    for k, v in Acc_Children(AccObj)
        if FindAccDescription(v, Desc)  
            Return 1
}

Re: AHK: IAccessible

null@example.com (Malcev) — Fri, 30 May 2014 00:43:12 +0000

Спасибо!
Мне надо чтобы скрипт сначала проверил есть ли такой Description вообще.
Если нету, то выдал msgbox.
Если же есть, то он ждал бы пока его State станет invisible и тогда выдал бы msgbox.
В итоге получилась простыня, уверен, что можно короче.

f11::
If !NotExistAccDescription(WinExist("A"), "ready")  
   MsgBox Not Exist

Loop
   If ExistAccDescription(WinExist("A"), "ready")  
      MsgBox Exist


NotExistAccDescription(winid, Desc)
{
    static AccObj
    if !AccObj
        if !AccObj := Acc_ObjectFromWindow(winid)
            Return 0 ;  "Не удалось получить IAccessible"  
    Return NotFindAccDescription(AccObj, Desc) ? 1 : 0
}     

NotFindAccDescription(AccObj, Desc)
{    
    try if instr(AccObj.accDescription(0), Desc)
        Return 1

    for k, v in Acc_Children(AccObj)
        if NotFindAccDescription(v, Desc)  
            Return 1
}  


ExistAccDescription(winid, Desc)
{
    if !IsObject(AccObj := Acc_ObjectFromWindow(winid))
        Return 0 ;  "Не удалось получить IAccessible"  
    Return FindAccDescription(AccObj, Desc) ? 1 : 0
} 

FindAccDescription(AccObj, Desc)
{    
    try if instr(AccObj.accDescription(0), Desc) and (AccObj.accState(0), "invisible")
        Return 1

    for k, v in Acc_Children(AccObj)
        if FindAccDescription(v, Desc)  
            Return 1
}

Re: AHK: IAccessible

null@example.com (teadrinker) — Thu, 29 May 2014 22:56:42 +0000

serzh82saratov пишет:


Loop
    If ExistAccDescription(WinExist("A"), "ready")  
        MsgBox
    return 

ExistAccDescription(winid, Desc)
{
    if !IsObject(AccObj := Acc_ObjectFromWindow(winid))
        Return 0 ;  "Не удалось получить IAccessible"  
    Return FindAccDescription(AccObj, Desc) ? 1 : 0
}    

FindAccDescription(AccObj, Desc)
{    
    try if (AccObj.accDescription(0) = Desc)  
        Return 1

    for k, v in Acc_Children(AccObj)
        if FindAccDescription(v, Desc)  
            Return 1
}

Зачем здесь Loop?

Malcev пишет:

чтобы перебрав все acc-объекты и не найдя в их Description слово Ready скрипт выдал Msgbox?


If !ExistAccDescription(WinExist("A"), "ready")  
    MsgBox
return 

ExistAccDescription(winid, Desc)
{
    static AccObj
    if !AccObj
        if !AccObj := Acc_ObjectFromWindow(winid)
            Return 0 ;  "Не удалось получить IAccessible"  
    Return FindAccDescription(AccObj, Desc) ? 1 : 0
}    

FindAccDescription(AccObj, Desc)
{    
    try if (AccObj.accDescription(0) = Desc)  
        Return 1

    for k, v in Acc_Children(AccObj)
        if FindAccDescription(v, Desc)  
            Return 1
}

Re: AHK: IAccessible

null@example.com (Malcev) — Thu, 29 May 2014 21:48:21 +0000

Что-то бьюсь-бьюсь и не получается никак сделать:
чтобы перебрав все acc-объекты и не найдя в их Description слово Ready скрипт выдал Msgbox?
И есть ли альтернатива Microsoft Active Accessibility, так-как в моем случае (Adobe Premiere CC) поле программы показывается как просто Client без Description и без Children, хотя слова в нем есть.

Re: AHK: IAccessible

null@example.com (Malcev) — Tue, 27 May 2014 16:44:49 +0000

Спасибо!

Re: AHK: IAccessible

null@example.com (serzh82saratov) — Tue, 27 May 2014 09:08:52 +0000


Loop
    If ExistAccDescription(WinExist("A"), "ready")  
        MsgBox
    return 

ExistAccDescription(winid, Desc)
{
    if !IsObject(AccObj := Acc_ObjectFromWindow(winid))
        Return 0 ;  "Не удалось получить IAccessible"  
    Return FindAccDescription(AccObj, Desc) ? 1 : 0
}    

FindAccDescription(AccObj, Desc)
{    
    try if (AccObj.accDescription(0) = Desc)  
        Return 1

    for k, v in Acc_Children(AccObj)
        if FindAccDescription(v, Desc)  
            Return 1
}

Re: AHK: IAccessible

null@example.com (Malcev) — Tue, 27 May 2014 04:27:28 +0000

AccObj := Acc_Get("Object", "2.5.3.9", "", "A")   ; получаем ссылку на acc-объект по пути 2.5.3.9 из активного окна
try Description := AccObj.accDescription(0)

А если этот путь все время меняется, можно как-то получить Description, перебирая все acc-объекты?
Цель получить msgbox когда окно программы выдаст надпись ready.

Re: AHK: IAccessible

null@example.com (многобанофф) — Tue, 25 Mar 2014 17:54:41 +0000

Благодарю за ясность.
С координатами я сам додумался. Соблазн был велик без них обойтись. Жаль.

+ По существу проблемы я в недоумении.

Пока статистики достаточной нет, но один из откликнувшихся посоветовал при нажатом Alt просто еще раз (второй) нажать Shift и это... действительно работает. Однако, сколько при нажатом Ctrl не жму Tab - ноль эффекта. Какое-то свирепое колдунство.