.版本 2
.局部变量 Pid, 整数型
Pid ＝ 取进程ID (“studentmain.exe”)
运行 (“cmd /c ntsd /p ” ＋ Pid, 假, )
.版本 2
.子程序 取进程ID, 整数型, 公开, 取指定进程的进程ID(返回第一个进程ID,失败返回0)
.参数 进程名, 文本型, , 区分大小写
.局部变量 临时信息, 进程信息_
.局部变量 进程句柄, 整数型
.局部变量 进程快照, 整数型
进程快照 ＝ _创建快照 (#TH32CS_SNAPPROCESS, 0)
.如果真 (进程快照 ≠ 0)
临时信息.dwSize ＝ 296
进程句柄 ＝ _第一个 (进程快照, 临时信息)
.判断循环首 (进程句柄 ≠ 0)
.如果真 (StrCmpNI_1 (进程名, 临时信息.进程名称, 取文本长度 (进程名)) ＝ 0) ' 比较进程名
_关闭对象 (进程快照)
返回 (临时信息.进程ID)
.如果真结束
进程句柄 ＝ _下一个 (进程快照, 临时信息)
.判断循环尾 ()
_关闭对象 (进程快照)
.如果真结束
返回 (0)
.版本 2
.常量 TH32CS_SNAPPROCESS, "2"
.版本 2
.DLL命令 _创建快照, 整数型, , "CreateToolhelp32Snapshot"
.参数 falg, 整数型
.参数 id, 整数型
.DLL命令 _第一个, 整数型, , "Process32First"
.参数 h, 整数型
.参数 p, 进程信息_
.DLL命令 _下一个, 整数型, , "Process32Next"
.参数 h, 整数型
.参数 p, 进程信息_
.DLL命令 StrCmpNI_1, 整数型, , "StrCmpNIA", , shell32.dll
.参数 lpStr1, 文本型
.参数 lpStr2, 字节型, 传址 数组
.参数 nChar, 整数型
.DLL命令 _关闭对象, 整数型, , "CloseHandle", 公开, kernel32.dll
.参数 对象句柄, 整数型
追问能不能保存下来发给我
追答建议:你把这个内容直接复制到易程序里面就可以了
如果留你的邮箱,也可以发给你
追问[email protected]
追答注意查收邮件,如果没问题的放,给个满意答案,谢谢