易语言远程线程注入类模块

.子程序 线程注入, 整数型, 公开, [成功返回模块句柄,失败返回0]
.参数 PID
.参数 DLL路径, 文本型
.参数 参_超时时间, , 可空
.局部变量 pPath
.局部变量 ret

.如果真 (打开进程号 (PID) ＝ 假)
输出调试文本 (“[线程注入]打开进程失败”)
返回 (0)
.如果真结束
.如果真 (是否为空 (参_超时时间) ＝ 假)
设置超时时间 (参_超时时间)
.如果真结束
pPath ＝ 远程申请内存_文本 (DLL路径)
.如果真 (辅_调用DLL函数2 (“Kernel32.dll”, “LoadLibraryA”, ret, pPath) ＝ 假)
输出调试文本 (“[线程注入]调用LoadLibraryA失败”)
.如果真结束
远程释放内存 (pPath)
返回 (ret)