VB.net ile IP Adresini Öğrenme


Visual Basic ve .NET Framework    Visual Basic ve .NET Framework İle İlgili Paylaşım Kategorisi

Yazar: x60    50 Yorum    1703 Görüntüleme
  • Derecelendirme: 0/5 - 0 oy

Paylaşım Tarihi: 02.02.2016, 13:29:43 #1
x60 #Requiem
Cezalı Üye
Status: Çevrimdışı Yorumları:544 Konuları:160 Kayıt Tarihi:18.11.2015

Bu dersimizde VB.net ile ip adresini çekelim.

Şu fonksiyonu tanımlayalım:
Kod:
[hide]

PHP Kod:
Imports System.Net
Imports System.Text.RegularExpressions 

kütüphaneye ekliyoruz

Kod:

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

Buton click olayına şu kodları girelim:

PHP Kod:
Label1.Text = (GetIP()) 

[/hide]


Paylaşım Tarihi: 02.02.2016, 13:31:40 #2
Jakies Perfect
Süper Üye
Status: Çevrimdışı Yorumları:376 Konuları:77 Kayıt Tarihi:25.12.2015 Rep Puanı: 40

Teşekkürler Smile

Kullanıcı İmzası
Resim http://49.media.tumblr.com/a410c087590891fc6b1a319ada18acba/tumblr_mwh8fc9NX81s0twoeo1_r3_400.gif

Paylaşım Tarihi: 02.02.2016, 14:37:48 #3
Rehat Delikanlı
Onaylı Uye
Status: Çevrimdışı Yorumları:92 Konuları:14 Kayıt Tarihi:01.02.2016 Rep Puanı: 3

Bu Kodu Yazınca IP ADRESİNİMİ GÖSTERİYOR YANİ ?

Paylaşım Tarihi: 02.02.2016, 14:41:37 #4
NickBeLiRSiZZ Old Mod.
Onaylı Uye
Status: Çevrimdışı Yorumları:292 Konuları:48 Kayıt Tarihi:12.01.2016 Rep Puanı: 23

Herkeşe Lzm Big Grin

Kullanıcı İmzası
''İnsan Yükselince Kendini Bişi Zanneder''

-Adolf Hitler.


                    

[img=0x450]https://media.giphy.com/media/MrYqi6NBoMGbe/giphy.gif[/img]

Paylaşım Tarihi: 02.02.2016, 14:51:12 #5
Furkansyl97 JoKeR
Onaylı Uye
Status: Çevrimdışı Yorumları:225 Konuları:24 Kayıt Tarihi:20.12.2015 Rep Puanı: 71

Bakmak Lazım Tongue

Kullanıcı İmzası
Sitemize kayıtlı değilseniz linkleri görebilmeniz İçin Kayıt Olun veya Giriş Yapın

Paylaşım Tarihi: 02.02.2016, 14:56:17 #6
Ufovase Delikanlı
Onaylı Uye
Status: Çevrimdışı Yorumları:53 Konuları:11 Kayıt Tarihi:13.08.2015 Rep Puanı: 0

Deniyelim Şimdiden tşk

Paylaşım Tarihi: 02.02.2016, 14:59:53 #7
slowbeta12345 Delikanlı
Kayıtlı Üye
Status: Çevrimdışı Yorumları:72 Konuları:1 Kayıt Tarihi:29.01.2016 Rep Puanı: 1

Çok İşime Yaradı

Paylaşım Tarihi: 02.02.2016, 15:10:43 #8
Bycehennem66 Cezalı Üye
Cezalı Üye
Status: Çevrimdışı Yorumları:12 Konuları:0 Kayıt Tarihi:16.12.2015

Bakalım...










Aradığınızı Bulamadınız Mı ?

Konuyu Okuyanlar:
1 Ziyaretçi