很多时候广告窗口都很烦人,我下面为你整理了如何用HOOK函数关闭IE广告窗口的方法,希望对你有所帮助。
1、d出式广告框也是IE浏览窗口,一般来说,它是一个无菜单、无工具栏窗口。所以可以在桌面上打开一个窗口时,首先判断该窗口类型是否是“IEFrame”,接着判断IEFrame的子窗口类型“WorkerW”的`属性是否是不可见(这是一般d出式广告窗口的特征),这样就可以向该窗口发出关闭的消息,以上步骤一般能自动关闭大部分d出广告框。
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不可见,则一般是广告d出窗口
if (0 == (::GetWindowLong(hWnd, GWL_STYLE) &WS_VISIBLE))
{
bIsClosed = TRUE
break
}
break
}
else
{
bIsClosed = TRUE
}
hWnd = ::GetWindow(hWnd, GW_HWNDNEXT)
}
//若是IE广告d出窗口,则关闭
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
}
你说的是判断windows中的explorer是否打开了一个文件夹吗?如果是的话,那需要用到windows shell 编程,枚举所有的explorer窗口,判断是否打开了指定的文件夹,具体要参考vc的一些资料,访问shell的一些方法这里给出一个脚本的实现,用脚本方便一些
把下面的代码复制到文本中,改后缀为js运行,运行时最好打开几个文件夹,效果更明显
--------------------
var objShell = new ActiveXObject("Shell.Application")
var objShellWindows
objShellWindows = objShell.Windows()
if (objShellWindows != null){
for(var i=0i<objShellWindows.Counti++)
WScript.Echo(objShellWindows.Item(i).LocationURL)
}
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)