VB.net ile IP Adresini Öğrenme

[ßyMesMes]

Türkiye'de ilk Mobil & PC Aynı Anda Metin2 Oyna. Triarchonline kalıcı ve uzun ömürlü yapısı ile 24 Temmuz'da açılıyor. | 1-99 Mobil Metin2 Triarch HEMEN TIKLA!

Şu fonksiyonu tanımlayalım:

[COLOR=#000000]
Imports System.Net

Imports System.Text.RegularExpressions[/COLOR]

kütüphaneye ekliyoruz

 [COLOR=#000000]
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[/COLOR]

Buton click olayına şu kodları girelim:

[COLOR=#000000][FONT=Monaco]Label1.Text = (GetIP())[/FONT][/COLOR]

 

[ReD HooD]

Paylaşım için teşekkürler...

 

[Sertcocuk87]

Bu kod formun geç açılmasına sebep oluyor.