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

#11
(12.06.2015, Saat:09:29)Antidote Adlı Kullanıcıdan Alıntı: 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

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..
Hiç Kimse Başarı Merdivenlerini Elleri Cebinde Çıkmamıştır.
Ara
Cevapla
#12
(12.06.2015, Saat:14:08)Mancinik Adlı Kullanıcıdan Alıntı:
(12.06.2015, Saat:09:29)Antidote Adlı Kullanıcıdan Alıntı: 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

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.
Herkesin bir bedeli vardır, önemli olan ise bunun ne olduğunu öğrenebilmektir.
Cevapla
#13
bakalım
Ara
Cevapla
#14
(12.06.2015, Saat:14:18)Antidote Adlı Kullanıcıdan Alıntı:
(12.06.2015, Saat:14:08)Mancinik Adlı Kullanıcıdan Alıntı:
(12.06.2015, Saat:09:29)Antidote Adlı Kullanıcıdan Alıntı: 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

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.
Hiç Kimse Başarı Merdivenlerini Elleri Cebinde Çıkmamıştır.
Ara
Cevapla
#15
sagol kardesim
Ara
Cevapla
#16
teşekkürler +1
Ara
Cevapla
#17
eywallah
Ara
Cevapla
#18
eline sağlık
[+] Bu dahil, tüm genellemeler yanlıştır. [+]
[-] Mark Twain [-]
Ara
Cevapla
#19
(12.06.2015, Saat:16:01)Mancinik Adlı Kullanıcıdan Alıntı:
(12.06.2015, Saat:14:18)Antidote Adlı Kullanıcıdan Alıntı:
(12.06.2015, Saat:14:08)Mancinik Adlı Kullanıcıdan Alıntı:
(12.06.2015, Saat:09:29)Antidote Adlı Kullanıcıdan Alıntı: 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

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
Herkesin bir bedeli vardır, önemli olan ise bunun ne olduğunu öğrenebilmektir.
Cevapla
#20
Büyüklük allaha mahsustur Gülümseme Tebrikler
sid3sblog.wordpress.com
Herkes görmek istediğini görür
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,704 04.05.2020, Saat:18:42
Son Yorum: Crew Time
  İnstagram Hesap Açma Botu | version:Ajanlar CL4Y3R 15 3,754 09.01.2020, Saat:17:15
Son Yorum: pozan111
  BrutForce Özel MuSaLLaT 119 22,621 09.01.2020, Saat:16:57
Son Yorum: pozan111
  Kimlik Bulma Programı/2017 Güncel #RootCoder 28 6,321 23.12.2019, Saat:05:57
Son Yorum: hayrom222
  [Aranıza Katılmam Şerefine] Özel Çalışım Link.Tl Bot V1.0 Albatrosss 3 976 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