取进程ID数组

鸭子咯咯哒

看看撒:

易语言里粘贴即可');" value="　复制代码　" class="pn pnc"/>  

数据类型名	公开	备 注
进程信息列表		公开
成员名	类 型	传址	数组	备 注

.成员 dwSize, 整数型, , , 1 // 结构大小；
.成员 cntUsage, 整数型, , , 2 // 此进程的引用计数；
.成员 进程ID, 整数型, , , 3 // 进程ID;
.成员 th32DefaultHeapID, 整数型, , , 4 // 进程默认堆ID；
.成员 th32ModuleID, 整数型, , , 5 // 进程模块ID；
.成员 cntThreads, 整数型, , , 6 // 此进程开启的线程计数
.成员 th32ParentProcessID, 整数型, , , 7 // 父进程ID；
.成员 pcPriClassBase, 整数型, , , 8 // 线程优先权；
.成员 dwFlags, 整数型, , , 9 // 保留；
.成员 进程名称, 字节型, , "256", 10 // 进程全名；

子程序名	返回值类型	公开	备 注
进程_取ID数组	整数型	√	（成功返回进程ID的数目，没有就返回0）
参数名	类 型	参考	可空	数组	备 注
进程名称	文本型				进程的名称
进程ID数组	整数型	√		√
区分大小写	逻辑型		√		默认是不区分大小写的

变量名	类 型	静态	数组	备 注
进程快照	整数型			进程快照的句柄
进程句柄	整数型
进程信息	进程信息列表			类型是自定义的数据类型

清除数组 (进程ID数组)
进程快照 ＝ CreateToolhelp32Snapshot (15, 0)
如果真 (进程快照 ＝ 0)
返回 (0)
' 初始化进程信息列表
进程信息.dwSize ＝ 1024
进程句柄 ＝ Process32First (进程快照, 进程信息)
判断 (区分大小写)
判断循环首 (进程句柄 ≠ 0)
如果真 (进程名称 ＝ 到文本 (进程信息.进程名称))
加入成员 (进程ID数组, 进程信息.进程ID)
进程句柄 ＝ Process32Next (进程快照, 进程信息)
判断循环尾 ()
判断循环首 (进程句柄 ≠ 0)
如果真 (到小写 (进程名称) ＝ 到小写 (到文本 (进程信息.进程名称)))
加入成员 (进程ID数组, 进程信息.进程ID)
进程句柄 ＝ Process32Next (进程快照, 进程信息)
判断循环尾 ()
CloseHandle (进程快照)
返回 (取数组成员数 (进程ID数组))

.版本 2<br /> <br /> .数据类型 进程信息列表, , 公开<br /> .成员 dwSize, 整数型, , , 1 // 结构大小；<br /> .成员 cntUsage, 整数型, , , 2 // 此进程的引用计数；<br /> .成员 进程ID, 整数型, , , 3 // 进程ID;<br /> .成员 th32DefaultHeapID, 整数型, , , 4 // 进程默认堆ID；<br /> .成员 th32ModuleID, 整数型, , , 5 // 进程模块ID；<br /> .成员 cntThreads, 整数型, , , 6 // 此进程开启的线程计数<br /> .成员 th32ParentProcessID, 整数型, , , 7 // 父进程ID；<br /> .成员 pcPriClassBase, 整数型, , , 8 // 线程优先权；<br /> .成员 dwFlags, 整数型, , , 9 // 保留；<br /> .成员 进程名称, 字节型, , "256", 10 // 进程全名；<br /> .版本 2<br /> <br /> .子程序 进程_取ID数组, 整数型, 公开, （成功返回进程ID的数目，没有就返回0）<br /> .参数 进程名称, 文本型, , 进程的名称<br /> .参数 进程ID数组, 整数型, 参考 数组<br /> .参数 区分大小写, 逻辑型, 可空, 默认是不区分大小写的<br /> .局部变量 进程快照, 整数型, , , 进程快照的句柄<br /> .局部变量 进程句柄, 整数型<br /> .局部变量 进程信息, 进程信息列表, , , 类型是自定义的数据类型<br /> <br /> 清除数组 (进程ID数组)<br /> 进程快照 ＝ CreateToolhelp32Snapshot (15, 0)<br /> .如果真 (进程快照 ＝ 0)<br /> 返回 (0)<br /> .如果真结束<br /> ' 初始化进程信息列表<br /> 进程信息.dwSize ＝ 1024<br /> 进程句柄 ＝ Process32First (进程快照, 进程信息)<br /> .判断开始 (区分大小写)<br /> .判断循环首 (进程句柄 ≠ 0)<br /> .如果真 (进程名称 ＝ 到文本 (进程信息.进程名称))<br /> 加入成员 (进程ID数组, 进程信息.进程ID)<br /> .如果真结束<br /> 进程句柄 ＝ Process32Next (进程快照, 进程信息)<br /> .判断循环尾 ()<br /> .默认<br /> .判断循环首 (进程句柄 ≠ 0)<br /> .如果真 (到小写 (进程名称) ＝ 到小写 (到文本 (进程信息.进程名称)))<br /> 加入成员 (进程ID数组, 进程信息.进程ID)<br /> .如果真结束<br /> 进程句柄 ＝ Process32Next (进程快照, 进程信息)<br /> .判断循环尾 ()<br /> .判断结束<br /> CloseHandle (进程快照)<br /> 返回 (取数组成员数 (进程ID数组))

联系我时，请说是在 挂海论坛 上看到的，谢谢！

七夜_