双网卡或多网卡情况下获得所有的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
Start
End Sub
Private Sub Form_Resize()
Text1.Height = Me.Height - 38 * Screen.TwipsPerPixelY
Text1.Width = Me.Width - 20 * Screen.TwipsPerPixelX
End 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