易语言调用ESPI11.dll实现禁止指定程序访问网络的代码

拦截指定程序联网的代码

.版本 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.关闭 ()

运行结果：

总结

以上就是这篇文章的全部内容了，希望本文的内容对大家的学习或者工作具有一定的参考学习价值，谢谢大家对呐喊教程的支持。如果你想了解更多相关内容请查看下面相关链接

声明：本文内容来源于网络，版权归原作者所有，内容由互联网用户自发贡献自行上传，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任。如果您发现有涉嫌版权的内容，欢迎发送邮件至：notice#nhooo.com（发邮件时，请将#更换为@）进行举报，并提供相关证据，一经查实，本站将立刻删除涉嫌侵权内容。