主题：如何获得本机IP地址呢？

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=59092&skin=0

 没问题啊

Dim cmd As  new Process()
cmd.StartInfo.FileName = "tracert"
cmd.StartInfo.Arguments = "-h 1 baidu.com"

cmd.StartInfo.RedirectStandardOutput = True
cmd.StartInfo.RedirectStandardInput = True
cmd.StartInfo.UseShellExecute = False
cmd.StartInfo.CreateNoWindow = True

cmd.Start()
Dim info As String = cmd.StandardOutput.ReadToEnd()
msgbox(Info)

Dim mc = System.Text.RegularExpressions.Regex.Matches(info, "[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+")
If mc.count > 1 Then
    Return mc(1).value

Else
    Return Nothing
End If

尝试

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=32539&skin=0

或者试试

Dim cmd As  new Process()
cmd.StartInfo.FileName = "ipconfig"
'cmd.StartInfo.Arguments = ""

cmd.StartInfo.RedirectStandardOutput = True
cmd.StartInfo.RedirectStandardInput = True
cmd.StartInfo.UseShellExecute = False
cmd.StartInfo.CreateNoWindow = True

cmd.Start()
Dim info As String = cmd.StandardOutput.ReadToEnd()
msgbox(Info)

Dim mc = System.Text.RegularExpressions.Regex.Matches(info, "(?<= IPv4 地址.+)[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+")
If mc.count > 0 Then
    Return mc(0).value
Else
    Return Nothing
End If