进程_取模块jz（）或者叫进程_取模块句柄2

Canada

  

子程序名	返回值类型	公开	备 注
进程_取模块jz	整数型		也就是模块的句柄
参数名	类 型	参考	可空	数组	备 注
进程id	整数型
模块名称	文本型				xxx.dll

变量名	类 型	静态	数组	备 注
hSnapshot	整数型
modEntry	精易_模块信息
ret	逻辑型

hSnapshot ＝ CreateToolhelp32Snapshot (8, 进程id)  ' TH32CS_SNAPMODULE=8
如果真 (hSnapshot ＝ -1)
返回 (0)

modEntry.size ＝ 1024  ' MODULEENTRY32结构大小
ret ＝ Module32First_bool (hSnapshot, modEntry)
判断循环首 (ret)
' 调试输出 (到文本 (modEntry.模块文件名))
如果 (到小写 (取文本左边 (到文本 (modEntry.模块文件名), 取文本长度 (模块名称))) ＝ 到小写 (模块名称))
CloseHandle (hSnapshot)
返回 (modEntry.base)
ret ＝ Module32Next_bool (hSnapshot, modEntry)

判断循环尾 ()
CloseHandle (hSnapshot)
返回 (0)

.版本 2<br /> <br /> .子程序 进程_取模块jz, 整数型, 公开, 也就是模块的句柄<br /> .参数 进程id, 整数型<br /> .参数 模块名称, 文本型, , xxx.dll<br /> .局部变量 hSnapshot, 整数型<br /> .局部变量 modEntry, 精易_模块信息<br /> .局部变量 ret, 逻辑型<br /> <br /> hSnapshot ＝ CreateToolhelp32Snapshot (8, 进程id)  ' TH32CS_SNAPMODULE=8<br /> .如果真 (hSnapshot ＝ -1)<br />     返回 (0)<br /> .如果真结束<br /> <br /> modEntry.size ＝ 1024  ' MODULEENTRY32结构大小<br /> ret ＝ Module32First_bool (hSnapshot, modEntry)<br /> .判断循环首 (ret)<br />     ' 调试输出 (到文本 (modEntry.模块文件名))<br /> <br />     .如果 (到小写 (取文本左边 (到文本 (modEntry.模块文件名), 取文本长度 (模块名称))) ＝ 到小写 (模块名称))<br />         CloseHandle (hSnapshot)<br />         返回 (modEntry.base)<br />     .否则<br />         ret ＝ Module32Next_bool (hSnapshot, modEntry)<br />     .如果结束<br /> <br /> .判断循环尾 ()<br /> CloseHandle (hSnapshot)<br /> 返回 (0)

Module32First_bool  Module32Next_bool 自己重写一份api声明返回布尔

blackmagic

停更了，还改进啥啊