- Yasaklandı
-
- #1
Öncelikle formumuzun import yerine şu fonksiyonları ekleyin.
Visual Basic:
Imports System.Net
Imports System.Text.RegularExpressionsŞimdi formumuza private funtion eklememiz lazım kütüphaneye şu kodu ekliyoruz
Visual Basic:
Private Function GetIP() As String
Dim neos As New WebClient()
Dim ipadres As String = wc.DownloadString("http://checkip.dyndns.org")
ipadres = (New Regex("\b\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\b")).Match(strIP).Value
neos.Dispose()
Return strIP
End FunctionŞimdi Buttonumuzada şu kodu ekliyoruz :
Visual Basic:
Label1.Text = (GetIP())