通过IP获取MAC地址

 Option Explicit
Private Declare Function OpenProcess Lib "kernel32" (ByVal _
dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" _
(ByVal hHandle As Long, ByVal dwMilliseconds As Long) _
As Long
Private Const INFINITE = -1&
Private Const SYNCHRONIZE = &H100000
Private Declare Function inet_addr Lib "wsock32.dll" (ByVal s As String) As Long
Private Declare Function SendARP Lib "iphlpapi.dll" (ByVal DestIP As Long, ByVal SrcIP As Long, pMacAddr As Long, PhyAddrLen As Long) As Long
Private Declare Sub CopyMemory1 Lib "kernel32" Alias "RtlMoveMemory" (dst As Any, src As Any, ByVal bcount As Long)

Public Function GetRemoteMACAddress(ByVal sRemoteIP As String)
      Dim dwRemoteIP     As Long
      Dim pMacAddr     As Long
      Dim bpMacAddr()     As Byte
      Dim PhyAddrLen     As Long
      Dim cnt     As Long
      Dim tmp     As String
      'convert    the    string    IP    into
      'an    unsigned    long    value    containing
      'a    suitable    binary    representation
      'of    the    Internet    address    given
      dwRemoteIP = inet_addr(sRemoteIP)
If dwRemoteIP <> 0 Then
          'set    PhyAddrLen    to    6
          PhyAddrLen = 6
          'retrieve    the    remote    MAC    address
          On Error Resume Next
          If SendARP(dwRemoteIP, 0&, pMacAddr, PhyAddrLen) = 0 Then
'GetRemoteMACAddress = pMacAddr
'Exit Function
              If pMacAddr <> 0 And PhyAddrLen <> 0 Then
                  'returned    value    is    a    long    pointer
                  'to    the    mac    address,    so    copy    data
                  'to    a    byte    array
                  ReDim bpMacAddr(0 To PhyAddrLen - 1)
                  CopyMemory1 bpMacAddr(0), pMacAddr, ByVal PhyAddrLen
                  'loop    through    array    to    build    string
                  For cnt = 0 To PhyAddrLen - 1
                      If bpMacAddr(cnt) = 0 Then
                          tmp = tmp & "00-"
                      Else
                          If Len(Hex$(bpMacAddr(cnt))) = 1 Then
                              tmp = tmp & "0" & Hex$(bpMacAddr(cnt)) & "-"
                          Else
                              tmp = tmp & Hex$(bpMacAddr(cnt)) & "-"
                          End If
                      End If
                  Next
                  'remove    the    trailing    dash
                  'added    above    and    return    True
                  If Len(tmp) > 0 Then
                      'sRemoteMacAddress = Left$(tmp, Len(tmp) - 1)
                      GetRemoteMACAddress = Left$(tmp, Len(tmp) - 1)
                  End If
                  Exit Function
              Else
                  GetRemoteMACAddress = False
              End If
          Else
              GetRemoteMACAddress = False
          End If       'SendARP

      Else
          GetRemoteMACAddress = False
      End If       'dwRemoteIP
End Function