易语言 求取进程模块地址的方法.

用这个 给你发个源码~

.版本 2

.子程序 GetModule, 整数型, , 返回指定进程中指定模块的模块地址

.参数 ProcessID, 整数型

.参数 模块名称, 文本型

.局部变量 hObject, 整数型

.局部变量 ModuleEntry32, 模块地址_

.局部变量 Module, 模块地址_

' 清除数组 (Module)

hObject ＝ API_CreateToolhelp32Snapshot (8, ProcessID) ' 若id为0表示当前进程

ModuleEntry32.结构大小 ＝ 1024

.如果真 (寻找第一个32位模块_ (hObject, ModuleEntry32))

.循环判断首 ()

.如果真 (到小写 (到文本 (ModuleEntry32.模块名称)) ＝ 到小写 (模块名称))

API_CloseHandle (hObject)

返回 (ModuleEntry32.模块句柄)

.如果真结束

.循环判断尾 (寻找下一个32位模块_ (hObject, ModuleEntry32))

.如果真结束

API_CloseHandle (hObject)

' 调试输出 (Module)

返回 (0)

你粘贴之后直接调用“GetModule”就可以取得了

.版本 2

.子程序 取程序路径, 文本型, 公开, 取指定进程名的程序启动路径(成功返回路径,失败或进程不存在返回空)

.参数 进程名, 文本型, , 程序进程名

.参数 区分大小写, 逻辑型, 可空, 默认不区分进程名大小写

.局部变量 进程列表, 进程信息_

.局部变量 进程数, 整数型

.局部变量 进程快照, 整数型

.局部变量 临时, 整数型

.局部变量 临时路径, 文本型

.局部变量 临时进程名, 文本型

.局部变量 snap, 整数型

.局部变量 mod, 模块信息型

进程快照 ＝ _创建快照 (15, 0)

.如果真 (进程快照 ＝ 0)

信息框 (“创建进程快照失败”, 0, )

返回 (“”)

.如果真结束

进程数 ＝ 0

进程列表.dwSize ＝ 296

临时 ＝ _第一个 (进程快照, 进程列表)

.判断循环首 (临时 ≠ 0)

进程数 ＝ 进程数 ＋ 1

snap ＝ _创建快照 (8, 进程列表.进程ID)

mod.size ＝ 1024

_第一个模块 (snap, mod)

临时路径 ＝ 取字节集数据 (到字节集 (mod.模块完整路径), 10, )

_关闭对象 (snap)

.如果真 (进程列表.进程ID ≠ 0)

临时进程名 ＝ 到文本 (进程列表.进程名称)

.如果 (区分大小写)

.如果真 (临时进程名 ＝ 进程名)

_关闭对象 (进程快照)

.如果真 (寻找文本 (临时路径, “?”, , 假) ＞ 0)

返回 (“”)

.如果真结束

返回 (临时路径)

.如果真结束

.否则

.如果真 (到小写 (临时进程名) ＝ 到小写 (进程名))

_关闭对象 (进程快照)

.如果真 (寻找文本 (临时路径, “?”, , 假) ＞ 0)

返回 (“”)

.如果真结束

返回 (临时路径)

.如果真结束

.如果结束

.如果真结束

临时 ＝ _下一个 (进程快照, 进程列表)

.判断循环尾 ()

_关闭对象 (进程快照)

返回 (“”)

'--------------------------------------DLL有什么不对说声，内容比较多好像少发了几个......(下面是DLL或者自定义数据)--------------楼主可以下载个超级模块试试，里面有取进程目录的子程序

.版本 2

.数据类型 进程信息_, , 进程信息

.成员 dwSize, 整数型

.成员 cntUsage, 整数型

.成员 进程ID, 整数型

.成员 th32DefaultHeapID, 整数型

.成员 th32ModuleID, 整数型

.成员 cntThreads, 整数型

.成员 th32ParentProcessID, 整数型

.成员 pcPriClassBase, 整数型

.成员 dwFlags, 整数型

.成员 进程名称, 字节型, , "256"

.版本 2

.数据类型 模块信息型, 公开, 进程模块信息

.成员 size, 整数型

.成员 mid, 整数型

.成员 pid, 整数型

.成员 gusage, 整数型

.成员 pusage, 整数型

.成员 base, 整数型

.成员 大小, 整数型

.成员 模块句柄, 整数型

.成员 模块文件名, 字节型, , "256"

.成员 模块完整路径, 字节型, , "256"

.版本 2

.DLL命令 _创建快照, 整数型, , "CreateToolhelp32Snapshot"

.参数 falg, 整数型

.参数 id, 整数型

---