VB6获取本机所有IP地址公用函数

概述因为正好有用到，整了个公用函数，一次获取本机全部IP地址： Option ExplicitPrivate Declare Function WSAstartup Lib "WSOCK32.DLL" Alias "WSAStartup" (ByVal wVersionRequired As Integer, ByRef lpWSAData As WSAdata) As LongPriva

因为正好有用到，整了个公用函数，一次获取本机全部IP地址：

Option ExplicitPrivate Declare Function WSAstartup lib "WSOCK32.DLL" Alias "WSAStartup" (ByVal wVersionrequired As Integer,ByRef lpWSAData As WSAdata) As LongPrivate Declare Function WsACleanup lib "WSOCK32.DLL" Alias "WSACleanup" () As LongPrivate Declare Function WSAIoctl lib "ws2_32.dll" (ByVal s As Long,ByVal DWIoControlCode As Long,lpvInBuffer As Any,ByVal cbInBuffer As Long,lpvOutBuffer As Any,ByVal cbOutBuffer As Long,lpcbBytesReturned As Long,lpOverlapped As Long,lpCompletionRoutine As Long) As LongPrivate Declare Function socket lib "WSOCK32.DLL" (ByVal af As Long,ByVal s_type As Long,ByVal protocol As Long) As LongPrivate Declare Function closesocket lib "WSOCK32.DLL" (ByVal s As Long) As LongPrivate Declare Sub copyMemory lib "kernel32.dll" Alias "RtlMoveMemory" (Destination As Any,Source As Any,ByVal Length As Long)Private Type sockaddr    sin_family As Integer    sin_port As Integer    sin_addr As Long    sin_zero As String * 8End TypePrivate Type sockaddr_gen    AddressIn As sockaddr    filler(0 To 7) As ByteEnd TypePrivate Type INTERFACE_INFO    iiFlags As Long    iiAddress As sockaddr_gen    iibroadcastAddress As sockaddr_gen    iiNetmask As sockaddr_genEnd TypePrivate Type INTERFACEINFO    iInfo(0 To 7) As INTERFACE_INFOEnd TypePrivate Type WSAdata    wVersion As Integer    wHighVersion As Integer    szDescription As String * 255    szSystemStatus As String * 128    iMaxSockets As Integer    iMaxUdpDg As Integer    lpvendorInfo As LongEnd TypePrivate Const AF_INET = 2Private Const SOCK_STREAM = 1Private Const INVALID_SOCKET = -1Private Const SIO_GET_INTERFACE_List As Long = &H4004747FPrivate Function GetStrIPFromLong(nIP As Long) As String    On Error Resume Next    Dim btBuffer(3) As Byte    Call copyMemory(ByVal VarPtr(btBuffer(0)),ByVal VarPtr(nIP),4)    Let GetStrIPFromLong = btBuffer(0) & "." & btBuffer(1) & "." & btBuffer(2) & "." & btBuffer(3)End FunctionPublic Function EnumLocalipAddress() As String()    On Error GoTo Z    Dim lngSocketHandle       As Long    Dim lngBytesReturned      As Long    Dim tpBuffer              As INTERFACEINFO    Dim nNumInterfaces        As Integer    Dim i                     As Integer    Dim StartupInfo           As WSAdata    Dim strIPBuffer()         As String    If WSAstartup(&H202,StartupInfo) <> 0 Then       Exit Function    End If        lngSocketHandle = socket(AF_INET,SOCK_STREAM,0)    If lngSocketHandle = INVALID_SOCKET Then       Exit Function    End If        If WSAIoctl(lngSocketHandle,SIO_GET_INTERFACE_List,ByVal 0,tpBuffer,1024,lngBytesReturned,ByVal 0) Then       closesocket lngSocketHandle       Exit Function    End If    nNumInterfaces = CInt(lngBytesReturned / 76)        ReDim strIPBuffer(nNumInterfaces - 1)        For i = 0 To nNumInterfaces - 1        strIPBuffer(i) = GetStrIPFromLong(tpBuffer.iInfo(i).iiAddress.AddressIn.sin_addr)    Next i        EnumLocalipAddress = strIPBuffer    closesocket lngSocketHandle    WsACleanup    Exit FunctionZ:End Function

使用很简单：

    Dim i As Long,strIPAdd() As String    strIPAdd = EnumLocalipAddress    If SafeArrayGetDim(strIPAdd) > 0 Then       For i = 0 To UBound(strIPAdd)           DeBUG.Print strIPAdd(i)       Next    End If

总结

以上是内存溢出为你收集整理的VB6获取本机所有IP地址公用函数全部内容，希望文章能够帮你解决VB6获取本机所有IP地址公用函数所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。