Konu Bilgileri
Konu: İP ADRESİNDEN KONUM BULMA || Ajanlar.org Özel Yazar: Mancinik
Okunma: 44824 Yorum: 274
Konuyu Okuyanlar: 1 Ziyaretçi
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5

#1
Sevgili Ajan dostlar hepinize merhaba bügün yine size Ajanlar.org-da daha önce hiç görmediğim ama olması gerektiğini düşündüğüm Kendi Yapmış Olduğum İP Adresinden Konum bulma programını sizlerle paylaşmak istiyorum..

Programın Özellikleri:

-İp Adresinden Ülke-yi
-Şehri
-Posta Kodunu
-Zaman Dilimini
-Google Maps-de aratıp bulabileceğiniz Enlem ve Boylam koordinatları

[Resim: 4gOW0q.png]

TEŞEKKÜR ETMEDEN KULLANANLARA HAKKIMI HELAL ETMİYORUM..


PROGRAM İNDİRME LİNKİ:
Hide Post

Foruma Üye , hesabınız yoksa kayıt olmanız gerekmektedir

Hiç Kimse Başarı Merdivenlerini Elleri Cebinde Çıkmamıştır.
Ara
Cevapla
#2
bakalımda bu sitelerin programların çoğu bilgiyi yanlış veriyor
Ara
Cevapla
#3
eline sağlık
Ara
Cevapla
#4
bakalım
2019
Ara
Cevapla
#5
Programı Kullanmıcam ama emeğine teşşekürü verdim kardeşim. Gülümseme Arayüz çok hoş olmuş. Hangi dilde yazdınız.
Ara
Cevapla
#6
(11.06.2015, Saat:17:04)Zanlı Adlı Kullanıcıdan Alıntı: bakalımda bu sitelerin programların çoğu bilgiyi yanlış veriyor

Hocam programı kullanmadan ön yargılı davranmayalım Gülümseme

(11.06.2015, Saat:17:08)maviejder Adlı Kullanıcıdan Alıntı: eline sağlık

Yardımcı olduysam ne mutlu bana Gülümseme

(11.06.2015, Saat:18:02)kemalbat Adlı Kullanıcıdan Alıntı: bakalım

Bakın Bakalım Gülümseme

(11.06.2015, Saat:18:26)Nefes Adlı Kullanıcıdan Alıntı: Programı Kullanmıcam ama emeğine teşşekürü verdim kardeşim. Gülümseme Arayüz çok hoş olmuş. Hangi dilde yazdınız.

Ben teşekkür ederim, vb.net kullandım hocam Gülümseme
Hiç Kimse Başarı Merdivenlerini Elleri Cebinde Çıkmamıştır.
Ara
Cevapla
#7
bakalım Açık Ağızlı Gülümseme // Ne olursa olsun virus total unutma Kararsız
Virus Total
Herkesin bir bedeli vardır, önemli olan ise bunun ne olduğunu öğrenebilmektir.
Cevapla
#8
(12.06.2015, Saat:08:38)Antidote Adlı Kullanıcıdan Alıntı: bakalım Açık Ağızlı Gülümseme // Ne olursa olsun virus total unutma Kararsız
Virus Total

Tarattığın için saolasın diyicemde linki ekleyememişsin sanırsam bende eklediğimi zannediyorum konuya unutmuşum en kısa zamanda eklenecek.
Hiç Kimse Başarı Merdivenlerini Elleri Cebinde Çıkmamıştır.
Ara
Cevapla
#9
Açık Ağızlı Gülümseme Kodlarda temiz Açık Ağızlı Gülümseme bu arada virus total tarattım verdim linki
Kod:
Private Sub BricksButton1_Click(ByVal sender As Object, ByVal e As EventArgs)
    Dim expression As String = Me.wg.DownloadString(("http://freegeoip.net/xml/" & Me.BricksTextbox1.Text))
    Dim str5 As String = Strings.Split(expression, "<IP>", -1, CompareMethod.Binary)(1)
    str5 = Strings.Split(str5, "</IP>", -1, CompareMethod.Binary)(0)
    If (str5 = Nothing) Then
        str5 = "-------------"
    End If
    Me.BricksLabel1.Text = str5
    Dim str2 As String = Strings.Split(expression, "<CountryName>", -1, CompareMethod.Binary)(1)
    str2 = Strings.Split(str2, "</CountryName>", -1, CompareMethod.Binary)(0)
    If (str2 = Nothing) Then
        str2 = "-------------"
    End If
    Me.BricksLabel2.Text = str2
    Dim str3 As String = Strings.Split(expression, "<CountryCode>", -1, CompareMethod.Binary)(1)
    str3 = Strings.Split(str3, "</CountryCode>", -1, CompareMethod.Binary)(0)
    If (str3 = Nothing) Then
        str3 = "-------------"
    End If
    Me.BricksLabel3.Text = str3
    Dim client As New WebClient
    Dim bitmap As Bitmap = DirectCast(Image.FromStream(New MemoryStream(client.DownloadData(("http://serverupload.altervista.org/flag/flat/" & str3 & ".png")))), Bitmap)
    Me.PictureBox1.Image = bitmap
    Dim str9 As String = Strings.Split(expression, "<RegionName>", -1, CompareMethod.Binary)(1)
    str9 = Strings.Split(str9, "</RegionName>", -1, CompareMethod.Binary)(0)
    If (str9 = Nothing) Then
        str9 = "-------------"
    End If
    Me.BricksLabel4.Text = str9
    Dim str10 As String = Strings.Split(expression, "<RegionCode>", -1, CompareMethod.Binary)(1)
    str10 = Strings.Split(str10, "</RegionCode>", -1, CompareMethod.Binary)(0)
    If (str10 = Nothing) Then
        str10 = "-------------"
    End If
    Me.BricksLabel5.Text = str10
    Dim str As String = Strings.Split(expression, "<City>", -1, CompareMethod.Binary)(1)
    str = Strings.Split(str, "</City>", -1, CompareMethod.Binary)(0)
    If (str = Nothing) Then
        str = "-------------"
    End If
    Dim str12 As String = Strings.Split(expression, "<ZipCode>", -1, CompareMethod.Binary)(1)
    str12 = Strings.Split(str12, "</ZipCode>", -1, CompareMethod.Binary)(0)
    If (str12 = Nothing) Then
        str12 = "-------------"
    End If
    Me.BricksLabel7.Text = str12
    Dim str11 As String = Strings.Split(expression, "<TimeZone>", -1, CompareMethod.Binary)(1)
    str11 = Strings.Split(str11, "</TimeZone>", -1, CompareMethod.Binary)(0)
    If (str11 = Nothing) Then
        str11 = "-------------"
    End If
    Me.BricksLabel8.Text = str11
    Dim str6 As String = Strings.Split(expression, "<Latitude>", -1, CompareMethod.Binary)(1)
    str6 = Strings.Split(str6, "</Latitude>", -1, CompareMethod.Binary)(0)
    If (str6 = Nothing) Then
        str6 = "-------------"
    End If
    Me.BricksLabel9.Text = str6
    Dim str7 As String = Strings.Split(expression, "<Longitude>", -1, CompareMethod.Binary)(1)
    str7 = Strings.Split(str7, "</Longitude>", -1, CompareMethod.Binary)(0)
    If (str7 = Nothing) Then
        str7 = "-------------"
    End If
    Me.BricksLabel10.Text = str7
    Dim str8 As String = Strings.Split(expression, "<MetroCode>", -1, CompareMethod.Binary)(1)
    str8 = Strings.Split(str8, "</MetroCode>", -1, CompareMethod.Binary)(0)
    If (str8 = Nothing) Then
        str8 = "-------------"
    End If
End Sub




  Private Sub BricksButton1_Click(ByVal sender As Object, ByVal e As EventArgs)
    Dim expression As String = Me.wg.DownloadString(("http://freegeoip.net/xml/" & Me.BricksTextbox1.Text))
    Dim str5 As String = Strings.Split(expression, "<IP>", -1, CompareMethod.Binary)(1)
    str5 = Strings.Split(str5, "</IP>", -1, CompareMethod.Binary)(0)
    If (str5 = Nothing) Then
        str5 = "-------------"
    End If
    Me.BricksLabel1.Text = str5
    Dim str2 As String = Strings.Split(expression, "<CountryName>", -1, CompareMethod.Binary)(1)
    str2 = Strings.Split(str2, "</CountryName>", -1, CompareMethod.Binary)(0)
    If (str2 = Nothing) Then
        str2 = "-------------"
    End If
    Me.BricksLabel2.Text = str2
    Dim str3 As String = Strings.Split(expression, "<CountryCode>", -1, CompareMethod.Binary)(1)
    str3 = Strings.Split(str3, "</CountryCode>", -1, CompareMethod.Binary)(0)
    If (str3 = Nothing) Then
        str3 = "-------------"
    End If
    Me.BricksLabel3.Text = str3
    Dim client As New WebClient
    Dim bitmap As Bitmap = DirectCast(Image.FromStream(New MemoryStream(client.DownloadData(("http://serverupload.altervista.org/flag/flat/" & str3 & ".png")))), Bitmap)
    Me.PictureBox1.Image = bitmap
    Dim str9 As String = Strings.Split(expression, "<RegionName>", -1, CompareMethod.Binary)(1)
    str9 = Strings.Split(str9, "</RegionName>", -1, CompareMethod.Binary)(0)
    If (str9 = Nothing) Then
        str9 = "-------------"
    End If
    Me.BricksLabel4.Text = str9
    Dim str10 As String = Strings.Split(expression, "<RegionCode>", -1, CompareMethod.Binary)(1)
    str10 = Strings.Split(str10, "</RegionCode>", -1, CompareMethod.Binary)(0)
    If (str10 = Nothing) Then
        str10 = "-------------"
    End If
    Me.BricksLabel5.Text = str10
    Dim str As String = Strings.Split(expression, "<City>", -1, CompareMethod.Binary)(1)
    str = Strings.Split(str, "</City>", -1, CompareMethod.Binary)(0)
    If (str = Nothing) Then
        str = "-------------"
    End If
    Dim str12 As String = Strings.Split(expression, "<ZipCode>", -1, CompareMethod.Binary)(1)
    str12 = Strings.Split(str12, "</ZipCode>", -1, CompareMethod.Binary)(0)
    If (str12 = Nothing) Then
        str12 = "-------------"
    End If
    Me.BricksLabel7.Text = str12
    Dim str11 As String = Strings.Split(expression, "<TimeZone>", -1, CompareMethod.Binary)(1)
    str11 = Strings.Split(str11, "</TimeZone>", -1, CompareMethod.Binary)(0)
    If (str11 = Nothing) Then
        str11 = "-------------"
    End If
    Me.BricksLabel8.Text = str11
    Dim str6 As String = Strings.Split(expression, "<Latitude>", -1, CompareMethod.Binary)(1)
    str6 = Strings.Split(str6, "</Latitude>", -1, CompareMethod.Binary)(0)
    If (str6 = Nothing) Then
        str6 = "-------------"
    End If
    Me.BricksLabel9.Text = str6
    Dim str7 As String = Strings.Split(expression, "<Longitude>", -1, CompareMethod.Binary)(1)
    str7 = Strings.Split(str7, "</Longitude>", -1, CompareMethod.Binary)(0)
    If (str7 = Nothing) Then
        str7 = "-------------"
    End If
    Me.BricksLabel10.Text = str7
    Dim str8 As String = Strings.Split(expression, "<MetroCode>", -1, CompareMethod.Binary)(1)
    str8 = Strings.Split(str8, "</MetroCode>", -1, CompareMethod.Binary)(0)
    If (str8 = Nothing) Then
        str8 = "-------------"
    End If
End Sub
Herkesin bir bedeli vardır, önemli olan ise bunun ne olduğunu öğrenebilmektir.
Cevapla
#10
bakalım
Ara
Cevapla


İP ADRESİNDEN KONUM BULMA || Ajanlar.org Özel Konusu Araçları
Direk Link
HTML Link
BBCode Link
Paylaş


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Ajanlar.Org İndex Çalıcı /Snifer ilk Aşama :) SKYERZ 12 3,697 04.05.2020, Saat:18:42
Son Yorum: Crew Time
  İnstagram Hesap Açma Botu | version:Ajanlar CL4Y3R 15 3,749 09.01.2020, Saat:17:15
Son Yorum: pozan111
  BrutForce Özel MuSaLLaT 119 22,605 09.01.2020, Saat:16:57
Son Yorum: pozan111
  Kimlik Bulma Programı/2017 Güncel #RootCoder 28 6,316 23.12.2019, Saat:05:57
Son Yorum: hayrom222
  [Aranıza Katılmam Şerefine] Özel Çalışım Link.Tl Bot V1.0 Albatrosss 3 972 11.09.2018, Saat:13:10
Son Yorum: vadesign


izmir escort izmir escort gaziantep escort canlı bahis siteleri tipobet bahis siteleri kaçak iddaa canlı bahis mobilbahis deneme bonusu deneme bonusu bodrum escort kuşadası escort türkçe altyazılı porno hack forum porno escort izmit antalya escort maltepe escort seks sohbet hattı canlı sohbet hattı mersin escort