一聚教程网:一个值得你收藏的教程网站

热门教程

get the mac Address

时间:2022-07-02 12:05:18 编辑:袖梨 来源:一聚教程网

'The DotNet world is so beautiful.
'Enjoy the code below
Public Function ValueSepR(ByVal RawString As String, ByVal SepChar As String) As String
        If InStr(1, RawString, SepChar) <> 0 Then
       ValueSepR = Microsoft.VisualBasic.Right(RawString, Len(RawString) - InStr(1, RawString, SepChar))
        Else
       ValueSepR = RawString
        End If
    End Function
    Public Function GetMac(ByVal IP As String) As String
        Try
       Dim dirResults As String
       Dim psi As ProcessStartInfo = New ProcessStartInfo()
       Dim proc As New Process()
       psi.FileName = "nbtstat"
       psi.RedirectStandardInput = False
       psi.RedirectStandardOutput = True
       psi.Arguments = "-A " & IP
       psi.UseShellExecute = False
       proc = Process.Start(psi)
       Dim x As Integer = -1
       Do Until x > -1

热门栏目