VB.NET
외부ip가져오기
2020.11.27
* | 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