易语言API取本机IP源码

系统结构:子程序1,GetAdaptersInfo,GetPerAdapterInfo,Len_iai,len_ipai,Len_ias,取变量地址_字节集,CopyMemory_iai,CopyMemory_ipai,CopyMemory_ias,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 子程序1
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetAdaptersInfo
           |  |
           |  |---[dll]------   GetPerAdapterInfo
           |  |
           |  |---[dll]------   Len_iai
           |  |
           |  |---[dll]------   len_ipai
           |  |
           |  |---[dll]------   Len_ias
           |  |
           |  |---[dll]------   取变量地址_字节集
           |  |
           |  |---[dll]------   CopyMemory_iai
           |  |
           |  |---[dll]------   CopyMemory_ipai
           |  |
           |  |---[dll]------   CopyMemory_ias

调用的DLL命令:

.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, 整数型