Visual Basic ip adresi öğrenme
|
1
2
|
Imports System.Net
Imports System.Text.RegularExpressions
|
kütüphaneye ekliyoruz
|
1
2
3
4
5
6
7
|
Private Function GetIP() As String
Dim wc As New WebClient()
Dim strIP As String = wc.DownloadString("http://checkip.dyndns.org")
strIP = (New Regex("\b\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\b")).Match(strIP).Value
wc.Dispose()
Return strIP
End Function
|
|
1
|
Buton click olayına şu kodları girelim:
|
|
1
|
Label1.Text = (GetIP())
|
Leave a reply