獲取MAC地址

簡單的辦法是在控制檯輸入ping 目標IP,然後用 arp -a 來查看.

或者下面的代碼（記下來以備後用）：

    Private Declare Function inet_addr()Function inet_addr Lib "wsock32.dll" (ByVal s As String) As Int32

    Private Declare Function SendARP()Function SendARP Lib "iphlpapi.dll" (ByVal DestIP As Int32, ByVal SrcIP As Int32, ByRef pMacAddr As Int64, ByRef PhyAddrLen As Int32) As Int32

    Public Function GetMac()Function GetMac(ByVal ip As String) As String
        Dim mac As Int64

        SendARP(inet_addr(ip), 0, mac, 16)

        Dim b As Byte() = BitConverter.GetBytes(mac)

        Dim strMac As String = ""

        For i As Integer = 0 To 5
            strMac &= "-" & String.Format("{0:X2}", b(i))
        Next

        Return strMac.Substring(1)
    End Function