易语言添加与删除IP源码

系统结构:网络_添加IP地址,网络_删除IP地址,取适配器信息_,IP地址映射表_,删除一个IP地址_,添加一个IP地址_,Len_IpAddr,网络通讯到网络地址_,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |
======程序集1
           |  |
           |  |------ 网络_添加IP地址
           |  |
           |  |------ 网络_删除IP地址
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   取适配器信息_
           |  |
           |  |---[dll]------   IP地址映射表_
           |  |
           |  |---[dll]------   删除一个IP地址_
           |  |
           |  |---[dll]------   添加一个IP地址_
           |  |
           |  |---[dll]------   Len_IpAddr
           |  |
           |  |---[dll]------   网络通讯到网络地址_

调用的DLL命令:

.DLL命令 取适配器信息_, 整数型, "IPHlpApi.dll", "GetAdaptersInfo"
    .参数 IpAdapterInfo, IP_ADAPTER_INFO, 数组, Any
    .参数 pOutBufLen, 整数型, 传址

.DLL命令 IP地址映射表_, 整数型, "IPHlpApi", "GetIpAddrTable"
    .参数 pIPAdrTable, MIB_IPADDRTABLE
    .参数 pdwSize, 整数型, 传址
    .参数 Sort, 逻辑型

.DLL命令 删除一个IP地址_, 整数型, "IPHLPAPI.DLL", "DeleteIPAddress"
    .参数 NTEContext, 整数型

.DLL命令 添加一个IP地址_, 整数型, "IPHLPAPI.DLL", "AddIPAddress"
    .参数 Address, 整数型
    .参数 IpMask, 整数型
    .参数 IfIndex, 整数型
    .参数 NTEContext, 整数型, 传址
    .参数 NTEInstance, 整数型, 传址

.DLL命令 Len_IpAddr, 整数型, "kernel32", "GlobalSize", , 返回全局内存块大小
    .参数 hMem, MIB_IPADDRTABLE

.DLL命令 网络通讯到网络地址_, 整数型, "ws2_32.dll", "inet_addr"
    .参数 文本, 文本型, , cp