VB.NET 获取本机在局域网内的IP

Public Class LocalIPClass
    Dim Address() As System.Net.IPAddress '定义一个IP地址集合
    Dim MyPcName As String
    Dim MaxIpCount As Integer
    Public Sub New()
        MyPcName = System.Net.Dns.GetHostName()
        '获取本机IP对内，对外地址,使用GetHostEntry方法
        Address = System.Net.Dns.GetHostEntry(MyPcName).AddressList
        MaxIpCount = UBound(Address)
    End Sub
    Public Function GetInsideIP() As String
        Dim ReturnIP As String = "127.0.0.1" '无网络则返回此IP
        Dim InsideIP As String = "192.168.*.*" 'C类网局域网IP
        Dim InsideIP2 As String = "10.0.*.*" 'A类网局域网IP
        If MaxIpCount > 0 Then
            Dim Ipstr As String
            Dim i As Integer
            For i = 0 To MaxIpCount
                Ipstr = Address(i).ToString
                If Ipstr Like InsideIP Or Ipstr Like InsideIP2 Then
                    ReturnIP = Ipstr
                End If
            Next
        End If
        Return ReturnIP
    End Function
End Class