<火山程序 类型 = "通常" 版本 = 1 />
方法 系统消息钩子类_拦截到窗口消息 <接收事件 类型 = 整数 注释 = "安装窗口消息钩子触发的事件." 返回值注释 = " 返回0表示将该消息向后继续传递到该窗口的原处理函数,返回1表示将该消息" 返回值注释 = "拦截不再进行后续处理,返回-1表示将该消息传递到Windows系统默认窗口消息" 返回值注释 = "处理函数而不是该窗口的原处理函数." 折叠> 参数 来源对象 <类型 = 系统消息钩子类 注释 = "提供事件产生的具体来源对象"> 参数 标记值 <类型 = 整数 注释 = "用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0."> 参数 窗口句柄 <类型 = 变整数 注释 = "消息所对应的窗口句柄值"> 参数 消息值 <类型 = 整数 注释 = "消息ID值"> 参数 参数一 <类型 = 变整数 注释 = "消息所携带参数一"> 参数 参数二 <类型 = 变整数 注释 = "消息所携带参数二"> { 信息框_ ("接收到消息:" + 到文本 (消息值)) // 调试信息
如果 (消息值 == 0x0002 || 消息值 == 0x0010 || 消息值 == 0x0112 || 参数一 == 0xF060) { 信息框_ ("拦截到关闭消息,准备退出程序") 返回 (1) // 拦截消息,不再进行后续处理 } 返回 (0) // 继续传递消息 }
方法 获取窗口句柄及安装钩子 <公开 静态 注释 = "获取指定窗口句柄并安装消息钩子" 折叠> { 信息框_ ("开始执行获取窗口句柄及安装钩子方法") 信息框_ ("5秒后获取") 延时 (5000) // 获取窗口句柄 Cclase句柄 = 窗口_取窗口组件句柄 (, "Cclase", , ) 信息框_ ("窗口_取窗口组件句柄 执行完毕") 如果 (CCLWindowClass句柄 != 0) { 信息框_ ("找到窗口句柄:" + 到文本 (Cclase)) // 将句柄转换为文本型 消息钩子 = 新建对象 (系统消息钩子类) 信息框_ ("系统消息钩子类对象创建成功") // 安装窗口消息钩子 变量 安装结果 <类型 = 逻辑型> 信息框_ ("准备调用安装窗口消息钩子方法,传入句柄: " + 到文本 (Cclase句柄)) 安装结果 = 消息钩子.安装窗口消息钩子 (Cclase句柄) 信息框_ ("安装窗口消息钩子方法调用完毕,返回值为:" + 到文本 (安装结果)) 如果 (安装结果) { 信息框_ ("窗口消息钩子安装成功") // 消息钩子.添加窗口过滤消息 (0x0002) // WM_CLOSE // 消息钩子.添加窗口过滤消息 (0x0010) // WM_QUERYENDSESSION // 消息钩子.添加窗口过滤消息 (0x0112) // WM_SYSCOMMAND // 信息框_ ("窗口消息钩子安装又成功了") } 否则 { 信息框_ ("窗口消息钩子安装失败") } } 否则 { 信息框_ ("未找到窗口句柄") } 信息框_ ("获取窗口句柄及安装钩子方法执行结束") }
大佬们,qiuqiu了。我用这个这个函数为啥收不到信息啊 也换过别的函数,比如挂接事件,还有那个窗口子类化等 好像都收不到消息。。。 这是写的一个DLL的文件,因为是依附主程序的,每次主程序的时候 这个DLL的 任务图标都结束不了,尝试在dll写窗口 销毁 没有效果,于是想着写钩子 捕获主程序的关闭 目前收到信息框 信息框_ ("获取窗口句柄及安装钩子方法执行结束") 信息框安装成功,但是收不到回调任何的消息 因为是DLL没办法调试 抱歉 信息框安装成功,但是收不到任何的消息 句柄没有问题这个测试好多次了 安装结果返回值是1
代码用的火山系统消息钩子类
希望知道的大佬指教一下 感激!!!!!
|