Vb.net İp Adresi Öğrenme

[xNeos]

Öncelikle formumuzun import yerine şu fonksiyonları ekleyin.

Imports System.Net
Imports System.Text.RegularExpressions

Şimdi formumuza private funtion eklememiz lazım kütüphaneye şu kodu ekliyoruz

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 :

 Label1.Text = (GetIP())

Artık buttona bastığımızda labelimize ip adresimiz yazacaktır.



​

 

[dear Dai]

kodu gereksiz uzatmışsın

Bağlantıları görmek için lütfen Giriş Yap

üzerinden plain text olarak çekebilirsin direk

 

[xNeos]

kodu gereksiz uzatmışsın

Bağlantıları görmek için lütfen Giriş Yap

üzerinden plain text olarak çekebilirsin direk

Oda olur , buda olur.

 

[erenkuyucucs]

teşekkürler

 

[xNeos]

teşekkürler

Rica ederim.

 

[Roux]

Eyw Sitelerde Gösteriyor Ama Yarar

 

[xNeos]

Eyw Sitelerde Gösteriyor Ama Yarar

Evet olsun bir loader yaparrsın loadera ip adresin özelliği eklersin güzel durabilir .

 

[By ŞaHaNe]

Üstat eline sağlık teker teker sakin sakin anlatmışsın eline sağlık.

 

[xNeos]

Üstat eline sağlık teker teker sakin sakin anlatmışsın eline sağlık.

Ee nabalım editörüz artık böyle teşekkürler.

 

[xNeos]

eline sağlık üstadım

Rica ederim kral.

 

[emreoztekin]

teşekkürler

 

[xNeos]

teşekkürler

Sağol dostum.

 

[xNeos]

eline sağlık

Sağol dostum

 

[mortallcold]

eline sağlık işe yarar

 

[MSefa06]

Sen bir harikasın emegine saglık yararlı olmuş arkadaşalra

 

[mowen1]

uzun zamandır merak ettıgım bır konuydu teşekkurler

 

[EzrealFan]

Üstat eline sağlık teker teker sakin sakin anlatmışsın eline sağlık