易语言内存搜索工具

易语言内存搜索工具

.版本 2

.子程序 读内存数, 整数型, , ' 本源码来自三叶资源网(www.sanye.cx)
.参数 内存地址, 整数型
.参数 内存内容, 整数型, 参考 可空
.局部变量 操作句柄, 整数型
.局部变量 进程快照, 整数型
.局部变量 进程信息, PROCESSENTRY32


进程名 ＝ 组合框1.内容
进程快照 ＝ CreateToolhelp32Snapshot (#TH32CS_SNAPALL, 0)
.如果 (进程名 ＝ “”)
    信息框 (“请选择一个进程.”, #信息图标, “提示”)

.否则

.如果结束

.如果真 (进程快照 ＝ 0)
    信息框 (“创建进程快照列表失败 .”, #信息图标, “提示”)

.如果真结束
进程信息.dwSize ＝ 296  ' = len (uProcess)
进程句柄 ＝ Process32First (进程快照, 进程信息)


.判断循环首 (进程句柄 ≠ 0)
    .如果真 (寻找文本 (到文本 (进程信息.szExeFile), 进程名, , 真) ≠ -1)
        操作句柄 ＝ OpenProcess (#PROCESS_ALL_ACCESS, 0, 进程信息.th32ProcessID)
        读内存整数 (操作句柄, 内存地址, 内存内容, 4, 0)
    .如果真结束
    进程句柄 ＝ Process32Next (进程快照, 进程信息)
.判断循环尾 ()
CloseHandle (进程快照)  ' 本源码来自三叶资源网(www.sanye.cx)
返回 (内存内容)

@易语言入门教程