双网卡或多网卡情况下获得所有的IP地址

在编写基于sock的网络程序时，有时需枚举系统中绑定的所有IP地址，在一般控件无法解决些问题的情况下，可使用如下方法一试：

一、基于winsock的方法，例程如下（修改自网上一个名为“GetIP”的程序源码）：

// GetIP.cpp : Defines the entry point for the console application.// 修改：大漠 2005.12.26

#include "stdafx.h"#include <stdio.h> #include <winsock.h> #include <windows.h> #include <string.h>

void main() {  struct hostent *thishost;  struct in_addr in;  char MYName[80];  char *Ptr;  WORD wVersionRequested;  WSADATA wsaData;  int err;     int i,n;  //循环变量

 wVersionRequested=MAKEWORD(2, 0);    //设置winsock版本 err = WSAStartup(wVersionRequested, &wsaData);  //启用winsock支持（增加winsock引用计数） if(err != 0)  {  exit(0); }  gethostname(MYName, 80);    //取得主机名 thishost = gethostbyname(MYName);    //取得主机的信息（IP等） memset((void *)&in, sizeof(in), 0);   //取得循环次数（IP地址数） n=strlen(*thishost->h_addr_list);    n=n/2;

 for(i=0;i<n;i++) {  in.s_addr = *((unsigned long *)thishost->h_addr_list[i]);   Ptr = inet_ntoa(in);         printf("IP地址%d：%s",i+1,Ptr); }

 WSACleanup();    //卸载winsock动态库（减少引用计数）}

二、使用“IP助手”

以下为引用自帖子：“VB 用WINSOCK 如何获取多网卡的IP ”http://community.csdn.net/Expert/topic/4167/4167590.xml?temp=.3412592

界面上直接一个text1，记得设置可以换行Option Explicit

' 侦测目前设备上所使用的 IP 地址

' 设定在您的计算机上，最多可能使用 5 组 IP 地址，并且用来产生缓冲区Private Const MAX_IP = 10

Private Type IPINFO    dwAddr As Long              ' IP 地址    dwNICIndex As Long          ' NIC 界面索引    dwSubnetMask As Long        ' 子网掩码    dwBroadCastAddr As Long     ' 封包广播地址    dwReAssemblySize  As Long   ' 组译大小    unused1 As Integer          ' 暂不使用    unused2 As Integer          ' 暂不使用End Type

Private Type MIB_IPADDRTABLE    dwEntrys As Long            ' 窗体中登录的数量    arIPInfo(MAX_IP) As IPINFO  ' IP 地址登录数组End Type

Private Type IP_Array    mBuffer As MIB_IPADDRTABLE  ' IP 地址清单数组    BufferLen As Long           ' 缓冲区长度End Type

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)Private Declare Function GetIpAddrTable Lib "IPHlpApi" (pIPAdrTable As Byte, pdwSize As Long, ByVal Sort As Long) As Long

' 将长整数转换为字符串Public Function ConvertAddr2Str(LongAddress As Long) As String    Dim addrByte(3) As Byte    Dim Cnt As Long    CopyMemory addrByte(0), LongAddress, 4    For Cnt = 0 To 3        ConvertAddr2Str = ConvertAddr2Str + CStr(addrByte(Cnt)) + "."    Next Cnt    ConvertAddr2Str = Left$(ConvertAddr2Str, Len(ConvertAddr2Str) - 1)End Function

Private Sub Form_Load()    Text1.Text = ""    Me.Caption = "取得计算机上所使用的 IP 地址"    Text1.Font.Size = 11    StartEnd Sub

Private Sub Form_Resize()    Text1.Height = Me.Height - 38 * Screen.TwipsPerPixelY    Text1.Width = Me.Width - 20 * Screen.TwipsPerPixelXEnd Sub

Private Sub Start()    Dim lRet As Long, I As Long    Dim Buffer() As Byte    Dim ListDatas As MIB_IPADDRTABLE

    Text1 = ""

    On Error GoTo Errors    GetIpAddrTable ByVal 0&, lRet, True

    If lRet <= 0 Then Exit Sub    ReDim Buffer(0 To lRet - 1) As Byte

    ' 取回 IP 地址的相关数据    GetIpAddrTable Buffer(0), lRet, False

    Debug.Print Buffer(0)    ' 利用已经安装 IP 地址的前四个字节，来取得登录的信息    CopyMemory ListDatas.dwEntrys, Buffer(0), 4    Text1 = "在您的计算机上，共有 " & ListDatas.dwEntrys & " 组已经设定使用的 IP 地址" & vbCrLf    Text1 = Text1 & String(45, "=") & vbCrLf    For I = 0 To ListDatas.dwEntrys - 1

        ' 将存在内存之中的地址结构，复制到清单之中        CopyMemory ListDatas.arIPInfo(I), Buffer(4 + (I * Len(ListDatas.arIPInfo(0)))), Len(ListDatas.arIPInfo(I))        Text1 = Text1 & "IP 地址　　　：" & ConvertAddr2Str(ListDatas.arIPInfo(I).dwAddr) & vbCrLf        Text1 = Text1 & "IP 子网掩码：" & ConvertAddr2Str(ListDatas.arIPInfo(I).dwSubnetMask) & vbCrLf        Text1 = Text1 & "IP 广播地址　：" & ConvertAddr2Str(ListDatas.arIPInfo(I).dwBroadCastAddr) & vbCrLf        Text1 = Text1 & String(45, "*") & vbCrLf & vbCrLf    Next

Exit Sub

Errors:

End Sub

注：有关IP助手的使用方法请参见刘巍的文章：“IP Helper API 使用方法详解”http://www.zdnet.com.cn/developer/code/story/0,2000081534,39046680,00.htm