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

Mancinik

Yeni Üye
Katılım
15 Mar 2015
Mesajlar
169
Tepkime puanı
1
Puanları
0
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ı

4gOW0q.png


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


PROGRAM İNDİRME LİNKİ:
[hide]
http://www.filedropper.com/mancinikp
[/hide]
 

Zanlı

Yeni Üye
Katılım
5 Haz 2015
Mesajlar
77
Tepkime puanı
0
Puanları
0
bakalımda bu sitelerin programların çoğu bilgiyi yanlış veriyor
 

Nefes

Yeni Üye
Katılım
9 Haz 2015
Mesajlar
31
Tepkime puanı
0
Puanları
0
Yaş
24
Programı Kullanmıcam ama emeğine teşşekürü verdim kardeşim. :) Arayüz çok hoş olmuş. Hangi dilde yazdınız.
 

Mancinik

Yeni Üye
Katılım
15 Mar 2015
Mesajlar
169
Tepkime puanı
1
Puanları
0
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ı:

Yardımcı olduysam ne mutlu bana :)

kemalbat' Alıntı:

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

Özel Üye
Katılım
21 Ocak 2014
Mesajlar
1,015
Tepkime puanı
0
Puanları
0
Web sitesi
ajanlar.org
bakalım :D // Ne olursa olsun virus total unutma :-/
Virus Total
 

Mancinik

Yeni Üye
Katılım
15 Mar 2015
Mesajlar
169
Tepkime puanı
1
Puanları
0
Antidote' Alıntı:
bakalım :D // 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

Özel Üye
Katılım
21 Ocak 2014
Mesajlar
1,015
Tepkime puanı
0
Puanları
0
Web sitesi
ajanlar.org
:D Kodlarda temiz :D 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
 

Mancinik

Yeni Üye
Katılım
15 Mar 2015
Mesajlar
169
Tepkime puanı
1
Puanları
0
Antidote' Alıntı:
:D Kodlarda temiz :D 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

Özel Üye
Katılım
21 Ocak 2014
Mesajlar
1,015
Tepkime puanı
0
Puanları
0
Web sitesi
ajanlar.org
Mancinik' Alıntı:
Antidote' Alıntı:
:D Kodlarda temiz :D 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.
 

Mancinik

Yeni Üye
Katılım
15 Mar 2015
Mesajlar
169
Tepkime puanı
1
Puanları
0
Antidote' Alıntı:
Mancinik' Alıntı:
Antidote' Alıntı:
:D Kodlarda temiz :D 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.
 

emreclone

Spys-Z
Katılım
21 Şub 2015
Mesajlar
233
Tepkime puanı
0
Puanları
0
eline sağlık
 

Antidote

Özel Üye
Katılım
21 Ocak 2014
Mesajlar
1,015
Tepkime puanı
0
Puanları
0
Web sitesi
ajanlar.org
Mancinik' Alıntı:
Antidote' Alıntı:
Mancinik' Alıntı:
Antidote' Alıntı:
:D Kodlarda temiz :D 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
 

mersin escort bodrum escort alanya escort kayseri escort konya escort marmaris escort bodrum escort krill kidz vozol puff sakarya escort sakarya escort bayan serdivan escort adapazarı escort
Üst
Copyright® Ajanlar.org 2012