Серый форум — AHK: Ждать пока у программы появится крестик для закрытия

Re: AHK: Ждать пока у программы появится крестик для закрытия

null@example.com (Malcev) — Wed, 11 Jun 2014 18:46:51 +0000

Решил таким кодом:

hWnd:=WinExist("A")
hSysMenu:=DllCall("GetSystemMenu","Int",hWnd,"Int",FALSE)
if hSysMenu != 0
   msgbox

И все-таки мне непонятно, почему Acc не находит?

Re: AHK: Ждать пока у программы появится крестик для закрытия

null@example.com (Malcev) — Wed, 11 Jun 2014 16:26:08 +0000

Вот такой код не работает:

f11::

Loop
    If ExistAccName(WinExist("A"), "Close")  
        MsgBox
    return 

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

FindAccName(AccObj, Desc)
{    
    try if (AccObj.accName(0) = Desc)  
        Return 1

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

А такой работает (при навидении мышкой на крестик выскакивает msgbox):

loop
{
   Acc :=    Acc_ObjectFromPoint(child) 
   if   (Acc.accName(child)="Close")
      msgbox
}

Что изменить в первом, чтобы при нахождении крестика в активном окне выдавался msgbox?

Re: AHK: Ждать пока у программы появится крестик для закрытия

null@example.com (Malcev) — Wed, 11 Jun 2014 15:11:23 +0000

А почему через AccDescription не получается?

Re: AHK: Ждать пока у программы появится крестик для закрытия

null@example.com (serzh82saratov) — Wed, 11 Jun 2014 12:43:00 +0000

Возможно SetWinEventHook, и возможно EVENT_OBJECT_CREATE.

AHK: Ждать пока у программы появится крестик для закрытия

null@example.com (Malcev) — Wed, 11 Jun 2014 12:38:23 +0000

Задача - дождаться пока загрузится программа.
Когда она загрузится появляется в правом углу крестик для закрытия.
Как этот момент определить?
Через Aсс не получается.

Loop
    If ExistAccDescription(WinExist("A"), "Closes the window")  
        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
}