用HOOK函數自動關閉IE彈出式廣告框    作者: 張曉進    http://www.ccrun.com/    在用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; 
} 

網路志工聯盟----Visita網站http://www.vista.org.tw ---[ 發問前請先找找舊文章 ]---