AHK: хук для отслеживания появления/закрытия окон в системе

OnWindowCreated("ahk_class Notepad", "Notepad_Created") ; первый параметр — window title в стандартном формате ahk, второй параметр — имя процедуры, которая должна выполнятся при создании окна с заданными первым параметром характеристиками

OnWindowActivated("ahk_class Notepad", "Notepad_Activated") ; первый параметр — window title в стандартном формате ahk, второй параметр — имя процедуры, которая должна выполнятся при активации окна с заданными первым параметром характеристиками

;!!return ; конец секции автовыполнения. не обязателен, но приемлем.

Notepad_Created(hWnd) ; эта процедура будет выполнятся при каждом создании окна
{
  SplashImage,, M C11 ZH0 ZW0 ZX1 ZY1 B1 CTffffff CW8B0000 FM11 FS6 WM600 WS400,, Окно СОЗДАНО`nТеоретически его можно закрыть)))
  Sleep, 2000
  SplashImage, OFF
/*
  ; КОД ДЛЯ ЗАКРЫТИЯ ОКНА
  ActiveWinID := WinExist("A")
  WinClose, ahk_id %ActiveWinID%
*/
}

Notepad_Activated(hWnd) ; активация
{
  SplashImage,, M C11 ZH0 ZW0 ZX1 ZY1 B1 CTffffff CW8B0000 FM11 FS6 WM600 WS400,, Окно АКТИВИРОВАНО`nТеоретически его можно закрыть)))
  Sleep, 2000
  SplashImage, OFF
/*
  ; КОД ДЛЯ ЗАКРЫТИЯ ОКНА
  ActiveWinID := WinExist("A")
  WinClose, ahk_id %ActiveWinID%
*/
}

OnWindowCreated(winTitle, procName = "", maxThreads = 1)
{
    global ShellHookActionList
 
    IsObject(ShellHookActionList) || ShellHookActionList := Object()
    IsObject(ShellHookActionList[1]) || ShellHookActionList[1] := Object()
 
    if procName
        ShellHookActionList[1][winTitle] := procName
    else
        return ShellHookActionList[1][winTitle]
 
    if !OnMessage(DllCall("RegisterWindowMessage", "str", "SHELLHOOK")) {
        DllCall("RegisterShellHookWindow", "UInt", A_ScriptHwnd)
        OnMessage(DllCall("RegisterWindowMessage", "str", "SHELLHOOK"), "ShellProc", maxThreads)
    }
}
 
OnWindowActivated(winTitle, procName = "", maxThreads = 1)
{
    global ShellHookActionList
 
    IsObject(ShellHookActionList) || ShellHookActionList := Object()
    IsObject(ShellHookActionList[4]) || ShellHookActionList[4] := Object()
 
    if procName
        ShellHookActionList[4][winTitle] := procName
    else
        return ShellHookActionList[4][winTitle]
 
    if !OnMessage(DllCall("RegisterWindowMessage", "str", "SHELLHOOK")) {
        DllCall("RegisterShellHookWindow", "UInt", A_ScriptHwnd)
        OnMessage(DllCall("RegisterWindowMessage", "str", "SHELLHOOK"), "ShellProc", maxThreads)
    }
}
 
ShellProc(wParam, lParam)
{
    global ShellHookActionList
 
    if ShellHookActionList.HasKey(wParam) {
        for winTitle, procName in ShellHookActionList[wParam] {
            WinGet, hWndList, List, %winTitle%
            loop %hWndList%
                continue
            until hWndList%A_Index% = lParam && found := true
 
            if (found)
                %procName%(lParam), found := false
        }
    }
    return
}

GroupAdd, nastyWindows, Skype™ - Обновить ahk_class TUpgradeForm ahk_exe skype.exe
GroupAdd, nastyWindows, Skype™ - Ваше мнение о качестве связи ahk_class TCallQualityForm ahk_exe skype.exe
GroupAdd, nastyWindows, ahk_class Notepad ahk_exe notepad.exe
WinClose, ahk_group nastyWindows

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

Exit: 
    DllCall("DeregisterShellHookWindow", "UInt", A_ScriptHwnd)
    ExitApp
    
ShellProc(nCode)  { 
    if (nCode = 1) {  ; HSHELL_WINDOWCREATED
        WinClose, ahk_group nastyWindows
    }
}

ShellProc(nCode)  { 
    Critical
    if (nCode = 1) {  ; HSHELL_WINDOWCREATED
        WinClose, ahk_group nastyWindows
    }
}

EVENT_OBJECT_DESTROY := 0x8001

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

TargetWinId := WinExist("ahk_class #32770")  

   
HookProc(hWinEventHook, event, hwnd, idObject, idChild, dwEventThread, dwmsEventTime)
{  
    Global TargetWinId
    If (hwnd = TargetWinId)
        msgbox !!!!!!!!!!!!!!!!!!!!!!!!!!!!
}

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

#Persistent 
EVENT := 0x0010 ; EVENT_SYSTEM_DIALOGSTART 

SetWinEventHook(EVENT, EVENT, 0, RegisterCallback("HookProc", "F"), 0, 0, 0) 
 
HookProc(hWinEventHook, event, hwnd, idObject, idChild, dwEventThread, dwmsEventTime)
{    
    ToolTip !!!!!!!!!!!!!!!!!!!!!!!!!!!!
}

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

gui show, w333 h333
OnMessage(0x112, "WM_SYSCOMMAND")

WM_SYSCOMMAND(wp, lp) {
	static SC_CLOSE := 0xF060  
	if (wp = SC_CLOSE) {
		MsgBox, 4, % " ", Do you want to close the window?
		IfMsgBox, No
			Return 1 
		Gui, %A_Gui%: Destroy
	}
}

if !hwnd := WinExist("ahk_exe notepad.exe")
	abort("no open notepads found")

if !hCBTDll := DllCall("LoadLibrary", "Str", "mydll.dll", "Ptr")
	abort("LoadLibrary failed with " A_LastError)

if !hCBTProc := DllCall("GetProcAddress", "Ptr", hCBTDll, "AStr", "CBTProc", "Ptr")
	abort("GetProcAddress failed with " A_LastError)

threadId := DllCall("GetWindowThreadProcessId", "Ptr", hwnd, "Ptr", 0, "UInt")

if !hHook := DllCall("SetWindowsHookEx", "Int", WH_CBT := 5, "Ptr", hCBTProc, "Ptr", hCBTDll, "UInt", threadId, "Ptr")
	abort("SetWindowsHookEx failed with " A_LastError)

MsgBox ur notepad is now unminimizable

Esc::
	DllCall("UnhookWindowsHookEx", "Ptr", hHook)
	MsgBox ur notepad is once again minimizable
	ExitApp
return

abort(msg) {
	MsgBox % msg "`n`n`nExiting"
	ExitApp
}

#include <Windows.h>

extern "C" __declspec(dllexport) LRESULT CALLBACK CBTProc(
	_In_ int    nCode,
	_In_ WPARAM wParam,
	_In_ LPARAM lParam
)
{
	if (nCode < 0) return CallNextHookEx(nullptr, nCode, wParam, lParam);

	switch(nCode)
	{
		case HCBT_DESTROYWND:
		case HCBT_SYSCOMMAND:
			return 1; // Prevent
	}
	return 0;
}