易语言一键获取电脑网卡序号

.子程序 网络_取网卡序号, 整数型, 公开, 获取指定名称的网卡序号，成功返回序号值，失败返回0，常见错误代码为2，系统找不到指定文件！
.参数 网卡名称, 文本型
.局部变量 Unicode, 字节集
.局部变量 Ulong, 长整数型
.局部变量 ret, 整数型

Unicode ＝ Ansi转Unicode (“\DEVICE\TCPIP_” ＋ 网卡名称) ' 加网卡全名\DEVICE\TCPIP_ 不然系统不认
ret ＝ 取适配器序号_ (Unicode, Ulong)

.子程序 网络_取本机网卡列表, 整数型, 公开, 取得本地计算机的网卡列表。失败返回空。本命令为初级命令。
.参数 网卡名称, 文本型, 可空 数组, 返回网卡名称
.局部变量 pIfTable, IP_INTERFACE_INFO
.局部变量 dwOutBufLen, 整数型
.局部变量 r, 整数型
.局部变量 i, 整数型
.局部变量 Text, 文本型

r ＝ GetInterfaceInfo (pIfTable, dwOutBufLen) ' 查询所需内存
r ＝ GetInterfaceInfo (pIfTable, dwOutBufLen)
.如果真 (r ≠ 0)
信息框 (“获取网络适配器失败!”, 0, )
返回 (0)
.如果真结束
.计次循环首 (pIfTable.NumAdapters, i)
Text ＝ StrConv (到字节集 (pIfTable.Adapter [i].Name))
Text ＝ 取文本右边 (Text, 取文本长度 (Text) － 倒找文本 (Text, “{”, , 假) ＋ 1)
加入成员 (网卡名称, Text)
.计次循环尾 ()
返回 (取数组成员数 (网卡名称))
' 取网卡名称和描述还有一种是注册表方法； HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards