这儿有一个C#的参考>
我给改写成了VBnet 看看你能用上不?
Imports SystemDiagnosticsImports SystemTextRegularExpressions
Module mdlIpDns
Public Function RunCMD(ByVal FileName As String, ByVal Arguments As String, ByVal RecordLog As Boolean) As String
REM 运行一个控制台程序并返回其输出参数
Try
If RecordLog = True Then TraceWriteLine(FileName + " " + Arguments)
Dim myProc As Process = New Process
myProcStartInfoFileName = FileName
myProcStartInfoCreateNoWindow = True
myProcStartInfoArguments = Arguments
myProcStartInfoRedirectStandardOutput = True
myProcStartInfoUseShellExecute = False
myProcStart()
Dim myStreamReader As SystemIOStreamReader = New SystemIOStreamReader(myProcStandardOutputBaseStream, SystemTextEncodingDefault)
Dim myText As String = myStreamReaderReadToEnd
myStreamReaderClose()
If RecordLog = True Then TraceWriteLine(myText)
If Not myProcHasExited Then myProcKill()
Return myText
Catch ex As Exception
TraceWriteLine(exToString)
Return vbNull
End Try
End Function
Public Function GetAllIp() As String
REM 获取本机全部网卡的IP地址
GetAllIp = ""
Dim Address() As SystemNetIPAddress
Dim i As Integer
Address = SystemNetDnsGetHostEntry(SystemNetDnsGetHostName())AddressList
For i = 0 To UBound(Address)
GetAllIp = GetAllIp & (Chr(13) & Address(i)ToString())
Next
End Function
Public Function GetPrimaryDNS() As String
REM 获取本机主DNS
GetPrimaryDNS = ""
Dim m As SystemTextRegularExpressionsMatch
Dim myResult As String = RunCMD("nslookup", "", True) '需要RunCMDmdl
m = RegexMatch(myResult, "\d+\\d+\\d+\\d+")
If mSuccess Then
Return mValue
Else
Return vbNull
End If
End Function
Public Function GetLocalIP() As String
REM 获取本机正在使用的IPv4地址
REM 1一个电脑有多个网卡,有线的、无线的、还有VMare虚拟的两个网卡。
REM 2就算只有一个网卡,但是该网卡配置了N个IP地址其中还包括IPv6地址。
REM 3下面通过查询本机路由表,获取访问默认网关时使用的网卡IP。
Dim m As SystemTextRegularExpressionsMatch
Dim myResult As String = RunCMD("route", "print", True) '需要RunCMDmdl
m = RegexMatch(myResult, "0000\s+0000\s+(\d+\d+\d+\d+)\s+(\d+\d+\d+\d+)")
If mSuccess Then
Return mGroups(2)Value
Else
Try
Dim myTcpClient As SystemNetSocketsTcpClient = New SystemNetSocketsTcpClient
myTcpClientConnect(">
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)