Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Console.WriteLine(Me.CheckIP("127.0.0.1"))
Console.WriteLine(Me.CheckIP("127.0.0.2"))
Console.WriteLine(Me.CheckIP("lzmtw.cnblogs.com"))
Console.WriteLine(Me.CheckIP("LocalHost"))
Console.WriteLine(Me.CheckIP("Localhost1"))
End Sub
Public Function CheckIP(ByVal NameOrIP As String) As Boolean
Dim IsByIP As Boolean
IsByIP = (NameOrIP.Split("."c).Length = 4)
Try
If IsByIP Then
Console.WriteLine(System.Net.Dns.GetHostByAddress(NameOrIP).HostName)
Else
Console.WriteLine(System.Net.Dns.GetHostByName(NameOrIP).HostName)
End If
Return True
Catch ex As System.Net.Sockets.SocketException
Return False
End Try
End Function
