외부ip가져오기
*
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
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.123a.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
이 게시물을
번호
제목
257
256
254
249
247
246
242
239
238