SetWindowLongPtrA 崩溃问题 - 递归火山软件开发平台

<火山程序类型 = "通常" 版本 = 1 />
方法启动方法 <公开类型 = 整数>
{
主窗口对象.创建主窗口 ()
全局.进程ID = 进程_取自进程ID_GetCurrentProcessId ()
调试输出 ("进程ID", 全局.进程ID)
全局.窗口句柄 = 窗口操作类.进程_ID取窗口句柄 (全局.进程ID, , , , )
调试输出 ("全局.窗口句柄", 全局.窗口句柄)
全局.hook句柄 = SetWindowLongPtrW (全局.窗口句柄, -4, 取静态方法地址 (NewLong))
调试输出 ("全局.hook句柄", 全局.hook句柄)
变量要转换的字节集 <类型 = 字节集类>
变量结果指针 <类型 = 变整数>
要转换的字节集 = 文本到字节集 ("______TLKJGJFDZB")
调试输出 ("要转换的字节集", 要转换的字节集)
结果指针 = 要转换的字节集.取字节集指针 ()
调试输出 ("结果指针", 结果指针)
全局.通信句柄 = RegisterWindowMessageA (结果指针)
调试输出 ("全局.通信句柄", 全局.通信句柄)
// SendMessageA (全局.窗口句柄, 全局.通信句柄, -1, 0)
返回 (1)
}
方法 NewLong <静态类型 = 整数>
参数窗口句柄 <类型 = 变整数>
参数消息值 <类型 = 整数>
参数参数一 <类型 = 整数>
参数参数二 <类型 = 整数>
{
如果真 (消息值 == 257)
{
调试输出 ("按键A", 参数一)
如果真 (参数一 == 36 || 参数一 == 33)
{
调试输出 ("按键", 参数一)
全局.分控窗口.可视 = 取反 (全局.分控窗口.可视)
}
}
如果真 (消息值 == 全局.通信句柄)
{
如果真 (参数一 == -1)
{
调试输出 ("创建窗口")
}
}
返回 ((整数)CallWindowProcW (全局.hook句柄, 窗口句柄, 消息值, 参数一, 参数二))
}

复制代码