用HOOK函数自动关闭IE广告窗口

　　在用IE浏览某些网站的时候，网站主页会弹出一些广告网页。所以每当打开这样的网页时，总得手动关闭广告页，感觉比较麻烦。那么，是否可以编写程序来判定打开的网页是否是弹出广告，然后自动关闭这些广告，避免每次手动关闭弹出窗口的麻烦？在一些报刊上介绍了某些解决方法，以下就通过钩子(HOOK)函数截获消息的方法进行讨论：

1、弹出式广告框也是IE浏览窗口，一般来说，它是一个无菜单、无工具栏窗口。所以可以在桌面上打开一个窗口时，首先判定该窗口类型是否是“IEFrame”，接着判定IEFrame的子窗口类型“WorkerW”的属性是否是不可见（这是一般弹出式广告窗口的特征），这样就可以向该窗口发出关闭的消息，以上步骤一般能自动关闭大部分弹出广告框。

2、通过WINDOWS编程中的钩子(HOOK)函数解决截获在桌面上打开窗口的消息。钩子函数的基本原理就是对WINDOWS系统的某些动作注册，当发生这些事件时首先调用预先设置的回调函数，回调函数处理后，再由原来的函数处理。这里回调函数的作用正是实现1中叙述的功能。因为这里实现的钩子函数是监视其它进程窗口产生的消息，所以必须用动态链接库实现。

主要代码如下：

在动态链接库中，实现钩子回调函数。

LRESULT CALLBACK CallWndProc(

int nCode, // hook code

WPARAM wParam, // current-process flag

LPARAM lParam // address of strUCture with message data

)

{

CWPSTRUCT *pCwp = NULL;

CString strClassName;

HWND hWnd = NULL;

unsigned long ulStyle = 0;

BOOL bIsClosed = FALSE;

if (nCode < 0)

{

return CallNextHookEx(gHook, nCode, wParam, lParam);

}

if (NULL != lParam)

{

pCwp = (CWPSTRUCT *)lParam;

if (WM_SHOWWINDOW == pCwp->message)

{

::GetClassName(pCwp->hwnd, strClassName.GetBufferSetLength(128), 128);

//IE窗口的类型为IEFrame

if (0 == strClassName.CompareNoCase("IEFrame"))

{

hWnd = ::GetWindow(pCwp->hwnd, GW_CHILD);

if (NULL == hWnd)

{

bIsClosed = TRUE;

}

while (NULL != hWnd)

{

::GetClassName(hWnd, strClassName.GetBufferSetLength(127), 127);

//IEFrame的子窗口包含窗口类型WorkerW

if (0 == strClassName.CompareNoCase("WorkerW"))

{

//若WorkerW不可见，则一般是广告弹出窗口

if (0 == (::GetWindowLong(hWnd, GWL_STYLE) & WS_VISIBLE))

{

bIsClosed = TRUE;

break;

}

break;

}

else

{

bIsClosed = TRUE;

}

hWnd = ::GetWindow(hWnd, GW_HWNDNEXT);

}

//若是IE广告弹出窗口，则关闭

if (TRUE == bIsClosed)

{

::PostMessage(pCwp->hwnd, WM_CLOSE, 0, 0);

}

}

}

}

return CallNextHookEx(gHook, nCode, wParam, lParam);

}

在主程序中，调用DLL中的CallWndProc。

//获得动态链接库句柄

HINSTANCE hmodHook = GetModuleHandle("CloseWndDll.dll");

if (NULL == hmodHook)

{

return TRUE;

}

//设置钩子函数

if (NULL == gHook)

{

gHook = SetWindowsHookEx(WH_CALLWNDPROC,

(HOOKPROC)GetProcAddress(hmodHook, "CallWndProc"), hmodHook, 0);

}

主程序退出时，注重调用钩子卸载函数。

//卸载钩子函数

if (NULL != gHook)

{

UnhookWindowsHookEx(gHook);

gHook = NULL;

}