火山PCIATHOOK

admin

<火山程序 类型 = "通常" 版本 = 1 />

方法 _MyMsgBoxW <静态 类型 = 整数 注释 = "信息框HOOK">
参数 所有者窗口的句柄 <类型 = 变整数>
参数 显示的消息 <类型 = 变整数>
参数 对话框标题 <类型 = 变整数>
参数 按钮 <类型 = 整数>
{
    调试输出 (所有者窗口的句柄, 显示的消息, 指针到文本 (显示的消息), 对话框标题, 指针到文本 (对话框标题), 按钮)
    返回 (MsgBox.调用原函数 (MsgBox.取原函数地址 (), 整数, 所有者窗口的句柄, 取文本指针 ("我已经HOOK了原来的信息框"), 取文本指针 ("我是标题"), 0))
}

方法 按钮_被单击 <接收事件 类型 = 整数 注释 = "当按钮被单击后发送此事件">
参数 来源对象 <类型 = 按钮 注释 = "提供事件产生的具体来源对象">
参数 标记值 <类型 = 整数 注释 = "用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0.">
{
    如果 (来源对象 == 按钮2)
    {
        全局信息框 ("我是火山！", 信息框按钮.信息图标, "Tips", 本对象.取窗口句柄 ())
    }
    如果 (来源对象 == 按钮1)
    {
        MsgBox.开始HOOK ("USER32.DLL", "MessageBoxW", 取静态方法地址 (_MyMsgBoxW))

    }
    返回 (0)

}