本站资源来自互联网收集发布,仅供用于学习和交流。如有侵权之处不妥,请联系站长QQ:7512117删除,敬请谅解。

提醒:第三方广告与本站无关,请各位自行判别,本站不担保。网络交易需谨慎,大资金请走咸鱼担保等 如遇欺诈或纠纷 请网址右上角投诉核实!




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

发布:678辅助网 发布时间:2018-9-4 21:01 当前分类: 常用/办公/绿化

663.png

易语言编写
直接上源码:
.版本 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)可以直接退出。
下载地址:https://pan.baidu.com/s/1697j7zdgcbS08wU8Jd5UkA




这些信息可能会帮助到你: 下载帮助 |  报毒说明 |  进站必看


修改版安卓软件,加群提示为破解者自留,与本站无关 游戏辅助过于长久无法使用。

常用/办公/绿化 -最新内容