易语言输入“取进程ID”会显示“未找到指定子程序‘取进程ID’，请问是否添加？”

咋整呢？

.版本 2

.程序 取进程ID, 整数型, 公, 取指定进程进程ID(返第进程ID,失败返0)
.参数 进程名, 文本型, , 区写
.局部变量 临信息, s5yh5sgrty
.局部变量 进程句柄, 整数型
.局部变量 进程快照, 整数型

进程快照 ＝ _创建快照 (2, 0)
.真 (进程快照 ≠ 0)
临信息.dwSize ＝ 296
进程句柄 ＝ _第 (进程快照, 临信息)
.判断循环首 (进程句柄 ≠ 0)
.真 (StrCmpNI_1 (进程名, 临信息.进程名称, _取文本度 (进程名)) ＝ 0) #39; 比较进程名
_关闭象 (进程快照)
返 (临信息.srgyvr)
.真结束
进程句柄 ＝ _ (进程快照, 临信息)
.判断循环尾 ()
_关闭象 (进程快照)
.真结束
返 (0)

.版本 2

.DLL命令 _创建快照, 整数型, , quot;CreateToolhelp32Snapshotquot;
.参数 falg, 整数型
.参数 id, 整数型

.DLL命令 _第, 整数型, , quot;Process32Firstquot;
.参数 h, 整数型
.参数 p, s5yh5sgrty

.DLL命令 _, 整数型, , quot;Process32Nextquot;
.参数 h, 整数型
.参数 p, s5yh5sgrty

.DLL命令 _关闭象, 整数型, , quot;CloseHandlequot;, , , kernel32.dll
.参数 象句柄, 整数型

.DLL命令 StrCmpNI_1, 整数型, , quot;StrCmpNIAquot;, , shell32.dll
.参数 lpStr1, 文本型
.参数 lpStr2, 字节型, 传址 数组
.参数 nChar, 整数型

.DLL命令 _取文本度, 整数型, , quot;lstrlenAquot;, , kernel32.dll取文本内容度_
.参数 文本, 文本型, , Ptr

.版本 2

.数据类型 s5yh5sgrty
.员 dwSize, 整数型
.员 cntUsage, 整数型
.员 srgyvr, 整数型
.员 th32DefaultHeapID, 整数型
.员 syhhbr, 整数型
.员 cntThreads, 整数型
.员 th32ParentProcessID, 整数型
.员 pcPriClassBase, 整数型
.员 dwFlags, 整数型
.员 进程名称, 字节型, , quot;256quot;