비쥬얼베이직(비주얼베이직)visual basic,vb.net 강좌-사이트 주소로 ip 알아내는 프로그램,IPAddress,AddressList

ip 알아내기.exe

Imports System.Net

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        If TextBox1.Text = "" Then

            MessageBox.Show("사이트 주소를 적어주세요")

        Else

            Dim Hostname As IPHostEntry = Dns.GetHostEntry(TextBox1.Text)

            Dim ip As IPAddress() = Hostname.AddressList

            TextBox2.Text = ip(0).ToString

        End If

    End Sub

End Class