类_内存

Tian_

类_内存  建议支持 通配符?? 搜索

子程序名	返回值类型	公开	备 注
搜索	整数型		某些情况，需提升权限(返回结果数目,失败返回0)
参数名	类 型	参考	可空	数组	备 注
进程ID	整数型				进程ID
搜索内容	字节集				欲搜索的内容 其他类型-需自行转换为字节集类型
结果数组	整数型				用来保存搜索的结果

变量名	类 型	静态	数组	备 注
长度	整数型
操作句柄	整数型
内存地址	整数型
内存块信息	精易_内存属性
数据缓冲区	字节集
读取结果	逻辑型
找到地址	整数型

清除数组 (结果数组)
长度 ＝ 取字节集长度 (搜索内容)
操作句柄 ＝ OpenProcess ( #PROCESS_ALL_ACCESS, 0, 进程ID) ' 取得操作句柄
判断循环首 (VirtualQueryEx (操作句柄, 内存地址, 内存块信息, 28) ≠ 0) ' 取得内存块信息
如果真 (内存块信息.当前属性 ≠ 16 且 内存块信息.当前属性 ≠ 1 且 内存块信息.当前属性 ≠ 512) ' 判断保护状态
数据缓冲区 ＝ 取空白字节集 (内存块信息.区域长度)
读取结果 ＝ ReadProcessMemory (操作句柄, 内存地址, 数据缓冲区, 内存块信息.区域长度, 0)
判断循环首 (读取结果 ≠ 假)
找到地址 ＝ 寻找字节集 (数据缓冲区, 搜索内容, 找到地址) ' 查找是否有要搜索的数据
如果 (找到地址 ＝ -1) ' 跳出 进行下次循环
跳出循环 ()

加入成员 (结果数组, 到数值 (内存地址 ＋ 找到地址 － 1))
找到地址 ＝ 找到地址 ＋ 长度
判断循环尾 ()
内存地址 ＝ 内存地址 ＋ 内存块信息.区域长度 ' 搜索下一内存块
处理事件 ()
判断循环尾 ()
CloseHandle (操作句柄)
返回 (取数组成员数 (结果数组))