Public Shared Function GetMAC(ByVal IPAddress As String) As String Dim addr As IPAddress = IPAddress.Parse(IPAddress) Dim mac() As Byte = New Byte(6) {} Dim len As Integer = mac.Length SendARP(CType(addr.Address, UInt32), 0, mac, len) Dim macAddress As String = BitConverter.ToString(mac, 0, len) Return macAddress End Function
Imports System.Net Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Ip As String = System.Net.Dns.GetHostByName(Dns.GetHostName).AddressList.GetValue(0).ToString MessageBox.Show(Ip & " : " & GetMAC(Ip)) End Sub Declare Function SendARP Lib "iphlpapi.dll" ( ByVal DestIP As UInt32, ByVal SrcIP As UInt32, _ ByVal pMacAddr As Byte(), ByRef PhyAddrLen As Integer) As Integer Public Shared Function GetMAC(ByVal StringIPAddress As String) As String Dim addr As IPAddress = IPAddress.Parse(StringIPAddress) Dim mac() As Byte = New Byte(6) {} Dim len As Integer = mac.Length SendARP(CType(addr.Address, UInt32), 0, mac, len) Dim macAddress As String = BitConverter.ToString(mac, 0, len) Return macAddress End Function end class
svp je veux une repense rapide
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question