易语言断开本地网络连接源码！

如果是拨号网络连接世好的话，就只需要一个代码：

挂断 ()

一旦不需要拨号网络连接的话，就可以使用本命令断开。

----------------------------------------------------------

如果不是的话代码如下枣返液：

.版本 2

.子程序 _将所有网络连接挂断_被单击

.局部变量 枚举连接, 文本型, , "0"

.局部变量 i, 整数型

.计次循环首 (枚举所有网络连接__已连接的 (枚举连接), i)

设置本地连接 (枚举连接 [i], 假)

.计次循环尾 ()

返回 (假)

.子程序 枚举所有网络连接_已连接的, 整数型, 公开

.参数 网络连接名, 文本型, 参考 可空 数组

.局部变量 size, 整数型

.局部变量 AdapterInfo, IP_ADAPTER_INFO

.局部变量 buf, 字节集

.局部变量 addr, 整数型

.局部变量 i, 整数型

.局部变量 mac, 文本型

.局部变量 tmp, 文本凳物型

.局部变量 Addr_ip, 整数型

.局部变量 buf_ip, IP_ADDR_STRING

.局部变量 size_dns, 整数型

.局部变量 buf_dns, 字节集

.局部变量 dns, IP_PER_ADAPTER_INFO

.局部变量 addr_dns, 整数型

清除数组 (网络连接名)

GetAdaptersInfo ({ 0 }, size)

buf ＝ 取空白字节集 (size)

addr ＝ 取变量地址_字节集 (buf, buf, 0)

.如果真 (GetAdaptersInfo (buf, size) ＝ 0)

.循环判断首 ()

CopyMemory_iai (AdapterInfo, addr, 640)

加入成员 (网络连接名, 取文本注册项 (4, “SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}\” ＋ 到文本 (AdapterInfo.AdapterName) ＋ “\Connection\Name”, ))

addr ＝ AdapterInfo.Next

.循环判断尾 (addr ≠ 0)

.如果真结束

返回 (取数组成员数 (网络连接名))

.版本 2

.DLL命令 GetAdaptersInfo, 整数型, "IPHlpApi"

.参数 IpAdapterInfo, 字节集

.参数 pOutBufLen, 整数型, 传址

.DLL命令 GetPerAdapterInfo, 整数型, "IPHlpApi"

.参数 IfIndex, 整数型

.参数 pPerAdapterInfo, 字节集

.参数 pOutBufLen, 整数型, 传址

.DLL命令 Len_iai, 整数型, "kernel32", "LocalSize"

.参数 hMem, IP_ADAPTER_INFO, 传址

.DLL命令 len_ipai, 整数型, , "LocalSize"

.参数 hMem, IP_PER_ADAPTER_INFO, 传址

.DLL命令 Len_ias, 整数型, "kernel32", "LocalSize"

.参数 hMem, IP_ADDR_STRING, 传址

.DLL命令 取变量地址_字节集, 整数型, , "lstrcpynA"

.参数 变量, 字节集, 传址

.参数 变量, 字节集, 传址

.参数 保留, 整数型, , 0

.DLL命令 CopyMemory_iai, , "kernel32", "RtlMoveMemory"

.参数 Destination, IP_ADAPTER_INFO, 传址

.参数 Source, 整数型

.参数 Length, 整数型

.DLL命令 CopyMemory_ipai, , "kernel32", "RtlMoveMemory"

.参数 Destination, IP_PER_ADAPTER_INFO, 传址

.参数 Source, 整数型

.参数 Length, 整数型

.DLL命令 CopyMemory_ias, , "kernel32", "RtlMoveMemory"

.参数 Destination, IP_ADDR_STRING, 传址

.参数 Source, IP_ADDR_STRING

.参数 Length, 整数型

.版本 2

.数据类型 IP_ADAPTER_INFO

.成员 Next, 整数型

.成员 ComboIndex, 整数型

.成员 AdapterName, 字节型, , "260", 名称

.成员 Description, 字节型, , "132", 描述

.成员 AddressLength, 整数型

.成员 Address, 字节型, , "8"

.成员 Index, 整数型

.成员 Type, 整数型, , , 类型

.成员 DhcpEnabled, 整数型

.成员 CurrentIpAddress, 整数型

.成员 IpAddressList, IP_ADDR_STRING

.成员 GatewayList, IP_ADDR_STRING

.成员 DhcpServer, IP_ADDR_STRING

.成员 HaveWins, 逻辑型

.成员 PrimaryWinsServer, IP_ADDR_STRING

.成员 SecondaryWinsServer, IP_ADDR_STRING

.成员 LeaseObtained, 整数型

.成员 LeaseExpires, 整数型

.数据类型 IP_ADDR_STRING

.成员 Next, 整数型

.成员 IpAddress, 字节型, , "16", IP_ADDRESS_STRING

.成员 IpMask, 字节型, , "16", IP_MASK_STRING=IP_ADDRESS_STRING

.成员 Context, 整数型

.数据类型 IP_PER_ADAPTER_INFO

.成员 tmp, 整数型, , "3"

.成员 CurrentDnsServer, IP_ADDR_STRING

.成员 DnsServerList, IP_ADDR_STRING

包你解决，启用和禁用本地连接的代码，附上一句：其实有时我们编程脑筋要会急转弯，实现某些功能可以调用系统来做，那才省事。呵呵，这里假设你的连接名为“本地连接”请看代码：（需用到系 *** 作统界面功能支持库PB版，百度一下，很容易下载到的）.版本

2

.支持库

PBShell.子程序

_按钮1禁用_被单击槐槐执行

(,

“netsh

interface

set

interface

name=”

＋

#引号

＋

“本宽消地连接铅巧友”

＋

#引号

＋

“

admin=disable”,

,

).子程序

_按钮2启用_被单击执行

(,

“netsh

interface

set

interface

name=”

＋

#引号

＋

“本地连接”

＋

#引号

＋

“

admin=enable”,

,

)

---