Hacım ellerıne saglık :)On numareoo beşş yıldısss... Bir de bunun Fotoğraf üzerıne olanı olsa, mesela KALP aratıcaz minik gruntulerle KALP lerin oldugu linklerı verecek... Mumkunmudur kı? İmza YOK!!!

ya ben malım yada program karışık dicektim baktım ben malmışım. indirdik bari yorum atayım eline sağlık hocam :) Japon yolları aşar Alman'ın babaannesi kaşar... https://thepiratebay.org/

Eline sağlık hocam ride or die..

neyi araycaz bunla? onu anlayamadım anladım yazdığımız kelimelerin hangi sitelerde olduğu çıkartıyor.

Selamlar arkadaşlar, malumunuz Googler tarzı gereçler bilinçli kullanımlarla pek çok işe yarıyorlar. Bu sıralar Heartbleed pek gündemde olduğu için Heartbleed'e ynelik bir googler yaptım, nceki Googlerlarımda bulunan ordan kes burdan kes ucuna bunu ekle falanlar filanlar bunda yok. Yalnızca belirlediğiniz arama şeysisini arıyor ve size getiriyor. kendisi burada; http://www.dosya.tc/server28/XWcMug/DNcLoK. rar.html nceden sunduğum perl tabanlı scanner da şurada http://www.tahribat.com/Forum-Sitelistten-Heart-Bleed-Taramasi-Perl-193186/ hayırlı uğurlu olsun. Daha nce başıma geldi, güvenmeyenler, virüsten şüphelenenler olabilir, yok canım yle bişey. al bak kaynak kodları da aşağıda Imports System. Net Public Class Form1 Dim vv As Integer Sub ara On Error Resume Next Dim aa As New WebClient Dim adres1, zb As String adres1 = "https://www.google.co. uk/search?q=" & TextBox4. Text & "&start=" & sayfa. Text Dim ff As String = aa. DownloadString(adres1) If ff = "" Then MessageBox. Show("Google yoruldu :( :( :( daha sonra tekrar dene.", ": sayfa. Text = 0 End If 'büyük if If ff <> zb Then ff = Replace ff = Replace(ff, "%3F", "?") ff = Replace(ff, "%3D", "=") ff = Replace ff = Replace ff = Replace Dim siteler As String = ff. Split(TextBox6. Text) For Each ss As String In siteler If InStr Then If InStr = 0 Then ss = Replace ss = Replace If InStr(TextBox5. Text, ss) = 0 Then TextBox5. Text = TextBox5. Text & ss Label2. Text = Label2. Text + 1 End If End If End If Next sayfa. Text = sayfa. Text + 10 TextBox5. Refresh sayfa. Refresh Me. Refresh vv = vv + 10 If vv - 20 < Label2. Text Then ara End If If vv > Label2. Text Then Beep End If End If End Sub Private Sub Form1_Load Handles MyBase. Load End Sub Private Sub Button3_Click Handles Button3. Click ara End Sub Private Sub Button5_Click Handles Button5. Click End Sub Private Sub Button5_MouseMove Handles Button5. MouseMove Label3. Visible = True Label3. Text = "kopyalar" End Sub Private Sub Form1_MouseMove Handles Me. MouseMove Label3. Visible = False End Sub Private Sub Label2_Click Handles Label2. Click End Sub Private Sub Label2_MouseMove Handles Label2. MouseMove Label3. Visible = True Label3. Text = "bulunan site sayısı" End Sub Private Sub Button3_MouseMove Handles Button3. MouseMove Label3. Visible = True Label3. Text = "aramaya inanır" End Sub Private Sub Button4_Click Handles Button4. Click End Sub Private Sub Button4_MouseMove Handles Button4. MouseMove Label3. Visible = True Label3. Text = "sil baştan başlamak gerek bazen" End Sub Private Sub TextBox4_MouseEnter Handles TextBox4. MouseEnter End Sub Private Sub TextBox4_MouseMove Handles TextBox4. MouseMove Label3. Visible = True Label3. Text = "ne arıyim aabime?" End Sub Private Sub TextBox4_TextChanged Handles TextBox4. TextChanged End Sub Private Sub Label4_Click Handles Label4. Click MessageBox. Show("DeJ-N-cLea hayırlı aramalar diler. xxx kib sçs", " visual basic mi bu? mukemmel.. sevdigim 3 turk atasozu.. 1- besle kargayı atsın iftirayı, 2- yayılma sivril , 3- luzumsuz eşek sucuk olur ve son olarak, 4- ak akçe karagün kara akçe ak gün içindir...

Selamlar arkadaşlar, malumunuz Googler tarzı gereçler bilinçli kullanımlarla pek çok işe yarıyorlar. Bu sıralar Heartbleed pek gündemde olduğu için Heartbleed'e ynelik bir googler yaptım, nceki Googlerlarımda bulunan ordan kes burdan kes ucuna bunu ekle falanlar filanlar bunda yok. Yalnızca belirlediğiniz arama şeysisini arıyor ve size getiriyor. kendisi burada; http://www.dosya.tc/server28/XWcMug/DNcLoK. rar.html nceden sunduğum perl tabanlı scanner da şurada http://www.tahribat.com/Forum-Sitelistten-Heart-Bleed-Taramasi-Perl-193186/ hayırlı uğurlu olsun. Daha nce başıma geldi, güvenmeyenler, virüsten şüphelenenler olabilir, yok canım yle bişey. al bak kaynak kodları da aşağıda Imports System. Net Public Class Form1 Dim vv As Integer Sub ara On Error Resume Next Dim aa As New WebClient Dim adres1, zb As String adres1 = "https://www.google.co. uk/search?q=" & TextBox4. Text & "&start=" & sayfa. Text Dim ff As String = aa. DownloadString(adres1) If ff = "" Then MessageBox. Show("Google yoruldu :( :( :( daha sonra tekrar dene.", ": sayfa. Text = 0 End If 'büyük if If ff <> zb Then ff = Replace ff = Replace(ff, "%3F", "?") ff = Replace(ff, "%3D", "=") ff = Replace ff = Replace ff = Replace Dim siteler As String = ff. Split(TextBox6. Text) For Each ss As String In siteler If InStr Then If InStr = 0 Then ss = Replace ss = Replace If InStr(TextBox5. Text, ss) = 0 Then TextBox5. Text = TextBox5. Text & ss Label2. Text = Label2. Text + 1 End If End If End If Next sayfa. Text = sayfa. Text + 10 TextBox5. Refresh sayfa. Refresh Me. Refresh vv = vv + 10 If vv - 20 < Label2. Text Then ara End If If vv > Label2. Text Then Beep End If End If End Sub Private Sub Form1_Load Handles MyBase. Load End Sub Private Sub Button3_Click Handles Button3. Click ara End Sub Private Sub Button5_Click Handles Button5. Click End Sub Private Sub Button5_MouseMove Handles Button5. MouseMove Label3. Visible = True Label3. Text = "kopyalar" End Sub Private Sub Form1_MouseMove Handles Me. MouseMove Label3. Visible = False End Sub Private Sub Label2_Click Handles Label2. Click End Sub Private Sub Label2_MouseMove Handles Label2. MouseMove Label3. Visible = True Label3. Text = "bulunan site sayısı" End Sub Private Sub Button3_MouseMove Handles Button3. MouseMove Label3. Visible = True Label3. Text = "aramaya inanır" End Sub Private Sub Button4_Click Handles Button4. Click End Sub Private Sub Button4_MouseMove Handles Button4. MouseMove Label3. Visible = True Label3. Text = "sil baştan başlamak gerek bazen" End Sub Private Sub TextBox4_MouseEnter Handles TextBox4. MouseEnter End Sub Private Sub TextBox4_MouseMove Handles TextBox4. MouseMove Label3. Visible = True Label3. Text = "ne arıyim aabime?" End Sub Private Sub TextBox4_TextChanged Handles TextBox4. TextChanged End Sub Private Sub Label4_Click Handles Label4. Click MessageBox. Show("DeJ-N-cLea hayırlı aramalar diler. xxx kib sçs", "<3 <3 <3 <3 <3 <3 <3") End Sub End Class