想要很详细的 所有关联代码都带着的

解决方案 »

  1.   

    VB.Net通过IP地址获取Mac地址Imports System
    Imports System.Diagnostics
    Public Class MacAddress
    Public Function GetMac(ByVal IP As String) As String
    Dim str1 As String = String.Empty
    Try
    Dim str2 As String = String.Empty
    Dim info1 As ProcessStartInfo = New ProcessStartInfo()
    Dim process1 As Process = New Process()            info1.FileName = "nbtstat"
    info1.RedirectStandardInput = False
    info1.RedirectStandardOutput = True
    info1.Arguments = "-A " + IP
    info1.UseShellExecute = False
    process1 = Process.Start(info1)            Dim num1 As Integer = -1            While (num1 <= -1)
    num1 = str2.Trim().ToLower().IndexOf("mac address", 0)
    If (num1 > -1) Then
    Exit While
    End If                str2 = process1.StandardOutput.ReadLine()
    process1.WaitForExit()
    str1 = str2.Trim()
    End While
    Catch ex As Exception
    Throw ex
    End Try
    Return str1
    End Function