在好例子网,分享、交流、成长!
您当前所在位置:首页Others 开发实例一般编程问题 → 易语言结束进程源码.e

易语言结束进程源码.e

一般编程问题

下载此实例
  • 开发语言:Others
  • 实例大小:0.15M
  • 下载次数:6
  • 浏览次数:449
  • 发布时间:2019-12-07
  • 实例类别:一般编程问题
  • 发 布 人:hmb1971
  • 文件格式:.e
  • 所需积分:2
 相关标签: 易语言 源码 语言 进程

实例介绍

【实例简介】易语言结束进程源码.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)


网友评论

发表评论

(您的评论需要经过审核才能显示)

查看所有0条评论>>

小贴士

感谢您为本站写下的评论,您的评论对其它用户来说具有重要的参考价值,所以请认真填写。

  • 类似“顶”、“沙发”之类没有营养的文字,对勤劳贡献的楼主来说是令人沮丧的反馈信息。
  • 相信您也不想看到一排文字/表情墙,所以请不要反馈意义不大的重复字符,也请尽量不要纯表情的回复。
  • 提问之前请再仔细看一遍楼主的说明,或许是您遗漏了。
  • 请勿到处挖坑绊人、招贴广告。既占空间让人厌烦,又没人会搭理,于人于己都无利。

关于好例子网

本站旨在为广大IT学习爱好者提供一个非营利性互相学习交流分享平台。本站所有资源都可以被免费获取学习研究。本站资源来自网友分享,对搜索内容的合法性不具有预见性、识别性、控制性,仅供学习研究,请务必在下载后24小时内给予删除,不得用于其他任何用途,否则后果自负。基于互联网的特殊性,平台无法对用户传输的作品、信息、内容的权属或合法性、安全性、合规性、真实性、科学性、完整权、有效性等进行实质审查;无论平台是否已进行审查,用户均应自行承担因其传输的作品、信息、内容而可能或已经产生的侵权或权属纠纷等法律责任。本站所有资源不代表本站的观点或立场,基于网友分享,根据中国法律《信息网络传播权保护条例》第二十二与二十三条之规定,若资源存在侵权或相关问题请联系本站客服人员,点此联系我们。关于更多版权及免责申明参见 版权及免责申明

;
报警