易语言禁止服务器,禁止指定程序联网易语言源码

.版本 2

.支持库 eNetIntercept

.支持库 eAPI

.程序集 拦截指定进程联网

.程序集变量 被拦截进程名, 文本型

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

.局部变量 a, 网络服务安装

.局部变量 b, 系统信息

被拦截进程名 ＝ “被拦截.EXE”

.如果真 (a.是否已安装 () ＝ 假)

取系统信息 (b)

写到文件 (b.系统目录 ＋ “\ESPI11.dll”, #服务文件)

a.安装 (b.系统目录 ＋ “\ESPI11.dll”)

.如果真结束

.如果真 (网截1.打开 () ＝ 假)

信息框 (“获取失败”, 0, )

.如果真结束

网截1.打开 ()

编辑框1.是否允许多行 ＝ 真

编辑框1.滚动条 ＝ 2

.子程序 _网截1_调创建套接字, 整数型

.参数 调用者信息, 调用者信息, 参考

.参数 地址族, 整数型, 参考

.参数 格式, 整数型, 参考

.参数 协议, 整数型, 参考

.局部变量 N, 文本型

N ＝ 到大写 (取文本右边 (调用者信息.取进程名 (), 取文本长度 (调用者信息.取进程名 ()) － 倒找文本 (调用者信息.取进程名 (), “\”, , 假)))

.如果真 (N ＝ 被拦截进程名)

编辑框1.加入文本 (到文本 (取分钟 (取现行时间 ())) ＋ “：” ＋ 到文本 (取秒 (取现行时间 ())) ＋ “ 愚蠢的【” ＋ N ＋ “】一次又一次的自寻死路 结果却毫无意义” ＋ #换行符)

返回 (#拦截操作.关闭连接)

.如果真结束

.子程序 __启动窗口_将被销毁

网截1.关闭 ()

@剩下我de孩子气

文件下载

解压密码：

来源：三叶资源网，欢迎分享，公众号：iisanye，(三叶资源网⑤群：21414575)