【wget】get the mac Address

更新时间：2014-04-07 来源：刷单平台手机版 字体：大中小

【www.bbyears.com--刷单平台】

'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

本文来源：http://www.bbyears.com/taobaodaxue/5428.html