防截包抓包模块工具附使用例程

.如果真 (模块信息.pid ＝ Pid)
.如果 (取公司名称 (到文本 (模块信息.模块路径)) ＝ “Microsoft Corporation”)

.否则
.如果 (到文本 (模块信息.模块路径) ＝ 取运行目录 () ＋ “\” ＋ 取执行文件名 ())

.否则
加入成员 (软件路径, “pid” ＋ 到文本 (模块信息.pid) ＋ “_句柄” ＋ 到文本 (模块信息.模块句柄) ＋ “_路径” ＋ 到文本 (模块信息.模块路径) ＋ “_”)
.如果结束

.如果结束

.如果真结束
pFound ＝ Module32Next (快照句柄, 模块信息)
.判断循环尾 ()
.如果 (取数组成员数 (软件路径) ＝ 0)

.否则
当前进程PID ＝ 0
.计次循环首 (取数组成员数 (软件路径), 索引)
.如果真 (寻找文本 (软件路径 [索引], 后缀名称, , 假) ≠ -1)
当前进程PID ＝ 到数值 (文本_取出中间文本 (软件路径 [索引], “pid”, “_”))
结束进程中DLL (当前进程PID, 文本_取出中间文本 (软件路径 [索引], “路径”, “_”))
关闭句柄 (到数值 (文本_取出中间文本 (软件路径 [索引], “句柄”, “_”)))
关闭句柄 (当前进程PID)
.如果真结束

.计次循环尾 ()