VB.NET
* Imports System.Net
Imports System.Text.RegularExpressions

Public Class Form1

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Try
Dim ExternalIP As String
ExternalIP = (New WebClient()).DownloadString("http://vnote.kr")
ExternalIP = (New Regex("\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}")).Matches(ExternalIP)(0).ToString()
Label1.Text = ExternalIP
Catch
Label1.Text = "NOT "
End Try
End Sub
End Class 

외부ip지원 주소 입력

 

ExternalIP = (New WebClient()).DownloadString("http://vnote.kr")

        

 

 

   Private Function GetExternalIp() As String

        Try

            Dim ExternalIP As String

            ExternalIP = (New WebClient()).DownloadString("http://time.____.kr/")

            ExternalIP = (New Regex("\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}")) _

                         .Matches(ExternalIP)(0).ToString()

            Return ExternalIP

        Catch

            Return Nothing

        End Try

    End Function