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
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