HP-Socket 分配内存失败的解决方法 - 精易论坛

子程序名	返回值类型	公开	备注
my_MessageBoxA	整数型
参数名	类型	参考	可空	数组	备注
hWnd	整数型				窗口句柄
lpText	文本型				提示内容
lpCaption	文本型				提示标题
uType	整数型				提示图标和按钮类型

变量名	类型	静态	数组	备注
回溯	整数型
count	整数型
i	整数型
BaseAddress	整数型
ModuleHnadle	整数型
ModuleName	文本型
输出	文本型
输出文本内容	文本型
文件路径	文本型
文件号	整数型

ApiHook.StopHook ()
' MessageBoxA (hWnd, lpText, lpCaption, uType)
回溯＝申请内存 (32, 真)
count ＝ Call_ (RtlWalkFrameChain_, 回溯, 32, 0)
' 信息框 (count, 0, , )
输出文本内容＝ #换行符＋ #换行符
输出文本内容＝输出文本内容＋到文本 (时间_格式化2 (取现行时间 ())) ＋ #换行符＋ “层数：” ＋到文本 (count)

计次循环首 (count, i)

BaseAddress ＝ Read (回溯 �� (i － 1) × 4)

取模块句柄 (GetCurrentProcess (), BaseAddress, ModuleHnadle, ModuleName)

输出＝取空白文本 (255)

Call_ (wsprintfA_, 取文本指针 (输出), 取文本指针 (“%s + %08X”), 取文本指针 (ModuleName), 选择 (ModuleName ＝ “??”, BaseAddress, BaseAddress － ModuleHnadle))

输出文本内容＝输出文本内容＋输出＋ #换行符

计次循环尾 ()
文件路径＝取运行目录 () ＋ “\MessageBoxA_堆栈.txt”

如果真 (文件是否存在 (文件路径) ＝假)

写到文件 (文件路径, { })
文件号＝打开文件 (文件路径, , )
移到文件尾 (文件号)
写文本行 (文件号, 输出文本内容)
关闭文件 (文件号)
程序_重启 ()
' 信息框 (输出文本内容, 0, , )
' 恢复HOOK
ApiHook.BeginHook ()
返回 (0)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br />
.支持库 spec<br />
<br />
.子程序 my_MessageBoxA, 整数型<br />
.参数 hWnd, 整数型, , 窗口句柄<br />
.参数 lpText, 文本型, , 提示内容<br />
.参数 lpCaption, 文本型, , 提示标题<br />
.参数 uType, 整数型, , 提示图标和按钮类型<br />
.局部变量 回溯, 整数型<br />
.局部变量 count, 整数型<br />
.局部变量 i, 整数型<br />
.局部变量 BaseAddress, 整数型<br />
.局部变量 ModuleHnadle, 整数型<br />
.局部变量 ModuleName, 文本型<br />
.局部变量 输出, 文本型<br />
.局部变量 输出文本内容, 文本型<br />
.局部变量 文件路径, 文本型<br />
.局部变量 文件号, 整数型<br />
<br />
ApiHook.StopHook ()<br />
<br />
' MessageBoxA (hWnd, lpText, lpCaption, uType)<br />
<br />
回溯 ＝ 申请内存 (32, 真)<br />
count ＝ Call_ (RtlWalkFrameChain_, 回溯, 32, 0)<br />
' 信息框 (count, 0, , )<br />
输出文本内容 ＝ #换行符 ＋ #换行符<br />
输出文本内容 ＝ 输出文本内容 ＋ 到文本 (时间_格式化2 (取现行时间 ())) ＋ #换行符 ＋ “层数：” ＋ 到文本 (count)<br />
.计次循环首 (count, i)<br />
    BaseAddress ＝ Read (回溯 ＋ (i － 1) × 4)<br />
    取模块句柄 (GetCurrentProcess (), BaseAddress, ModuleHnadle, ModuleName)<br />
    输出 ＝ 取空白文本 (255)<br />
    Call_ (wsprintfA_, 取文本指针 (输出), 取文本指针 (“%s + %08X”), 取文本指针 (ModuleName), 选择 (ModuleName ＝ “??”, BaseAddress, BaseAddress － ModuleHnadle))<br />
    输出文本内容 ＝ 输出文本内容 ＋ 输出 ＋ #换行符<br />
.计次循环尾 ()<br />
<br />
文件路径 ＝ 取运行目录 () ＋ “\MessageBoxA_堆栈.txt”<br />
.如果真 (文件是否存在 (文件路径) ＝ 假)<br />
    写到文件 (文件路径, {  })<br />
.如果真结束<br />
文件号 ＝ 打开文件 (文件路径, , )<br />
移到文件尾 (文件号)<br />
写文本行 (文件号, 输出文本内容)<br />
关闭文件 (文件号)<br />
<br />
程序_重启 ()<br />
<br />
' 信息框 (输出文本内容, 0, , )<br />
<br />
' 恢复HOOK<br />
ApiHook.BeginHook ()<br />
返回 (0)