易语言高手进!!!

发布网友 发布时间：2022-05-23 14:25

我来回答

共4个回答

热心网友 时间：2023-10-24 22:34

.版本 2

.支持库 eAPI

.支持库 vclbase

.支持库 shellEx

.程序集 窗口程序集1

.程序集变量 隐藏显示热键, 整数型

.程序集变量 结束程序热键, 整数型

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

取程序组 ()

.子程序 取程序组

.局部变量 进程列表, 进程信息, , "0"

.局部变量 x, 整数型

组合框1.清空 ()

进程列表 ＝ 取系统进程列表 ()

.计次循环首 (取数组成员数 (进程列表), x)

    组合框1.加入项目 (进程列表 [x].进程名称, )

.计次循环尾 ()

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

.判断开始 (热键框1.键 ≠ 0 且 热键框2.键 ≠ 0)

    .判断开始 (热键框1.键 ＝ 热键框2.键 且 热键框1.功能键 ＝ 热键框2.功能键)

        信息框 (“隐藏热键不能与结束热键一样！”, #信息图标, “错误提示”)

    .默认

        .如果真 (隐藏显示热键 ≠ 0)

            撤销热键 (_启动窗口.取窗口句柄 (), 隐藏显示热键)

            撤销热键 (_启动窗口.取窗口句柄 (), 结束程序热键)

        .如果真结束

        隐藏显示热键 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 热键框1.功能键, 热键框1.键)

        结束程序热键 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 热键框2.功能键, 热键框2.键)

        按钮3.禁止 ＝ 假

    .判断结束

.默认

    信息框 (“隐藏热键或结束热键不能为空！”, #信息图标, “错误提示”)

.判断结束

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

取程序组 ()

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

.判断开始 (按钮3.标题 ＝ “自动”)

    按钮3.标题 ＝ “手动”

.默认

    按钮3.标题 ＝ “自动”

.判断结束

.子程序 _时钟1_周期事件

.局部变量 进程列表, 进程信息, , "0"

.局部变量 x, 整数型

时钟1.时钟周期 ＝ 0

进程列表 ＝ 取系统进程列表 ()

.计次循环首 (取数组成员数 (进程列表), x)

    .如果真 (到大写 (组合框1.内容) ＝ 到大写 (进程列表 [x].进程名称))

        终止进程 (进程列表 [x].进程标识符)

    .如果真结束

.计次循环尾 ()

.如果真 (按钮3.标题 ＝ “自动”)

    时钟1.时钟周期 ＝ 100

.如果真结束

.子程序 _标签1_反馈事件, 整数型

.参数 参数一, 整数型

.参数 参数二, 整数型

.判断开始 (参数一 ＝ 隐藏显示热键)

    .判断开始 (_启动窗口.可视 ＝ 真)

        _启动窗口.可视 ＝ 假

    .默认

        _启动窗口.可视 ＝ 真

    .判断结束

.判断 (参数一 ＝ 结束程序热键)

    时钟1.时钟周期 ＝ 100

.默认

.判断结束

热心网友 时间：2023-10-24 22:34

热心网友 时间：2023-10-24 22:35

密码:kb43

热心网友 时间：2023-10-24 22:36