所属类别：.NET

文章作者：未知

特别推荐：免费发布信息 承包关键词~~抢爆了！^HOT!

转自：http://www.guoblog.com/blogview.asp?logID=202PublicFunctionValueSepR(ByValRawStringAsString,ByValSepCharAsString)AsStringIfInStr(1,RawString,SepChar)<>0ThenValueSepR=Microsoft.VisualBasic.Right(RawString,Len(RawString)-InStr(1,RawString,SepChar))ElseValueSepR=RawStringEndIfEndFunctionPublicFunctionGetMac(ByValIPAsString)AsStringTryDimdirResultsAsStringDimpsiAsSystem.Diagnostics.ProcessStartInfo=NewSystem.Diagnostics.ProcessStartInfo()DimprocAsNewSystem.Diagnostics.Process()psi.FileName="nbtstat"psi.RedirectStandardInput=Falsepsi.RedirectStandardOutput=Truepsi.Arguments="-A"&IPpsi.UseShellExecute=Falseproc=System.Diagnostics.Process.Start(psi)DimxAsInteger=-1DoUntilx>-1IfdirResults<>NothingThenx=dirResults.Trim.ToLower.IndexOf("macaddress",0)Ifx>-1ThenExitDoEndIfEndIfdirResults=proc.StandardOutput.ReadLineLoopproc.WaitForExit()GetMac=ValueSepR(dirResults.Trim,"=").TrimCatcherrAsExceptionResponse.Write(err.Message&err.StackTrace)EndTryEndFunction关闭本页

....