单个网卡+有多个模拟LAN网络连接时如何正确获取网卡的LAN IP?

Question

因为想使用WinSockAPI来做TCP连接,于是找到了老马封装的一个自定义控件的WSAPI模块包,在只有一个本地连接的机器上运行一切正常,但是到了有多个LAN网络连接的机器上就无法准确定位真实网卡的IP(只有一块网卡,但是安装虚拟机后会生成几个虚拟LAN连接,见下图),导致绑定LAN IP 失败,就无法进行后续操作了.里面有一个叫做: BindInternal 的过程需要用到真实网卡的IP,也就是上图中的"本地连接"的IP,但是那个包里面的: GetLocalIP 函数只能获取一个IP地址,而且不能保证是不是真实网卡的IP,于是找了个获取所有LAN连接的IP的函数来,但是还是无法区分到底那个IP才是我们需要的网卡的IP?请教各位是否有什么办法确定那个IP是网卡的?或者如何只获取真实网卡的IP?我自己找的获取所有IP的函数如下:我弱智的改了一下,将最后一个IP列表的IP输出,但是真实网卡的IP不可能每次都在最后一个....寒....Private Function GetLocIP() As String
Dim hostname As String
 Dim hostent_addr As Long
 Dim host As HOSTENT
 Dim hostip_addr As Long
 Dim temp_ip_address() As Byte
 Dim i As Integer
 Dim ip_address As String
  
     hostname = GetLocalHostName
    
      
     hostent_addr = gethostbyname(hostname)
      
     If hostent_addr = 0 Then
            GetLocIP = vbNullString
            Dim lngErrorCode As Long
            lngErrorCode = Err.LastDllError
            Err.Raise lngErrorCode, "CSocketMaster.GetLocalIP", GetErrorDescription(lngErrorCode)
            Exit Function
     End If
      
     RtlMoveMemory host, hostent_addr, LenB(host)
     RtlMoveMemory hostip_addr, host.hAddrList, 4
      
    ' MsgBox hostname
      
     'get all of the IP address if machine is multi-homed
      
     Do
         ReDim temp_ip_address(1 To host.hLength)
         RtlMoveMemory temp_ip_address(1), hostip_addr, host.hLength
         ip_address = ""
         For i = 1 To host.hLength
            ip_address = ip_address & temp_ip_address(i) & "."
         Next
         ip_address = Mid$(ip_address, 1, Len(ip_address) - 1)
          
        ' MsgBox ip_address
          
         
         host.hAddrList = host.hAddrList + LenB(host.hAddrList)
         RtlMoveMemory hostip_addr, host.hAddrList, 4
     Loop While (hostip_addr <> 0)
     GetLocIP = ip_address
End Function
下面是老马封装的WSAPI包里面的LAN IP获取函数,只获取IP列表中的第一个IP....如果真实网卡的IP不在列表第一个的话就....Private Function GetLocalIP() As String
Dim lngResult As Long
Dim lngPtrToIP As Long
Dim strLocalHost As String
Dim arrIpAddress(1 To 4) As Byte
Dim Count As Integer
Dim udtHostent As HOSTENT
Dim strIpAddress As String    strLocalHost = GetLocalHostName    lngResult = api_gethostbyname(strLocalHost)    If lngResult = 0 Then
        GetLocalIP = vbNullString
        Dim lngErrorCode As Long
        lngErrorCode = Err.LastDllError
        Err.Raise lngErrorCode, "CSocketMaster.GetLocalIP", GetErrorDescription(lngErrorCode)
    Else
        api_CopyMemory udtHostent, ByVal lngResult, LenB(udtHostent)
        api_CopyMemory lngPtrToIP, ByVal udtHostent.hAddrList, 4
        api_CopyMemory arrIpAddress(1), ByVal lngPtrToIP, 4        For Count = 1 To 4
            strIpAddress = strIpAddress & arrIpAddress(Count) & "."
        Next        strIpAddress = Left$(strIpAddress, Len(strIpAddress) - 1)
        GetLocalIP = strIpAddress
    End If
End Function老马看到的话,随便说声:紫水晶论坛服务器好象又上不去了.

Answer 1

UPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUP

Answer 2

列表出来后，对IP地址进行过滤，排除掉无用的IP。

Answer 3

同上，用GetAdaptersInfo：
给个参考代码：Option ExplicitPublic Const MAX_ADAPTER_NAME_LENGTH = 260
Public Const MAX_ADAPTER_ADDRESS_LENGTH = 8
Public Const MAX_ADAPTER_DESCRIPTION_LENGTH = 132
Public Const IP_ADAPTER_INFO_LENGTH = 640Type IP_ADDR_STRING
            Next As Long
            IpAddress As String * 16
            IpMask As String * 16
            Context As Long
End TypeType IP_ADAPTER_INFO
            Next As Long
            ComboIndex As Long
            AdapterName As String * MAX_ADAPTER_NAME_LENGTH
            Description As String * MAX_ADAPTER_DESCRIPTION_LENGTH
            AddressLength As Long
            Address(MAX_ADAPTER_ADDRESS_LENGTH - 1) As Byte
            Index As Long
            Type As Long
            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 TypePublic Declare Function GetAdaptersInfo Lib "iphlpapi.dll" (IpAdapterInfo As Any, pOutBufLen As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)Public Function LanIP() As String
    Dim AdapterInfoSize As Long
    Dim AdapterInfo As IP_ADAPTER_INFO
    Dim AdapterInfoBuffer() As Byte
    Dim ptr1 As Long
    
    AdapterInfoSize = 0
    Call GetAdaptersInfo(ByVal 0&, AdapterInfoSize)
    ReDim AdapterInfoBuffer(AdapterInfoSize - 1)
    If 0 = GetAdaptersInfo(AdapterInfoBuffer(0), AdapterInfoSize) Then
        ptr1 = VarPtr(AdapterInfoBuffer(0))
        Do While (ptr1 <> 0)
            CopyMemory AdapterInfo, ByVal ptr1, IP_ADAPTER_INFO_LENGTH
            If InStr(AdapterInfo.GatewayList.IpAddress, Chr(0)) > 6 Then
                LanIP = Left(AdapterInfo.IpAddressList.IpAddress, InStr(AdapterInfo.IpAddressList.IpAddress, Chr(0)) - 1)
            End If
            ptr1 = AdapterInfo.Next
        Loop
    End If
End Function

Answer 4

同上，用GetAdaptersInfo：
给个参考代码：Option ExplicitPublic Const MAX_ADAPTER_NAME_LENGTH = 260
Public Const MAX_ADAPTER_ADDRESS_LENGTH = 8
Public Const MAX_ADAPTER_DESCRIPTION_LENGTH = 132
Public Const IP_ADAPTER_INFO_LENGTH = 640Type IP_ADDR_STRING
            Next As Long
            IpAddress As String * 16
            IpMask As String * 16
            Context As Long
End TypeType IP_ADAPTER_INFO
            Next As Long
            ComboIndex As Long
            AdapterName As String * MAX_ADAPTER_NAME_LENGTH
            Description As String * MAX_ADAPTER_DESCRIPTION_LENGTH
            AddressLength As Long
            Address(MAX_ADAPTER_ADDRESS_LENGTH - 1) As Byte
            Index As Long
            Type As Long
            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 TypePublic Declare Function GetAdaptersInfo Lib "iphlpapi.dll" (IpAdapterInfo As Any, pOutBufLen As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)Public Function LanIP() As String
    Dim AdapterInfoSize As Long
    Dim AdapterInfo As IP_ADAPTER_INFO
    Dim AdapterInfoBuffer() As Byte
    Dim ptr1 As Long
    
    AdapterInfoSize = 0
    Call GetAdaptersInfo(ByVal 0&, AdapterInfoSize)
    ReDim AdapterInfoBuffer(AdapterInfoSize - 1)
    If 0 = GetAdaptersInfo(AdapterInfoBuffer(0), AdapterInfoSize) Then
        ptr1 = VarPtr(AdapterInfoBuffer(0))
        Do While (ptr1 <> 0)
            CopyMemory AdapterInfo, ByVal ptr1, IP_ADAPTER_INFO_LENGTH
            If InStr(AdapterInfo.GatewayList.IpAddress, Chr(0)) > 6 Then
                LanIP = Left(AdapterInfo.IpAddressList.IpAddress, InStr(AdapterInfo.IpAddressList.IpAddress, Chr(0)) - 1)
            End If
            ptr1 = AdapterInfo.Next
        Loop
    End If
End Function

Answer 5

恩，同上，判断IP_ADAPTER_INFO结构的Type属性是否为MIB_IF_TYPE_ETHERNET