在用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;
}
