noisiv 1
noisiv
Manwe Work 1
Manwe Work
Scarlet 1
Scarlet
xranzei 1
xranzei
mavzermete 1
mavzermete
Hikaye Ekle

VB.net ile IP Adresini Öğrenme

  • Konuyu başlatan Konuyu başlatan ßyMesMes
  • Başlangıç tarihi Başlangıç tarihi
  • Cevaplar Cevaplar 2
  • Görüntüleme Görüntüleme 1K

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

Şu fonksiyonu tanımlayalım:

Kod:
[COLOR=#000000]
Imports System.Net

Imports System.Text.RegularExpressions[/COLOR]

kütüphaneye ekliyoruz

Kod:
 [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:

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

 

Şu an konuyu görüntüleyenler (Toplam : 0, Üye: 0, Misafir: 0)

Geri
Üst