'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://m.bbyears.com/taobaodaxue/5428.html
推荐访问:个推 哥谭第五季 getchar 个推开放平台 get和post请求的区别 github getelementbyid getty