VB.NET URL(域名)转IP地址

Public Class Cls_cmd
  Private addr As String
  Private dnss As String
  ''初始化类传递地址,dns
  Public Sub New(ByVal address As String, ByVal dns As String)
    addr = address.ToUpper.Replace("HTTP://", "").Replace("HTTPS://", "").Split("/")(0)
    dnss = dns
  End Sub
  ''获取cmd输出字符串
  Private Function Get_cmd() As String
    Try
      Dim p As New Process()
      p.StartInfo.FileName = "cmd.exe"
      p.StartInfo.UseShellExecute = False
      p.StartInfo.RedirectStandardInput = True
      p.StartInfo.RedirectStandardOutput = True
      p.StartInfo.RedirectStandardError = True
      p.StartInfo.CreateNoWindow = True
      p.StartInfo.WindowStyle = ProcessWindowStyle.Normal
      p.Start()
      p.StandardInput.WriteLine($"nslookup {addr.ToLower} {dnss}")
      p.StandardInput.WriteLine("exit")
      p.StandardInput.AutoFlush = True
      Dim strOuput As String = p.StandardOutput.ReadToEnd()
      p.WaitForExit()
      p.Close()
      Return strOuput
    Catch
      Return String.Empty
    End Try
  End Function
 ''分析取出IP地址,只取出第一条IP地址
  Public Function Get_ip() As String
    Try
      Dim temp As String = Get_cmd()
      Dim arr As Array = temp.Split(vbCrLf)
      Dim tmp As String = String.Empty
      For Each xl In arr
        If xl Like "*Addresses:*" Then
          tmp = xl.ToString.Replace(" ", "").Split(":")(1)
        ElseIf xl Like "*Address:*" And Not xl Like "*" & dnss & "*" Then
          tmp = xl.ToString.Replace(" ", "").Split(":")(1)
        End If
      Next
      Return tmp
    Catch
      Return String.Empty
    End Try
  End Function

End Class

    Public Function Get_ip(ByVal address As String) As String
        Try
            Dim host As String = address.ToUpper.Replace("HTTP://", "").Replace("HTTPS://", "").Split("/")(0)
            Dim hostInfo As Net.IPAddress() = Net.Dns.GetHostAddresses(host)
            Return hostInfo.ToArray(0).ToString
        Catch
            Return String.Empty
        End Try

    End Function