vb.net 第十三节 获得目的地IP（只能是所在局域网中的IP）对应的物理地址 SendARP

Posted 2022-03-23 VB.Net

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。
 

Imports System.Runtime.InteropServices

Public Class Form14

    'DWORD SendARP(  _In_    IPAddr DestIP,  _In_    IPAddr SrcIP, _Out_   PULONG pMacAddr, _Inout_ PULONG PhyAddrLen);
    'unsigned long inet_addr( Const Char FAR* cp  );

    'Public Declare Function SendARP Lib "iphlpapi.dll" (ByVal DestIP As Long, ByVal SrcIP As Long, pMacAddr As Long, PhyAddrLen As Long) As Long
    'Public Declare Function inet_addr Lib "wsock32.dll" (ByVal cp As String) As Long

    Public Declare Function SendARP Lib "iphlpapi.dll" (ByVal DestIP As Integer, ByVal SrcIP As Integer, ByVal pMacAddr() As Byte, ByRef PhyAddrLen As Integer) As Integer
    Public Declare Function inet_addr Lib "wsock32.dll" (ByVal cp As String) As Integer

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Dip As Long
        Dim Sip As Long
        Dip = inet_addr("192.168.1.1")
        Sip = 0 'inet_addr("127.0.0.1")

        Dim returnValue As Integer

        Dim bteAddr(5) As Byte
        Dim PhyAddrLen As Integer = 6
        returnValue = SendARP(Dip, Sip, bteAddr, PhyAddrLen)

        TextBox1.Text = BitConverter.ToString(bteAddr)

    End Sub

End Class

 

由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供的参考。

学习更多vb.net知识，请参看 vb.net 教程 目录