易语言取网卡序号源码

系统结构:网络_取本机网卡列表,StrConv,网络_取网卡序号,Ansi转Unicode,GetInterfaceInfo,宽字符到双字节1_,宽字符到双字节_,取适配器序号_,MultiByteToWideChar,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _超级链接框1_鼠标左键被按下
           |  |
           |  |------ _列表框1_列表项被选择
           |  |
           |  |------ _编辑框2_放开某键
           |  |
           |  |
======程序集1
           |  |
           |  |------ 网络_取本机网卡列表
           |  |
           |  |------ StrConv
           |  |
           |  |------ 网络_取网卡序号
           |  |
           |  |------ Ansi转Unicode
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetInterfaceInfo
           |  |
           |  |---[dll]------   宽字符到双字节1_
           |  |
           |  |---[dll]------   宽字符到双字节_
           |  |
           |  |---[dll]------   取适配器序号_
           |  |
           |  |---[dll]------   MultiByteToWideChar

调用的DLL命令:

.DLL命令 GetInterfaceInfo, 整数型, "iphlpapi.dll", "GetInterfaceInfo"
    .参数 pIfTable, IP_INTERFACE_INFO
    .参数 dwOutBufLen, 整数型, 传址

.DLL命令 宽字符到双字节1_, 整数型, , "WideCharToMultiByte", , kernel32.dll
    .参数 代码页, 整数型, , CodePage
    .参数 标志, 整数型, , dwFlags
    .参数 宽字符文本, 字节集, , lpWideCharStr
    .参数 宽字符文本长度, 整数型, , cchWideChar
    .参数 双字节文本, 整数型, , lpMultiByteStr
    .参数 双字节文本长度, 整数型, , cchMultiByte
    .参数 默认文本, 整数型, , lpDefaultChar
    .参数 使用默认文本, 逻辑型, , lpUsedDefaultChar

.DLL命令 宽字符到双字节_, , , "WideCharToMultiByte", , kernel32.dll
    .参数 代码页, 整数型, , CodePage
    .参数 标志, 整数型, , dwFlags
    .参数 宽字符文本, 字节集, , lpWideCharStr
    .参数 宽字符文本长度, 整数型, , cchWideChar
    .参数 双字节文本, 字节集, , lpMultiByteStr
    .参数 双字节文本长度, 整数型, , cchMultiByte
    .参数 默认文本, 整数型, , lpDefaultChar
    .参数 使用默认文本, 逻辑型, , lpUsedDefaultChar

.DLL命令 取适配器序号_, 整数型, "Iphlpapi.dll", "GetAdapterIndex", , 返回值：成功，返回0；失败，返回错误代码。
    .参数 适配器名称, 字节集, , [输入] 指定了适配器名称的Unicode字符串
    .参数 适配器序号, 整数型, 传址, [输出] 指向一个指向适配器序号的ULONG变量指针

.DLL命令 MultiByteToWideChar, 整数型, , "MultiByteToWideChar", 公开
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpMultiByteStr, 文本型
    .参数 cchMultiByte, 整数型
    .参数 lpWideCharStr, 字节集
    .参数 cchWideChar, 整数型