内存遍历工具 (虚表)

ctry78985

内存遍历工具  (虚表-实现)
易语言内存遍历工具：新手也能上手的内存操作小帮手想做简单的内存数据查找或分析，但又觉得其他编程语言门槛太高？用易语言做个内存遍历工具，其实没想象中那么难！
一、为啥用易语言做内存遍历？

• 上手快：易语言用中文编程，代码逻辑直观，就算是编程新手，也能快速理解内存读取、遍历的核心步骤。
• [资源多：网上有大量易语言内存操作的模块（比如精易模块），直接调用现成命令，不用重复造轮子。
• 轻量化：做好的工具体积小，运行流畅，适合做个人使用的小工具，比如游戏数据查看、本地软件内存分析等。
• 不用追求复杂，先实现基础又实用的功能：
• 进程选择：添加下拉框或列表，让用户能选择要遍历的目标进程（用精易模块的 “进程_取列表” 就能实现）。
• 内存范围设置：让用户输入起始地址和结束地址，或直接选择 “遍历全部内存区域”，避免无意义的资源消耗。
• 数据类型匹配：支持常见的整数型、文本型、浮点型等，用户想找什么类型的数据，直接勾选对应选项。
• 结果显示：用列表框展示遍历到的内存地址、对应数据，方便用户查看和导出
  

[/attach

  

子程序名	返回值类型	公开	备 注
_虚表_过滤表项
参数名	类 型	参考	可空	数组	备 注
项目指针	整数型				用“列表框项目 ＝ 指针到列表框项目 (项目指针)”取出内容
标题指针	整数型				用“写到内存 (新标题, 标题指针, )”这样写入内容

变量名	类 型	静态	数组	备 注
项目	超级列表框项目

项目 ＝ 指针到列表框项目 (项目指针)
' 调试输出 (项目.表项索引)
' 这里通过“子项索引”来判断是哪一列
如果真 (取数组成员数 (全局_过滤成员) ＝ 0)
返回 ()
如果真 (监视 ＝ 真)
更新监视数组 (项目.表项索引 ＋ 1)
判断 (项目.子项索引 ＝ 0)
写到内存 (到文本 (全局_过滤成员 [项目.表项索引 ＋ 1].地址表达式), 标题指针, )  ' id延时 (2000)
判断 (项目.子项索引 ＝ 1)
写到内存 (到文本 (全局_过滤成员 [项目.表项索引 ＋ 1].字节型), 标题指针, )
判断 (项目.子项索引 ＝ 2)
写到内存 (到文本 (全局_过滤成员 [项目.表项索引 ＋ 1].短整数型), 标题指针, )
判断 (项目.子项索引 ＝ 3)
写到内存 (到文本 (全局_过滤成员 [项目.表项索引 ＋ 1].整数型), 标题指针, )
判断 (项目.子项索引 ＝ 4)
写到内存 (到文本 (全局_过滤成员 [项目.表项索引 ＋ 1].长整数型), 标题指针, )
判断 (项目.子项索引 ＝ 5)
写到内存 (到文本 (全局_过滤成员 [项目.表项索引 ＋ 1].小数型), 标题指针, )
判断 (项目.子项索引 ＝ 6)
写到内存 (到文本 (全局_过滤成员 [项目.表项索引 ＋ 1].双精度小数型), 标题指针, )
判断 (项目.子项索引 ＝ 7)
写到内存 (全局_过滤成员 [项目.表项索引 ＋ 1].文本型, 标题指针, )
判断 (项目.子项索引 ＝ 8)
写到内存 (全局_过滤成员 [项目.表项索引 ＋ 1].U文本型, 标题指针, )

子程序名	返回值类型	公开	备 注
_按钮_显示结果_被单击

如果真 (是否已遍历 ＝ 假)
返回 ()
虚表初始化 ()
虚表.置表项数 (条数)
虚表.事件_填充表项 (&_虚表_填充表项)
当前显示的数组 ＝ 1

子程序名	返回值类型	公开	备 注
_按钮_显示过滤_被单击

如果真 (是否已过滤 ＝ 假)
返回 ()

虚表初始化 ()
虚表.置表项数 (取数组成员数 (全局_过滤成员))
虚表.事件_填充表项 (&_虚表_过滤表项)
当前显示的数组 ＝ 2

.版本 2<br /> <br /> .子程序 _虚表_过滤表项<br /> .参数 项目指针, 整数型, , 用“列表框项目 ＝ 指针到列表框项目 (项目指针)”取出内容<br /> .参数 标题指针, 整数型, , 用“写到内存 (新标题, 标题指针, )”这样写入内容<br /> .局部变量 项目, 超级列表框项目<br /> <br /> 项目 ＝ 指针到列表框项目 (项目指针)<br /> ' 调试输出 (项目.表项索引)<br /> ' 这里通过“子项索引”来判断是哪一列<br /> .如果真 (取数组成员数 (全局_过滤成员) ＝ 0)<br />     返回 ()<br /> .如果真结束<br /> .如果真 (监视 ＝ 真)<br />     更新监视数组 (项目.表项索引 ＋ 1)<br /> .如果真结束<br /> .判断开始 (项目.子项索引 ＝ 0)<br />     写到内存 (到文本 (全局_过滤成员 [项目.表项索引 ＋ 1].地址表达式), 标题指针, )  ' id延时 (2000)<br /> .判断 (项目.子项索引 ＝ 1)<br />     写到内存 (到文本 (全局_过滤成员 [项目.表项索引 ＋ 1].字节型), 标题指针, )<br /> .判断 (项目.子项索引 ＝ 2)<br />     写到内存 (到文本 (全局_过滤成员 [项目.表项索引 ＋ 1].短整数型), 标题指针, )<br /> .判断 (项目.子项索引 ＝ 3)<br />     写到内存 (到文本 (全局_过滤成员 [项目.表项索引 ＋ 1].整数型), 标题指针, )<br /> .判断 (项目.子项索引 ＝ 4)<br />     写到内存 (到文本 (全局_过滤成员 [项目.表项索引 ＋ 1].长整数型), 标题指针, )<br /> .判断 (项目.子项索引 ＝ 5)<br />     写到内存 (到文本 (全局_过滤成员 [项目.表项索引 ＋ 1].小数型), 标题指针, )<br /> .判断 (项目.子项索引 ＝ 6)<br />     写到内存 (到文本 (全局_过滤成员 [项目.表项索引 ＋ 1].双精度小数型), 标题指针, )<br /> .判断 (项目.子项索引 ＝ 7)<br />     写到内存 (全局_过滤成员 [项目.表项索引 ＋ 1].文本型, 标题指针, )<br /> .判断 (项目.子项索引 ＝ 8)<br />     写到内存 (全局_过滤成员 [项目.表项索引 ＋ 1].U文本型, 标题指针, )<br /> .默认<br /> <br /> .判断结束<br /> <br /> .子程序 _按钮_显示结果_被单击<br /> <br /> .如果真 (是否已遍历 ＝ 假)<br />     返回 ()<br /> .如果真结束<br /> 虚表初始化 ()<br /> 虚表.置表项数 (条数)<br /> 虚表.事件_填充表项 (&_虚表_填充表项)<br /> 当前显示的数组 ＝ 1<br /> <br /> .子程序 _按钮_显示过滤_被单击<br /> <br /> .如果真 (是否已过滤 ＝ 假)<br />     返回 ()<br /> .如果真结束<br /> <br /> 虚表初始化 ()<br /> 虚表.置表项数 (取数组成员数 (全局_过滤成员))<br /> 虚表.事件_填充表项 (&_虚表_过滤表项)<br /> 当前显示的数组 ＝ 2

]

白了个白呀

支持开源~！感谢分享

xmtian

感谢分享。

KKX2507

6666666666666

ss5921

[vSpear] 虚表操作模块1.8.2 不闪屏 不卡顿

黄杰

感谢分享！！！

huazhen88

试试看有没有数据

十一夜

顶..............................  顶..............................

xxf221

66666666666666666666666666666666666666

wengjun168

666666666666