Merhabalar,
Kendi ihtiyacim için yapmis oldugum Google’da belirtilen keywords için sitenizin kaçinci sayfada oldugunu gösteren programi istek üzerine paylasiyorum.
Kodlari fazla açiklama ihtiyaci duymuyorum çünkü oldukça basit. Bir WebBrowser ve birkaç zamanlayici. Web browser Navigate özelligini tamamladiginda diger sayfaya geçiyor.
Button1 ve Browser kodlari mantigin anlasilmasi için yeterlidir.
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
Timer1.Enabled = True : Me.Text = "Processing."
Bulundu = "Hayir" : i = 0
Label3.Visible = False
LinkLabel1.Visible = False
WebBrowser1.Navigate("" & googletxt.text & "/search?hl=" & combobox1.text & "&q=" & KeywordsTxt.Text & "&start=0&sa=N")
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Lookup()
End Sub
Sub Lookup()
If Bulundu = "Evet" Then
Me.Text = "Google Page Number Finder"
Timer1.Enabled = False
Exit Sub
End If
If i = 50 Then
Exit Sub
MsgBox("Bulunamadi!")
Me.Text = "Google Page Number Finder"
Timer1.Enabled = False
End If
TextBox1.Text = WebBrowser1.DocumentText
IcerigeBak()
If i = 0 Then
WebBrowser1.Navigate("" & GoogleTxt.Text & "/search?hl=" & combobox1.text & "&q=" & KeywordsTxt.Text & "&start=0&sa=N")
Else
WebBrowser1.Navigate("" & GoogleTxt.Text & "/search?hl=" & combobox1.text & "&q=" & KeywordsTxt.Text & "&start=" & i & "0&sa=N")
End If
i = i + 1
End Sub
Sub IcerigeBak()
If Replace(TextBox1.Text, WebTxt.Text, "") <> TextBox1.Text Then
Bulundu = "Evet"
i = i – 1
If i = 0 Then
LinkLabel1.Visible = True : Label3.Visible = True
LinkLabel1.Text = "" & GoogleTxt.Text & "/search?hl=" & ComboBox1.Text & "&q=" & KeywordsTxt.Text & "&start=0&sa=N"
Else
LinkLabel1.Visible = True : Label3.Visible = True
LinkLabel1.Text = "" & GoogleTxt.Text & "/search?hl=" & ComboBox1.Text & "&q=" & KeywordsTxt.Text & "&start=" & i & "0&sa=N"
End If
End If
End Sub
Saygilarimla,
Serkan Bal
Bilg. Müh.
Gerçekten hizli uygulama, herkese tavsiye ederim…
http://www.amokas.com çok güzel bir uygulama hem de çok hizli herkese tavsiye ederim, google yahoo ve bing için sonuç veriyor
@myilmaz adam tarafsiz olmak amaciyla yapilan yorumu onaylamak zorunda. ama senin yazilara bu sekilde yorum yapman yazara saygisizlik diye düsünüyorum. sahsen senin yorumlarin forum sitelerinde yapilacak cinsten diye düsünüyorum. :):):):
@cakabo bana niye tas atiyorsun arkadasim,maksat bilgi paylasimi degil mi,bende yorumlarda bunu amaçliyorum 😉 yanlis yorumda bulunuyorsam ztn @msk yorumlarimi onaylamaz bile di mi ?;)
Guzel yorumunuz için tesekkür ederiz. Program için tavsiyenizide makaleyi yazan arkadas muhakkak dikkate alacaktir.
Yapmis oldugunuz paylasim için tesekkür ederim. Belki de bu paylasimi kullanarak pek çok arkadasimiz daha güzel projeler ortaya çikaracaktir. Ancak 2 konuda lafim olacak. 1. si Programi denedim ama bana senin siten su sirada çikiyor demiyor sadece bulundugu sayfayi belirtiyor. Keske X. siradasin diye kesin birsey söyleseydi. 2.si ise böyle güzel bir site için site sahibine ve yazarlarina bir tesekkürü bir borç bilirim. Ziyaretçilerin de buna benzer projenin aynisi surada var, bunu su sitede de bulabilirsin gibi yorum yazacagina hiç yazmasin daha iyi diye düsünüyorum. Aksi durumda yaziyi yazan arkadasimiza hakaret ediyor gibi bir durumun ortaya çiktigini düsünüyorum ki bu da saygisizlik olur. Siz ayni kalitenizi koruyun. Durmak yok yola devam 🙂 Ayrica yazar arkadaslarimiz benim siteme de bir iki karalama yapmaz mi yaw :):):)
@serkan amaç bilgi paylasimi 😉
Arkadasinin sitesi bi ise yaramaz, 300 sonuç gösteriyo, ilk 30 sayfa 🙂 + Google’deki yerini göremiyosun + bi ise yaramaz.
erhan burhan adli bir arkadasimi php de yazdigi ve http://www.gopof.com adli sitesinden sundugu hizmette bu dogrultuda kullanilabilir.