|
易语言编写 直接上源码： .版本 2 .支持库 eAPI .支持库 shellEx .程序集 窗口程序集_启动窗口 .程序集变量 F1, 整数型 .程序集变量 F2, 整数型 .程序集变量 jc, 进程信息, , "0" .程序集变量 进程个数, 整数型 .子程序 __启动窗口_创建完毕 .局部变量 js, 整数型 .局部变量 wjh1, 整数型 F1 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 7, #F1键) F2 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 7, #F2键) jc ＝ 取系统进程列表 () 进程个数 ＝ 取数组成员数 (jc) .计次循环首 (进程个数, js) 列表框2.加入项目 (jc [js].进程名称, ) .计次循环尾 () wjh1 ＝ 打开文件 (“D:\易语言\文件\禁止程序运行工具\编辑框1.TXT”, , ) .判断循环首 (取反 (是否在文件尾 (wjh1, 真))) 列表框1.加入项目 (读入一行 (wjh1), ) .判断循环尾 () 关闭所有文件 () 时钟1.时钟周期 ＝ 6000 .子程序 _时钟1_周期事件 .局部变量 i, 整数型 .局部变量 j, 整数型 .局部变量 l, 整数型 l ＝ 列表框1.取项目数 () .计次循环首 (l, i) 列表框1.现行选中项 ＝ i － 1 .计次循环首 (进程个数, j) .如果真 (jc [j].进程名称 ＝ 列表框1.取项目文本 (列表框1.现行选中项)) 终止进程 (jc [j].进程名称) .如果真结束 .计次循环尾 () .计次循环尾 () .子程序 _标签1_反馈事件, 整数型 .参数 参数一, 整数型 .参数 参数二, 整数型 .如果真 (参数一 ＝ F1) _启动窗口.可视 ＝ 取反 (_启动窗口.可视) .如果真结束 .如果真 (参数一 ＝ F2) _启动窗口.销毁 () .如果真结束 .子程序 _按钮1_被单击 列表框1.删除项目 (列表框1.现行选中项) .子程序 _按钮2_被单击 列表框2.加入项目 (列表框1.取项目文本 (列表框1.现行选中项), ) 列表框1.删除项目 (列表框1.现行选中项) .子程序 _按钮3_被单击 列表框1.加入项目 (列表框2.取项目文本 (列表框2.现行选中项), ) 列表框2.删除项目 (列表框2.现行选中项) .子程序 _按钮4_被单击 .局部变量 xms1, 整数型 .局部变量 xms2, 整数型 .局部变量 wjh1, 整数型 .局部变量 wjh2, 整数型 .局部变量 i, 整数型 .局部变量 j, 整数型 xms1 ＝ 列表框1.取项目数 () xms2 ＝ 列表框2.取项目数 () wjh1 ＝ 打开文件 (“D:\易语言\文件\禁止程序运行工具\编辑框1.TXT”, 6, ) wjh2 ＝ 打开文件 (“D:\易语言\文件\禁止程序运行工具\编辑框2.TXT”, 6, ) .计次循环首 (xms1, i) 列表框1.现行选中项 ＝ i － 1 写文本行 (wjh1, 列表框1.取项目文本 (列表框1.现行选中项)) .计次循环尾 () .计次循环首 (xms2, j) 列表框2.现行选中项 ＝ j － 1 写文本行 (wjh2, 列表框2.取项目文本 (列表框2.现行选中项)) .计次循环尾 () 关闭所有文件 () .子程序 _按钮5_被单击 列表框1.加入项目 (编辑框1.内容, ) 编辑框1.内容 ＝ “” 编辑框1.获取焦点 () .子程序 _编辑框1_按下某键, 逻辑型 .参数 键代码, 整数型 .参数 功能键状态, 整数型 .如果真 (键代码 ＝ 13) _按钮5_被单击 () .如果真结束 返回 () .子程序 _选择框1_被单击 .如果 (选择框1.选中 ＝ 真) 写注册项 (#本地机器, “software\microsoft\Windows\CurrentVersion\Run\我的启动项”, 取运行目录 () ＋ “禁止程序运行工具.exe”) .否则 删除注册项 (#本地机器, “software\microsoft\Windows\CurrentVersion\Run\我的启动项”) .如果结束 使用说明： 1.双击程序打开（程序的启动窗口默认是隐藏的，所以什么也没出现。） 2.按下（Ctrl+shift+Alt+F1）即可显示启动窗口。 注：按下（Ctrl+shift+Alt+F1）可以显示窗口，在按下（Ctrl+shift+Alt+F1）即可隐藏窗口，按下（Ctrl+shift+Alt+F2）可以直接退出。 |
