1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Private Sub ButtonRécupérerAdresses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonRécupérerAdresses.Click, ButtonRécupérerAdresses.Click
Dim Ip As String = System.Net.Dns.GetHostByName(Dns.GetHostName).AddressList.GetValue(0).ToString
TextBoxAdresseMac.Text = 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 |
Partager