易语言简单的方法取网卡信息

.版本 2
.支持库 iext
.支持库 RegEx

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕
.局部变量 文件号
.局部变量 netinfo, 文本型
.局部变量 连接名称, 文本型, , "0"
.局部变量 网卡名称, 文本型, , "0"
.局部变量 MAC地址, 文本型, , "0"
.局部变量 i
.局部变量 sy

删除文件 (“C:\NETWORK”)
运行 (“CMD /c GETMAC /V /FO LIST>>C:\NETWORK”, 真, 1)
文件号 ＝ 打开文件 (“C:\NETWORK”, , )
netinfo ＝ 读入文本 (文件号, )
关闭文件 (文件号)
取数据 (netinfo, “连接名:”, “网络适配器:”, 连接名称)
取数据 (netinfo, “网络适配器:”, “物理地址:”, 网卡名称)
取数据 (netinfo, “物理地址:”, “传输名称:”, MAC地址)
' 调试输出 (连接名称, 网卡名称, MAC地址)
.计次循环首 (取数组成员数 (连接名称), i)
    sy ＝ 超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (sy, 0, 删首尾空 (连接名称 [i]))
    超级列表框1.置标题 (sy, 1, 删首尾空 (网卡名称 [i]))
    超级列表框1.置标题 (sy, 2, 删首尾空 (MAC地址 [i]))
.计次循环尾 ()

.子程序 取数据, 整数型
.参数 原文本, 文本型
.参数 左边文本, 文本型
.参数 右边文本, 文本型
.参数 返回数组, 文本型, 参考 可空 数组
.局部变量 正则, 正则表达式
.局部变量 搜索结果, 搜索结果, , "0"
.局部变量 i, 整数型

正则.创建 (“(?<=\Q” ＋ 左边文本 ＋ “E).*?(?=\Q” ＋ 右边文本 ＋ “E)”, )
搜索结果 ＝ 正则.搜索全部 (原文本)
.如果真 (取数组成员数 (搜索结果) ＝ 0)
    返回 (0)
.如果真结束
清除数组 (返回数组)
.计次循环首 (取数组成员数 (搜索结果), i)
    加入成员 (返回数组, 搜索结果 [i].取匹配文本 (原文本, ))
.计次循环尾 ()
返回 (取数组成员数 (返回数组))

@何必太在意