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

 更新时间:2018年11月28日 08:29:49   作者:易语言源码贝贝吧  
今天小编就为大家分享一篇关于易语言调用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.关闭 ()

运行结果:

总结

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

相关文章

  • 易语言读写配置项命令详解

    易语言读写配置项命令详解

    在本文里我们给学习易语言的朋友们整理了一篇关于易语言读写配置项命令的相关内容,有兴趣的学习下。
    2019-01-01
  • 易语言设置在画板中绘图的画笔颜色

    易语言设置在画板中绘图的画笔颜色

    今天小编就为大家分享一篇关于易语言设置在画板中绘图的画笔颜色,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随小编来看看吧
    2018-11-11
  • 易语言设置时钟周期与周期事件实现运行或停止时钟的方法

    易语言设置时钟周期与周期事件实现运行或停止时钟的方法

    今天小编就为大家分享一篇关于易语言设置时钟周期与周期事件实现运行或停止时钟的方法,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随小编来看看吧
    2018-11-11
  • 易语言的找字、找图实例

    易语言的找字、找图实例

    在本篇文章中我们给大家分享了关于易语言找字、找图的实例代码内容,有需要的朋友们可以参考下。
    2018-11-11
  • 易语言桌面写字软件介绍

    易语言桌面写字软件介绍

    在本篇文章中小编给大家分享了关于易语言桌面写字软件制作相关知识点,有兴趣的朋友们学习下。
    2019-01-01
  • 易语言做软件的实例教学

    易语言做软件的实例教学

    在本篇文章里小编给大家分享了关于易语言做软件的实例教学以及相关内容,需要的朋友们可以学习下。
    2019-02-02
  • 易语言通过枚举密码进行破解rar压缩包文件的代码

    易语言通过枚举密码进行破解rar压缩包文件的代码

    今天小编就为大家分享一篇关于易语言通过枚举密码进行破解rar压缩包文件的代码,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随小编来看看吧
    2018-11-11
  • 详解易语言字符命令

    详解易语言字符命令

    在本篇文章里我们给大家分享了关于易语言字符命令等相关知识点,有需要的朋友们学习下。
    2019-01-01
  • 易语言限制编辑框只能输入中文的方法

    易语言限制编辑框只能输入中文的方法

    今天小编就为大家分享一篇关于易语言限制编辑框只能输入中文的方法,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随小编来看看吧
    2018-11-11
  • 易语言操作EDB数据库的方法

    易语言操作EDB数据库的方法

    在本篇内容里小编给各位分享了关于易语言操作EDB数据库的方法和教学,对此有需要的朋友们可以学习下。
    2019-01-01

最新评论