在編寫基於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