Серый форум — AHK: Замена WinWaitClose или IfWinNotExist

Re: AHK: Замена WinWaitClose или IfWinNotExist

null@example.com (serzh82saratov) — Fri, 24 May 2013 05:18:41 +0000

Event Constants

Re: AHK: Замена WinWaitClose или IfWinNotExist

null@example.com (Malcev) — Fri, 24 May 2013 01:29:27 +0000

Да, так работает.
Спасибо!
А откуда вы взяли этот параметр - EVENT_OBJECT_DESTROY := 0x8001

Re: AHK: Замена WinWaitClose или IfWinNotExist

null@example.com (serzh82saratov) — Thu, 23 May 2013 21:24:42 +0000

Не принял я во внимание что окно ваше дочернее, ShellProc их не все распознаёт.
По счёт этого тоже не уверен:



EVENT_OBJECT_DESTROY := 0x8001

SetWinEventHook(EVENT_OBJECT_DESTROY, EVENT_OBJECT_DESTROY, 0, RegisterCallback("HookProc", "F"), 0, 0, 0)

TargetWinId := WinExist("Безымянный — Блокнот ahk_class Notepad")  

   
HookProc(hWinEventHook, event, hwnd, idObject, idChild, dwEventThread, dwmsEventTime)
{  
    Global TargetWinId
    If (hwnd = TargetWinId)
        ToolTip % hwnd "   =    " TargetWinId
}

SetWinEventHook(eventMin, eventMax, hmodWinEventProc, lpfnWinEventProc, idProcess, idThread, dwFlags)
{
   return DllCall("SetWinEventHook" , UInt, eventMin
                                    , UInt, eventMax
                                    , Ptr, hmodWinEventProc
                                    , Ptr, lpfnWinEventProc
                                    , UInt, idProcess
                                    , UInt, idThread
                                    , UInt, dwFlags)
}
return

Re: AHK: Замена WinWaitClose или IfWinNotExist

null@example.com (Malcev) — Thu, 23 May 2013 20:38:13 +0000

Да, не появляется.

Re: AHK: Замена WinWaitClose или IfWinNotExist

null@example.com (serzh82saratov) — Thu, 23 May 2013 20:34:17 +0000

Я правильно понял что при закрытии окна Compressor... ahk_class #32770 ToolTip не появляется.

Re: AHK: Замена WinWaitClose или IfWinNotExist

null@example.com (Malcev) — Thu, 23 May 2013 20:28:53 +0000

А закрытие блокнота отлавливает.
Может окно у audacity специфическое.

Re: AHK: Замена WinWaitClose или IfWinNotExist

null@example.com (serzh82saratov) — Thu, 23 May 2013 20:16:16 +0000

А блокнот

Re: AHK: Замена WinWaitClose или IfWinNotExist

null@example.com (Malcev) — Thu, 23 May 2013 20:13:43 +0000

В смысле дальше node = 2 не идет.
То есть эта функция не отлавливает закрытие этого окна.

Re: AHK: Замена WinWaitClose или IfWinNotExist

null@example.com (serzh82saratov) — Thu, 23 May 2013 20:11:31 +0000

Что значит зависает на If (nCode = 2). Как это определено?

Re: AHK: Замена WinWaitClose или IfWinNotExist

null@example.com (Malcev) — Thu, 23 May 2013 20:07:16 +0000

Не понимаю.
Скрипт зависает на
If (nCode = 2)

Re: AHK: Замена WinWaitClose или IfWinNotExist

null@example.com (serzh82saratov) — Thu, 23 May 2013 19:52:45 +0000

А можно продолжить отладку и смотреть какое окно убивается:


DllCall("RegisterShellHookWindow", "UInt", A_ScriptHwnd)
OnMessage(DllCall("RegisterWindowMessage", "str", "SHELLHOOK"), "ShellProc")

ToolTip % "Id = " TargetWinId := WinExist("Compressor... ahk_class #32770")

ShellProc(nCode, wParam)    {
    Global TargetWinId
    If (nCode = 2) 
        ToolTip % wParam "  =?  " TargetWinId 
} 
Return

и сделать вывод что WinExist в вашем случае определяет Id не того окна.
Пробовать сначала активировать окно, и получать Id как WinExist("A").
Если нет, то получить Id всех окон "Compressor... ahk_class #32770" и копать дальше.

Re: AHK: Замена WinWaitClose или IfWinNotExist

null@example.com (Malcev) — Thu, 23 May 2013 19:42:48 +0000

Winget показывает такой же результат.
Кстати хук от уважаемого teadrinker работает.
Только надо его как-то изменить под мои нужды.
http://forum.script-coding.com/viewtopi … 431#p65431

EVENT_OBJECT_FOCUS := 0x8005

SetWinEventHook(EVENT_OBJECT_FOCUS, EVENT_OBJECT_FOCUS, 0, RegisterCallback("HookProc", "F"), 0, 0, 0)

Loop
{
   ToolTip % A_Index
   Sleep, 300
}
   
   
HookProc(hWinEventHook, event, hwnd, idObject, idChild, dwEventThread, dwmsEventTime)
{
   WinGetClass, class, A
   if (class = "Notepad")
      ExitApp
}

SetWinEventHook(eventMin, eventMax, hmodWinEventProc, lpfnWinEventProc, idProcess, idThread, dwFlags)
{
   return DllCall("SetWinEventHook" , UInt, eventMin
                                    , UInt, eventMax
                                    , Ptr, hmodWinEventProc
                                    , Ptr, lpfnWinEventProc
                                    , UInt, idProcess
                                    , UInt, idThread
                                    , UInt, dwFlags)
}

Re: AHK: Замена WinWaitClose или IfWinNotExist

null@example.com (serzh82saratov) — Thu, 23 May 2013 19:31:17 +0000

После того как получили Id проверьте нужное окно другим инструментом и сравните их Id.

Re: AHK: Замена WinWaitClose или IfWinNotExist

null@example.com (Malcev) — Thu, 23 May 2013 19:26:34 +0000

Не, не делал.
Показывает: Id = 0x43188a

Re: AHK: Замена WinWaitClose или IfWinNotExist

null@example.com (serzh82saratov) — Thu, 23 May 2013 19:21:15 +0000

Вы хотя бы отладку какую-то делали?:


DllCall("RegisterShellHookWindow", "UInt", A_ScriptHwnd)
OnMessage(DllCall("RegisterWindowMessage", "str", "SHELLHOOK"), "ShellProc")

ToolTip % "Id = " TargetWinId := WinExist("Compressor... ahk_class #32770")

ShellProc(nCode, wParam)    {
    Global TargetWinId
    If (nCode = 2)
    {    
        If (wParam = TargetWinId)
            MsgBox Close TargetWinId
    }  
} 
Return