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    1784 Görüntüleme

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

Bu dersimizde VB.net ile ip adresini çekelim.

Şu fonksiyonu tanımlayalım:
Kod:
[hide]
Imports System.Net
Imports System
.Text.RegularExpressions 
kütüphaneye ekliyoruz

Kod:

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:

Label1.Text = (GetIP()) 
[/hide]

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

Teşekkürler Smile

Kullanıcı İmzası
tumblr_mwh8fc9NX81s0twoeo1_r3_400.gif

Paylaşım Tarihi: 02.02.2016, 14:37:48 #3
Rehat Delikanlı
Onaylı Uye
Status: Çevrimdışı Yorumları:93 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ı:293 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ı:226 Konuları:24 Kayıt Tarihi:20.12.2015 Rep Puanı: 71

Bakmak Lazım Tongue

Kullanıcı İmzası
Y4m6El.png

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ı
Aktif Üye
Status: Çevrimdışı Yorumları:71 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...




Önceki Konu Sonraki Konu





Konuyu Okuyanlar:
1 Ziyaretçi