精易皮肤模块.关于信息框的显示问题.

Mr.Yang

修复前↑

修复后↑

skinsharp官方也好久没更新了 信息框一直存在问题 下方会保持默认配色.前天看到一个帖子是关于这个问题的 就打算试一下能不能修复.

hook MessageBoxA+SetWindowsHook 取窗口句柄.然后SkinH_Map 5002.

  

窗口程序集名	保 留	保 留	备 注
HOOK
变量名	类 型	数组	备 注
函数地址	整数型
原来属性	整数型
新地址	字节集
旧地址	字节集
钩子句柄	整数型
Map地址	整数型

子程序名	返回值类型	公开	备 注
ApiHook_安装	逻辑型
参数名	类 型	参考	可空	数组	备 注
addr	整数型

Map地址 ＝ addr
函数地址 ＝ GetProcAddress (GetModuleHandleA (“user32.dll”), “MessageBoxA”)  ' 获取API函数地址
如果真 (函数地址 ＝ 0)
返回 (假)
VirtualProtect (函数地址, 8, 64, 原来属性)  ' 把内存块设置为可读写
新地址 ＝ { 184 } ＋ 到字节集 (&NewMessageBox) ＋ { 255, 224 }  ' 生成新地址
旧地址 ＝ 指针到字节集 (函数地址, 8)  ' 保存旧地址
写到内存 (新地址, 函数地址, 8)  ' 开启拦截
返回 (真)

子程序名	返回值类型	公开	备 注
ApiHook_卸载

写到内存 (旧地址, 函数地址, 8)  ' 关闭拦截
VirtualProtect (函数地址, 8, 32, 原来属性)  ' 把内存块设置为只读

子程序名	返回值类型	公开	备 注
NewMessageBox	整数型
参数名	类 型	参考	可空	数组	备 注
hwnd	整数型
lpText	文本型
lpCaption	文本型
wtype	整数型

变量名	类 型	静态	数组	备 注
ret	整数型

写到内存 (旧地址, 函数地址, 8)  ' 关闭拦截
钩子句柄 ＝ SetWindowsHookExA (5, 到整数 (&钩子), 0, GetCurrentThreadId ())  ' 创建钩子
ret ＝ MessageBoxA (hwnd, lpText, lpCaption, wtype)  ' 重新调用MessageBox
写到内存 (新地址, 函数地址, 8)  ' 开启拦截
返回 (ret)

子程序名	返回值类型	公开	备 注
钩子	整数型
参数名	类 型	参考	可空	数组	备 注
nCode	整数型
wParam	整数型
lParam	整数型

如果真 (nCode ＝ 5 且 wParam ≠ 0)
内存_Call (Map地址, wParam, 5002)
UnhookWindowsHookEx (钩子句柄)
CallNextHookEx (钩子句柄, nCode, wParam, lParam)
返回 (0)

.版本 2<br /> <br /> .程序集 HOOK<br /> .程序集变量 函数地址, 整数型<br /> .程序集变量 原来属性, 整数型<br /> .程序集变量 新地址, 字节集<br /> .程序集变量 旧地址, 字节集<br /> .程序集变量 钩子句柄, 整数型<br /> .程序集变量 Map地址, 整数型<br /> <br /> .子程序 ApiHook_安装, 逻辑型<br /> .参数 addr, 整数型<br /> <br /> Map地址 ＝ addr<br /> 函数地址 ＝ GetProcAddress (GetModuleHandleA (“user32.dll”), “MessageBoxA”)  ' 获取API函数地址<br /> .如果真 (函数地址 ＝ 0)<br />     返回 (假)<br /> .如果真结束<br /> VirtualProtect (函数地址, 8, 64, 原来属性)  ' 把内存块设置为可读写<br /> 新地址 ＝ { 184 } ＋ 到字节集 (&NewMessageBox) ＋ { 255, 224 }  ' 生成新地址<br /> 旧地址 ＝ 指针到字节集 (函数地址, 8)  ' 保存旧地址<br /> 写到内存 (新地址, 函数地址, 8)  ' 开启拦截<br /> 返回 (真)<br /> <br /> .子程序 ApiHook_卸载<br /> <br /> 写到内存 (旧地址, 函数地址, 8)  ' 关闭拦截<br /> VirtualProtect (函数地址, 8, 32, 原来属性)  ' 把内存块设置为只读<br /> <br /> .子程序 NewMessageBox, 整数型<br /> .参数 hwnd, 整数型<br /> .参数 lpText, 文本型<br /> .参数 lpCaption, 文本型<br /> .参数 wtype, 整数型<br /> .局部变量 ret, 整数型<br /> <br /> 写到内存 (旧地址, 函数地址, 8)  ' 关闭拦截<br /> 钩子句柄 ＝ SetWindowsHookExA (5, 到整数 (&钩子), 0, GetCurrentThreadId ())  ' 创建钩子<br /> ret ＝ MessageBoxA (hwnd, lpText, lpCaption, wtype)  ' 重新调用MessageBox<br /> 写到内存 (新地址, 函数地址, 8)  ' 开启拦截<br /> 返回 (ret)<br /> <br /> .子程序 钩子, 整数型<br /> .参数 nCode, 整数型<br /> .参数 wParam, 整数型<br /> .参数 lParam, 整数型<br /> <br /> .如果真 (nCode ＝ 5 且 wParam ≠ 0)<br />     内存_Call (Map地址, wParam, 5002)<br />     UnhookWindowsHookEx (钩子句柄)<br /> .如果真结束<br /> CallNextHookEx (钩子句柄, nCode, wParam, lParam)<br /> 返回 (0)

ˉExcuses°恋左

支持开源，能教教怎么用吗？照搬也搞不定 还是原来的那样  内存call也找不到在哪

zhangdixiu

太顶了