IP numarası verilen bilgisayarın MAC adresini bulan kod Kod: 'Projeye eklenmesi gerekenler: ' 2 adet textbox ve 1 adet buton Option Explicit Private Const NO_ERROR = 0 Private Declare Function inet_addr Lib "wsock32. dll" _ As Long Private Declare Function SendARP Lib "iphlpapi. dll" _ As Long Private Declare Sub CopyMemory Lib "kernel32" _ Alias "RtlMoveMemory" _ Private Sub Form_Load Text1. Text = "192.168.1.101" Text2. Text = "" Command1. Caption = "Get Remote Mac Address" End Sub Private Sub Command1_Click Dim sRemoteMacAddress As String If Len(Text1. Text) > 0 Then If GetRemoteMACAddress(Text1. Text, sRemoteMacAddress) Then Text2. Text = sRemoteMacAddress Else Text2. Text = " " End If End If End Sub Private Function GetRemoteMACAddress As Boolean 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 If dwRemoteIP <> 0 Then 'set PhyAddrLen to 6 PhyAddrLen = 6 'retrieve the remote MAC address If SendARP(dwRemoteIP, 0&, pMacAddr, PhyAddrLen) = NO_ERROR Then 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) CopyMemory bpMacAddr(0), pMacAddr, ByVal PhyAddrLen 'loop through array to build string For cnt = 0 To PhyAddrLen - 1 If bpMacAddr = 0 Then tmp = tmp & "00-" Else tmp = tmp & Hex$(bpMacAddr & "-" End If Next 'remove the trailing dash 'added above and return True If Len > 0 Then sRemoteMacAddress = Left$(tmp, Len - 1) GetRemoteMACAddress = True End If Exit Function Else GetRemoteMACAddress = False End If Else GetRemoteMACAddress = False End If 'SendARP Else GetRemoteMACAddress = False End If 'dwRemoteIP End Function