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    1439 Görüntüleme
  • 0 Oy - 0 Yüzde

Paylaşım Tarihi: 02.02.2016, 13:29:43 #1
x60 #Requiem
Cezalı Üye
Status: Çevrimdışı Yorum Sayısı:551 Konu Sayısı:161 Üyelik 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:
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ışı Yorum Sayısı:378 Konu Sayısı:77 Üyelik Tarihi:25.12.2015 Rep Puanı: 40

Teşekkürler Smile

Kullanıcı İmzası
İmage
Paylaşım Tarihi: 02.02.2016, 14:37:48 #3
Rehat Yeğen
Onaylı Uye
Status: Çevrimdışı Yorum Sayısı:48 Konu Sayısı:11 Üyelik Tarihi:01.02.2016 Rep Puanı: 2

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ışı Yorum Sayısı:296 Konu Sayısı:48 Üyelik Tarihi:12.01.2016 Rep Puanı: 21

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ışı Yorum Sayısı:239 Konu Sayısı:26 Üyelik Tarihi:20.12.2015 Rep Puanı: 70

Bakmak Lazım Tongue

Kullanıcı İmzası
linkleri görmek için giriş yapmanız. Yada üye olmanız gerekir.
Paylaşım Tarihi: 02.02.2016, 14:56:17 #6
Ufovase Yeğen
Onaylı Uye
Status: Çevrimdışı Yorum Sayısı:50 Konu Sayısı:11 Üyelik 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ışı Yorum Sayısı:70 Konu Sayısı:1 Üyelik 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ışı Yorum Sayısı:12 Konu Sayısı:0 Üyelik Tarihi:16.12.2015

Bakalım...







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

Konuyu görüntüleyenler:
1 Misafir