易语言如何取自身进程ID 和 句柄?
易语言如何取自身进程ID和句柄?不使用模块,只使用易语言自身命令或API……如果使用API函数,请常细写出如何调用…谢谢!...
易语言如何取自身进程ID 和 句柄?不使用模块,只使用易语言自身命令或API……如果使用API函数,请常细写出如何调用…谢谢!
展开
4个回答
展开全部
.版本 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"
源码取自超级模块
.子程序 取进程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"
源码取自超级模块
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询