[VB.NET] Get Website's IP Address

[420]

Imports System.Net
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            If TextSite.Text.Contains("http://") Then
                Dim iphe As IPHostEntry = Dns.GetHostEntry(TextSite.Text.Replace("http://", String.Empty))
                TextIp.Text = iphe.AddressList(0).ToString()
            Else
                Dim iphe As IPHostEntry = Dns.GetHostEntry(TextSite.Text)
                TextIp.Text = iphe.AddressList(0).ToString()
            End If
        Catch ex As Exception
            MsgBox(ex)
        End Try
    End Sub
End Class

[font=Monaco, Consolas, Courier, monospace]All credits go to t0fx [/font]

 

[420]

Imports System.Net
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            If TextSite.Text.Contains("http://") Then
                Dim iphe As IPHostEntry = Dns.GetHostEntry(TextSite.Text.Replace("http://", String.Empty))
                TextIp.Text = iphe.AddressList(0).ToString()
            Else
                Dim iphe As IPHostEntry = Dns.GetHostEntry(TextSite.Text)
                TextIp.Text = iphe.AddressList(0).ToString()
            End If
        Catch ex As Exception
            MsgBox(ex)
        End Try
    End Sub
End Class

[font=Monaco, Consolas, Courier, monospace]All credits go to t0fx [/font]

 

[Velvet]

thanks for this, I'm gonna convert it to C# and use it

 

[Vick]

^ C# rules mate. But I might be able to write it better. I'll try in a minute.

 

[Velvet]

^ C# rules mate. But I might be able to write it better. I'll try in a minute.

I'd like to see it