易语言取网卡列表

在易语言中，可以通过调用Windows API函数来获取网卡列表。以下是一个示例代码，可以获取当前计算机上的所有网卡名称和MAC地址：

// 声明Windows API函数
Declare Function GetAdaptersInfo Lib "IPHLPAPI.DLL" (pAdapterInfo As Any, pOutBufLen As Long) As Long

// 定义网卡信息结构体
Type IP_ADAPTER_INFO
    Next As Long
    ComboIndex As Long
    AdapterName(0 To MAX_ADAPTER_NAME_LENGTH - 1) As Byte
    Description(0 To MAX_ADAPTER_DESCRIPTION_LENGTH - 1) As Byte
    AddressLength As Integer
    Address(0 To MAX_ADAPTER_ADDRESS_LENGTH - 1) As Byte
    Index As Long
    Type As Integer
    DhcpEnabled As Long
    CurrentIpAddress As Long
    IpAddressList As IP_ADDR_STRING
    GatewayList As IP_ADDR_STRING
    DhcpServer As IP_ADDR_STRING
    HaveWins As Byte
    PrimaryWinsServer As IP_ADDR_STRING
    SecondaryWinsServer As IP_ADDR_STRING
    LeaseObtained As Long
    LeaseExpires As Long
End Type

Type IP_ADDR_STRING
    Next As Long
    IpAddress(0 To 15) As Byte
    IpMask(0 To 15) As Byte
    Context As Long
End Type

// 获取网卡列表
Dim AdapterInfo As IP_ADAPTER_INFO
Dim dwBufLen As Long
dwBufLen = Len(AdapterInfo)
GetAdaptersInfo AdapterInfo, dwBufLen

// 遍历网卡列表，并输出网卡名称和MAC地址
While AdapterInfo.Next <> 0
    MsgBox "Adapter Name: " & StrConv(AdapterInfo.AdapterName, vbUnicode) & vbCrLf & "MAC Address: " & Hex$(AdapterInfo.Address(0)) & "-" & Hex$(AdapterInfo.Address(1)) & "-" & Hex$(AdapterInfo.Address(2)) & "-" & Hex$(AdapterInfo.Address(3)) & "-" & Hex$(AdapterInfo.Address(4)) & "-" & Hex$(AdapterInfo.Address(5))
    AdapterInfo = AdapterInfo.Next
Wend

注意，以上代码中使用了Windows API函数`GetAdaptersInfo`来获取网卡列表，需要在程序中声明该函数。同时，代码中也定义了网卡信息的结构体类型`IP_ADAPTER_INFO`和`IP_ADDR_STRING`，以便于处理返回的网卡信息。