Visual Basic İP Bulma Programı Nasıl Yapılır?
- Konuyu başlatan DeathTR
- Başlangıç tarihi
Dış IP'den, dünyanın gördüğü IP'den bahsediyoruz değil mi?
Bir yerlerde, tekrar tekrar kullanabileceğin bir webclient tanımla.. Dosya indirme, yazı indirme, her haltı yapar o zaten.. Güzel class, incele, çoğu iş için WebBrowser yerine kullanmaya başlayacaksın.
Sonra da https://api.ipify.org adresinden bütün string'i çek.. Bitti, bu kadar.. Eğer bunu "System.Net.IPAddress haline getirmek istersen, Parse edivereceksin. Örnek verelim;
Bir yerlerde, tekrar tekrar kullanabileceğin bir webclient tanımla.. Dosya indirme, yazı indirme, her haltı yapar o zaten.. Güzel class, incele, çoğu iş için WebBrowser yerine kullanmaya başlayacaksın.
Sonra da https://api.ipify.org adresinden bütün string'i çek.. Bitti, bu kadar.. Eğer bunu "System.Net.IPAddress haline getirmek istersen, Parse edivereceksin. Örnek verelim;
Kod:
Dim webClient as System.Net.WebClient=new System.Net.WebClient()
Dim stringHalindeIPAdresin as String=webClient.DownloadString("https://api.ipify.org")
Dim IPAddressHalindeSoketleFilanKullanabileceginIPAdresin=System.Net.IPAddress.Parse(stringHalindeIPAdresin)
Kardeşim şu şekilde
/-/ İlk önce kütüphanemizi ekliyoruz /-/ Imports System.net
Dim Adres As String = TextBox1.Text
Dim Tespit As IPHostEntry = Dns.GetHostByName(Adres)
Dim IPAdresi As IPAddress() = Tespit.AddressList
Textbox2.Text = IPAdresi(0).ToString
2 text box 2 label 1 buton ekledıkten sonra bunları yazıyoruz...
videosunu çekicem
https://www.youtube.com/channel/UCSxLeNmA38ktRCzAYYhFRQQ takip edebilirsin iyi forumlar...
/-/ İlk önce kütüphanemizi ekliyoruz /-/ Imports System.net
Dim Adres As String = TextBox1.Text
Dim Tespit As IPHostEntry = Dns.GetHostByName(Adres)
Dim IPAdresi As IPAddress() = Tespit.AddressList
Textbox2.Text = IPAdresi(0).ToString
2 text box 2 label 1 buton ekledıkten sonra bunları yazıyoruz...
videosunu çekicem
https://www.youtube.com/channel/UCSxLeNmA38ktRCzAYYhFRQQ takip edebilirsin iyi forumlar...Kardeşim şu şekilde
/-/ İlk önce kütüphanemizi ekliyoruz /-/ Imports System.net
Dim Adres As String = TextBox1.Text
Dim Tespit As IPHostEntry = Dns.GetHostByName(Adres)
Dim IPAdresi As IPAddress() = Tespit.AddressList
Textbox2.Text = IPAdresi(0).ToString
2 text box 2 label 1 buton ekledıkten sonra bunları yazıyoruz...
videosunu çekicem
Hah, bu da ağ içindeki IP adresin, bu dışarı görünmez ama ağ içinde bu IP ile tanınırsın.. Ya arp'dan alırsın, ya da buradaki gibi alırsın.
Anlamadım yani arkadaş sitede ip bulma programı istemiş kodlarını verdim
ama bunun için bi program yapmaya gerek duymuyorum yani cmd (komut sistemindende) yapılabilir...Anlamadım yani arkadaş sitede ip bulma programı istemiş kodlarını verdim
Üstad bu kendi ağın içindeki IP'ndir.. Yani 99% herkeste 192.168.1.xxx görünür. Ağ içinde diğer bir bilgisayara, server'a, sql sunucuya ulaşmak vs. için bu IP'den bağlanırsın. Ama ağ dışında IP adresin farklıdır, modemin servis sağlayıcından aldığı IP geçerlidir.
Modeme arp talebinde bulunur, onu da alırsın modem implementasyonunu biliyorsan ama... zor iş, gereksiz. Onun yerine bir siteye "beni hangi IP altında görüyorsun?" diye sorarsın. ipify bu sitelerden biri.
