HP-Socket 分配内存失败的解决方法

a1678131758

不晓得你们用的咋用 我找遍了论坛的DLL 感觉是模块的问题 但是现在也不好换了 几天内总会分配失败 想个折中的办法 自动重启
看代码 原理很简单 就是HOOKMessageBox

  

子程序名	返回值类型	公开	备 注
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)

HOOK都是论坛上的 随便用哪个都可以 没什么难度
感谢以下帖子提供的帮助我复制粘贴 谢谢
https://bbs.125.la/forum.php?mod ... 7&highlight=apihook
https://bbs.125.la/forum.php?mod ... =%E5%A0%86%E6%A0%88
我模块是用的这个人的 不晓得是不是他的问题,,
https://bbs.125.la/forum.php?mod ... highlight=hp%2Bsock

空竹

果心豆腐酱 发表于 2022-10-23 06:20
我之前经常出这问题，后面发现其他软件都没有这问题。一开始还以为是访问量的原因。后面对比后发现，是高级 ...

具体怎么说？最近也遇到这烦人问题

已注销571294

这个组件很多人套用

果心豆腐酱

我之前经常出这问题，后面发现其他软件都没有这问题。一开始还以为是访问量的原因。后面对比后发现，是高级表格的问题。这东西只要是线程调用就有这问题。

quary888

a1678131758 发表于 2022-9-27 09:30
老哥 你用的哪个模块啊 我去试试去

https://gitee.com/ldcsaa/HP-Socket/releases/tag/v5.8.8
hp-socket-5.8.8-other-languages.zip

蒙顺童

参数1参数1

yangdoudou

但凡我要能看懂这些，就不用易语言了

xtavoxing

也不为是一个临时的解决方法..

wyunsi1

一年没关过软件！！！

laosep123

学习进步！......

a1678131758

外星人群控 发表于 2022-9-26 15:24
我之前也遇到过,后来发现是自己写的内存操作没处理好,改好稳定运行个把月没问题 ...

或许吧 我是随机奔溃 不太好找问题 一般没访问之类的就没问题 我之前没用HP的时候也一直运行没问题的 换了HP才有这个问题