求助一款不需要路由器可以断网的断网器源码

baisheng001

求助一款不需要路由器可以断网的断网器源码 急急急 谢谢

萧阳天

1. .版本 2
   
2. .支持库 spec
   
3. .支持库 eAPI
   
4. 
   
5. .程序集 窗口程序集1
   
6. 
   
7. .子程序 __启动窗口_创建完毕
   
8. 
   
9. 调试输出 (“萧阳天  微博：http://t.qq.com/xiaoyang2662  2012-10-9”)
   
10. 调试输出 (“新建500人API交流群：92757016  欢迎大家一起学习！”)
    
11. 
    
12. 
    
13. .子程序 _按钮1_被单击
    
14. 
    
15. 调试输出 (网络_禁用网卡 ())
    
16. 
    
17. 
    
18. .子程序 _按钮2_被单击
    
19. 
    
20. 调试输出 (网络_恢复网卡 ())
    
21. 
    
22. 
    
23. .子程序 _超级链接框1_鼠标左键被按下, 逻辑型
    
24. .参数 横向位置, 整数型
    
25. .参数 纵向位置, 整数型
    
26. .参数 功能键状态, 整数型
    
27. 
    
28. 打开指定网址 (“http://bbs.eyuyan.com/read.php?tid=315336”)
    
29. 
    

复制代码

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

1. .版本 2
   
2. 
   
3. .程序集 程序集1
   
4. 
   
5. .子程序 网络_禁用网卡, 逻辑型, 公开, 禁止本机网络连接，成功返回真，失败返回假，注：安全软件会拦截！
   
6. 
   
7. 返回 (禁用与恢复网卡 (1))
   
8. 
   
9. .子程序 网络_恢复网卡, 逻辑型, 公开, 恢复禁止的网络连接，成功返回真，失败返回假。
   
10. 
    
11. 返回 (禁用与恢复网卡 (2))
    
12. 
    
13. .子程序 禁用与恢复网卡, 逻辑型, , 1、禁用本地网卡  2、恢复本地网卡
    
14. .参数 类型, 整数型
    
15. .局部变量 i, 整数型
    
16. .局部变量 lOut, 整数型
    
17. .局部变量 lNum, 整数型
    
18. .局部变量 III, IP_INTERFACE_INFO, , "0"
    
19. 
    
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)
    
39. 
    

复制代码

1. .版本 2
   
2. 
   
3. .数据类型 IP_ADAPTER_INDEX_MAP
   
4.     .成员 Index, 整数型
   
5.     .成员 wsName, 字节型, , "256"
   
6. 
   
7. .数据类型 IP_INTERFACE_INFO
   
8.     .成员 NumAdapters, 整数型
   
9.     .成员 Adapter, IP_ADAPTER_INDEX_MAP, , "255"
   

复制代码

1. .版本 2
   
2. 
   
3. .DLL命令 拷贝内存_网卡数量, 整数型, "kernel32", "RtlMoveMemory", , RtlMoveMemory
   
4.     .参数 目标数据地址, 整数型, 传址, lpvDest
   
5.     .参数 源数据, IP_INTERFACE_INFO, 传址 数组, lpvSource
   
6.     .参数 尺寸, 整数型, , cbCopy
   
7. 
   
8. .DLL命令 IpReleaseAddress, 整数型, "IPHLPAPI.DLL", "IpReleaseAddress"
   
9.     .参数 AdapterInfo, IP_ADAPTER_INDEX_MAP
   
10. 
    
11. .DLL命令 IpRenewAddress, 整数型, "IPHLPAPI.DLL", "IpRenewAddress"
    
12.     .参数 AdapterInfo, IP_ADAPTER_INDEX_MAP
    
13. 
    
14. .DLL命令 GetInterfaceInfo, 整数型, "IPHLPAPI.DLL", "GetInterfaceInfo"
    
15.     .参数 pIfTable, IP_INTERFACE_INFO, 数组
    
16.     .参数 dwOutBufLen, 整数型, 传址
    

复制代码