İP ADRESİNDEN KONUM BULMA || Ajanlar.org Özel

Mancinik · 11 Haz 2015

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ı

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

PROGRAM İNDİRME LİNKİ:

Gizli içeriği görüntüleme kayıtlı kullanıcılar için mevcuttur!

Zanlı · 11 Haz 2015

bakalımda bu sitelerin programların çoğu bilgiyi yanlış veriyor

maviejder · 11 Haz 2015

eline sağlık

kemalbat · 11 Haz 2015

bakalım

Nefes · 11 Haz 2015

Programı Kullanmıcam ama emeğine teşşekürü verdim kardeşim.

Arayüz çok hoş olmuş. Hangi dilde yazdınız.

Mancinik · 11 Haz 2015

Zanlı' Alıntı:
bakalımda bu sitelerin programların çoğu bilgiyi yanlış veriyor

Hocam programı kullanmadan ön yargılı davranmayalım

maviejder' Alıntı:
eline sağlık

Yardımcı olduysam ne mutlu bana

kemalbat' Alıntı:
bakalım

Bakın Bakalım

Nefes' Alıntı:
Programı Kullanmıcam ama emeğine teşşekürü verdim kardeşim. Arayüz çok hoş olmuş. Hangi dilde yazdınız.

Ben teşekkür ederim, vb.net kullandım hocam

Antidote · 12 Haz 2015

bakalım

// Ne olursa olsun virus total unutma :-/
Virus Total

Mancinik · 12 Haz 2015

Antidote' Alıntı:
bakalım // Ne olursa olsun virus total unutma :-/
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.

Antidote · 12 Haz 2015

Kodlarda temiz

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

DeceHacker · 12 Haz 2015

bakalım

Mancinik · 12 Haz 2015

Antidote' Alıntı:

Kodlarda temiz

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

Hocam bana karşı bir gareziniz mi var? Yada herkese mi böylesiniz? Emeğe saygısızlık etmeyelim...

Dipnot: Ayrıca zarar vermek istesem bu yollara başvurmadan hallederim.. şimdiye kadar bu forumda yardımcı olmak için varoldum yaptığınız terbiyesizliktir..

Antidote · 12 Haz 2015

Mancinik' Alıntı:

Antidote' Alıntı:

Kodlarda temiz

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

Hocam bana karşı bir gareziniz mi var? Yada herkese mi böylesiniz? Emeğe saygısızlık etmeyelim...

Dipnot: Ayrıca zarar vermek istesem bu yollara başvurmadan hallederim.. şimdiye kadar bu forumda yardımcı olmak için varoldum yaptığınız terbiyesizliktir..

Ben bu forumda moderator analizciydim kardeşim malesef okul işlerim oldundan ara verdim sadece emek demissin kodlar alıntı bişi demiyorum sadece insanlar burada güvenli bir dosya alısverişi yapsın analiz ettim yabancı forumlardada böyledir bu kural adamlar kaynak koduna kadar ister incelemek çünkü forumda bir kişi viruslu bir şey indirse hep forumun adına leke gelir.

tcvatandasi · 12 Haz 2015

bakalım

Mancinik · 12 Haz 2015

Antidote' Alıntı:

Mancinik' Alıntı:

Antidote' Alıntı:

Kodlarda temiz

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

Hocam bana karşı bir gareziniz mi var? Yada herkese mi böylesiniz? Emeğe saygısızlık etmeyelim...

Dipnot: Ayrıca zarar vermek istesem bu yollara başvurmadan hallederim.. şimdiye kadar bu forumda yardımcı olmak için varoldum yaptığınız terbiyesizliktir..

Ben bu forumda moderator analizciydim kardeşim malesef okul işlerim oldundan ara verdim sadece emek demissin kodlar alıntı bişi demiyorum sadece insanlar burada güvenli bir dosya alısverişi yapsın analiz ettim yabancı forumlardada böyledir bu kural adamlar kaynak koduna kadar ister incelemek çünkü forumda bir kişi viruslu bir şey indirse hep forumun adına leke gelir.

hocam anlıyorum sizi fakat üslubunuz insana hakaret eder, yaptığı işe küfür eder gibi.. Dosyayı taratırsın eyvAllah programın kaynak kodlarına KENDİN bakarsın onada eyvAllah zaten gizlim saklım olsa kodları gizlerdim ama kodları burada paylaşıp "-Akıllı ol ben senden daha iyiyim" dermiş gibi yorum yapmanız terbiyesizliktir.

sandokan216 · 12 Haz 2015

sagol kardesim

Sifreciler · 13 Haz 2015

teşekkürler +1

notollerance · 13 Haz 2015

eywallah

emreclone · 13 Haz 2015

eline sağlık

Antidote · 13 Haz 2015

Mancinik' Alıntı:

Antidote' Alıntı:

Mancinik' Alıntı:

Antidote' Alıntı:

Kodlarda temiz

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

Hocam bana karşı bir gareziniz mi var? Yada herkese mi böylesiniz? Emeğe saygısızlık etmeyelim...

Dipnot: Ayrıca zarar vermek istesem bu yollara başvurmadan hallederim.. şimdiye kadar bu forumda yardımcı olmak için varoldum yaptığınız terbiyesizliktir..

Ben bu forumda moderator analizciydim kardeşim malesef okul işlerim oldundan ara verdim sadece emek demissin kodlar alıntı bişi demiyorum sadece insanlar burada güvenli bir dosya alısverişi yapsın analiz ettim yabancı forumlardada böyledir bu kural adamlar kaynak koduna kadar ister incelemek çünkü forumda bir kişi viruslu bir şey indirse hep forumun adına leke gelir.

hocam anlıyorum sizi fakat üslubunuz insana hakaret eder, yaptığı işe küfür eder gibi.. Dosyayı taratırsın eyvAllah programın kaynak kodlarına KENDİN bakarsın onada eyvAllah zaten gizlim saklım olsa kodları gizlerdim ama kodları burada paylaşıp --Akıllı ol ben senden daha iyiyim" dermiş gibi yorum yapmanız terbiyesizliktir.

Ben öyle bir şey ima etmedim kimse kimseden iyi değildir.Yeni oldugundan böyle şeylere biraz takılırsın başta geldimde benimde dosyalarımın kodlarını yazarlardı önceki mod arkadaşlar bu kötü bir şey deil senin yanlıs anlamandan ibaret

Sid3s · 13 Haz 2015

Büyüklük allaha mahsustur

Tebrikler

İP ADRESİNDEN KONUM BULMA || Ajanlar.org Özel

Yeni Üye

Yeni Üye

Yeni Üye

*Vıp Projection

Yeni Üye

Yeni Üye

Özel Üye

Yeni Üye

Özel Üye

Spys-Z

Yeni Üye

Özel Üye

Spys-Z

Yeni Üye

Forumdan Uzaklaştırıldı

Forumdan Uzaklaştırıldı

Forumdan Uzaklaştırıldı

Spys-Z

Özel Üye

Özel Üye