第2个回答 推荐于2017-10-14
.版本 2
.子程序 取进程ID, 整数型, 公开, 取指定进程的进程ID(返回第一个进程ID,失败返回0)
.参数 进程名, 文本型, , 区分大小写
.局部变量 临时信息, s5yh5sgrty
.局部变量 进程句柄, 整数型
.局部变量 进程快照, 整数型
进程快照 = _创建快照 (2, 0)
.如果真 (进程快照 ≠ 0)
临时信息.dwSize = 296
进程句柄 = _第一个 (进程快照, 临时信息)
.判断循环首 (进程句柄 ≠ 0)
.如果真 (StrCmpNI_1 (进程名, 临时信息.进程名称, _取文本长度 (进程名)) = 0) ' 比较进程名
_关闭对象 (进程快照)
返回 (临时信息.srgyvr)
.如果真结束
进程句柄 = _下一个 (进程快照, 临时信息)
.判断循环尾 ()
_关闭对象 (进程快照)
.如果真结束
返回 (0)
.版本 2
.DLL命令 _创建快照, 整数型, , "CreateToolhelp32Snapshot"
.参数 falg, 整数型
.参数 id, 整数型
.版本 2
.DLL命令 _第一个, 整数型, , "Process32First"
.参数 h, 整数型
.参数 p, s5yh5sgrty
.DLL命令 _下一个, 整数型, , "Process32Next"
.参数 h, 整数型
.参数 p, s5yh5sgrty
.版本 2
.DLL命令 StrCmpNI_1, 整数型, , "StrCmpNIA", , shell32.dll
.参数 lpStr1, 文本型
.参数 lpStr2, 字节型, 传址 数组
.参数 nChar, 整数型
.版本 2
.DLL命令 _关闭对象, 整数型, , "CloseHandle", 公开, kernel32.dll
.参数 对象句柄, 整数型
.版本 2
.数据类型 s5yh5sgrty
.成员 dwSize, 整数型
.成员 cntUsage, 整数型
.成员 srgyvr, 整数型
.成员 th32DefaultHeapID, 整数型
.成员 syhhbr, 整数型
.成员 cntThreads, 整数型
.成员 th32ParentProcessID, 整数型
.成员 pcPriClassBase, 整数型
.成员 dwFlags, 整数型
.成员 进程名称, 字节型, , "256"
源码取自超级模块本回答被提问者采纳