精易论坛

标题: 求助一款不需要路由器可以断网的断网器源码 [打印本页]
作者: baisheng001    时间: 2012-10-9 00:10
标题: 求助一款不需要路由器可以断网的断网器源码
求助一款不需要路由器可以断网的断网器源码 急急急 谢谢
作者: 萧阳天    时间: 2012-10-9 12:12
  1. .版本 2
  2. .支持库 spec
  3. .支持库 eAPI

  5. .程序集 窗口程序集1

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

  9. 调试输出 (“萧阳天  微博：http://t.qq.com/xiaoyang2662  2012-10-9”)
  10. 调试输出 (“新建500人API交流群：92757016  欢迎大家一起学习！”)


  13. .子程序 _按钮1_被单击

  15. 调试输出 (网络_禁用网卡 ())


  18. .子程序 _按钮2_被单击

  20. 调试输出 (网络_恢复网卡 ())


  23. .子程序 _超级链接框1_鼠标左键被按下, 逻辑型
  24. .参数 横向位置, 整数型
  25. .参数 纵向位置, 整数型
  26. .参数 功能键状态, 整数型

  28. 打开指定网址 (“http://bbs.eyuyan.com/read.php?tid=315336”)

复制代码
‘不想下载可直接复制以下代码到易语言；
源码下载地址：http://www.3600gz.cn/thread-133101-1-1.html
  1. .版本 2

  3. .程序集 程序集1

  5. .子程序 网络_禁用网卡, 逻辑型, 公开, 禁止本机网络连接，成功返回真，失败返回假，注：安全软件会拦截！

  7. 返回 (禁用与恢复网卡 (1))

  9. .子程序 网络_恢复网卡, 逻辑型, 公开, 恢复禁止的网络连接，成功返回真，失败返回假。

  11. 返回 (禁用与恢复网卡 (2))

  13. .子程序 禁用与恢复网卡, 逻辑型, , 1、禁用本地网卡  2、恢复本地网卡
  14. .参数 类型, 整数型
  15. .局部变量 i, 整数型
  16. .局部变量 lOut, 整数型
  17. .局部变量 lNum, 整数型
  18. .局部变量 III, IP_INTERFACE_INFO, , "0"

  20. i ＝ GetInterfaceInfo (III, lOut)  ' 查询所需内存
  21. 重定义数组 (III, 假, lOut － 1)
  22. i ＝ GetInterfaceInfo (III, lOut)
  23. .如果真 (i ≠ 0)  ' #NO_ERROR
  24.     信息框 (“获取适配器信息失败!”, 0, )
  25.     返回 (假)
  26. .如果真结束
  27. 拷贝内存_网卡数量 (lNum, III, 4)  ' 把IP_INTERFACE_INFO 数据拷贝到一个指针变量返回网卡数量
  28. .' 计次循环首 (lNum, i)
  29.     ' 调试输出 (“index:”, 到文本 (III [1].Adapter [i].Index))  ' 获取网卡ID
  30. .' 计次循环尾 ()
  31. .判断开始 (类型 ＝ 1)
  32.     lOut ＝ IpReleaseAddress (III [1].Adapter [1])  ' 禁用第一个网卡
  33. .判断 (类型 ＝ 2)
  34.     lOut ＝ IpRenewAddress (III [1].Adapter [1])  ' 恢复第一个网卡
  35. .默认
  36.     返回 (假)
  37. .判断结束
  38. 返回 (lOut ＝ 0)

复制代码
  1. .版本 2

  3. .数据类型 IP_ADAPTER_INDEX_MAP
  4.     .成员 Index, 整数型
  5.     .成员 wsName, 字节型, , "256"

  7. .数据类型 IP_INTERFACE_INFO
  8.     .成员 NumAdapters, 整数型
  9.     .成员 Adapter, IP_ADAPTER_INDEX_MAP, , "255"
复制代码
  1. .版本 2

  3. .DLL命令 拷贝内存_网卡数量, 整数型, "kernel32", "RtlMoveMemory", , RtlMoveMemory
  4.     .参数 目标数据地址, 整数型, 传址, lpvDest
  5.     .参数 源数据, IP_INTERFACE_INFO, 传址 数组, lpvSource
  6.     .参数 尺寸, 整数型, , cbCopy

  8. .DLL命令 IpReleaseAddress, 整数型, "IPHLPAPI.DLL", "IpReleaseAddress"
  9.     .参数 AdapterInfo, IP_ADAPTER_INDEX_MAP

  11. .DLL命令 IpRenewAddress, 整数型, "IPHLPAPI.DLL", "IpRenewAddress"
  12.     .参数 AdapterInfo, IP_ADAPTER_INDEX_MAP

  14. .DLL命令 GetInterfaceInfo, 整数型, "IPHLPAPI.DLL", "GetInterfaceInfo"
  15.     .参数 pIfTable, IP_INTERFACE_INFO, 数组
  16.     .参数 dwOutBufLen, 整数型, 传址
复制代码
作者: chaijizhu    时间: 2025-4-6 02:47
白嫖？啊哈哈哈   



欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4