禁止程序运行工具可以恶搞防止玩游戏

jfa2008

易语言编写
直接上源码：
.版本 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\我的启动项”)

10255991839[下载].rar

2024-6-12 10:25 上传

文件大小: 未知
下载次数: 0