易语言结束进程源码.e

【实例简介】易语言结束进程源码.e
【实例截图】
【核心代码】.版本 2

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

枚举进程_ ()
' 本源码来自三叶资源网(www.sanye.cx)

.子程序 取线程信息
.参数 PID, 整数型
.局部变量 快照句柄
.局部变量 线程类型, THREADENTRY32
.局部变量 First
.局部变量 数量


快照句柄 ＝ 取创建32位帮助工具快照_ (#TH32CS_SNAPTHREAD, 0)
线程类型.dwSize ＝ sizeof2 (线程类型)
' 本源码来自三叶资源网(www.sanye.cx)
First ＝ API_Thread32First (快照句柄, 线程类型)
.判断循环首 (First ≠ 0)
    .如果真 (PID ＝ 线程类型.所属进程标示符)
        数量 ＝ 数量 ＋ 1
        列表框2.加入项目 (到文本 (线程类型.线程标示符), 线程类型.线程标示符)
    .如果真结束
    First ＝ API_Thread32Next (快照句柄, 线程类型)
.判断循环尾 ()
分组框2.标题 ＝ “进程线程(” ＋ 到文本 (数量) ＋ “)”
关闭句柄_ (快照句柄)

.子程序 枚举进程_
.局部变量 快照句柄
.局部变量 进程类型, LPPROCESSENTRY32
.局部变量 First
.局部变量 数量

列表框1.清空 ()
快照句柄 ＝ 取创建32位帮助工具快照_ (#TH32CS_SNAPPROCESS, 0)
进程类型.类型大小 ＝ sizeof (进程类型)
First ＝ API_Process32First (快照句柄, 进程类型)
.判断循环首 (First ≠ 0)
    数量 ＝ 数量 ＋ 1
    列表框1.加入项目 (到文本 (进程类型.进程名称), 进程类型.进程标识符)
    ' 进程类型.线程数
    First ＝ API_Process32Next (快照句柄, 进程类型)
    ' 本源码来自三叶资源网(www.sanye.cx)
.判断循环尾 ()
分组框3.标题 ＝ “进程(” ＋ 到文本 (数量) ＋ “)”
关闭句柄_ (快照句柄)


.子程序 _按钮1_被单击
.局部变量 线程标示符

.如果真 (信息框 (“你确定关闭本线程吗？这有可能造成进程的退出！请慎重！”, #询问图标 ＋ #确认取消钮, ) ≠ 0)
    返回 ()
.如果真结束
线程标示符 ＝ 列表框2.取项目数值 (列表框2.现行选中项)
.如果真 (线程标示符 ≤ 0)
    信息框 (“请选择线程”, #错误图标, “错误”)
    返回 ()
.如果真结束
.如果 (关闭进程线程 (线程标示符))
    信息框 (“成功结束线程！”, #信息图标, “成功”)
.否则
    ' 本源码来自三叶资源网(www.sanye.cx)
    信息框 (“结束线程失败！”, #错误图标, “失败”)
.如果结束

_列表框1_列表项被选择 ()

.子程序 _列表框1_列表项被选择
.局部变量 PID

列表框2.清空 ()
PID ＝ 列表框1.取项目数值 (列表框1.现行选中项)
取线程信息 (PID)

.子程序 _按钮2_被单击

枚举进程_ ()
' 本源码来自三叶资源网(www.sanye.cx)

.子程序 关闭进程线程, 逻辑型
.参数 线程标示符
.局部变量 线程句柄

线程句柄 ＝ OpenThread (2032639, 0, 线程标示符)  ' 2  获取线程句柄 THREAD_ALL_ACCESS  2032639
返回 (关闭线程_ (线程句柄, 0) ≠ 0)