Aranan Anahtar Kelimeye Göre Siteniz Google’da Kaçinci Sirada Çikiyor.

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

Proje dosyasi

Exe dosyasi

.

Saygilarimla,

Serkan Bal
Bilg. Müh.

Tags:

9 thoughts on “Aranan Anahtar Kelimeye Göre Siteniz Google’da Kaçinci Sirada Çikiyor.

  •  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.

Bir cevap yazın

E-posta hesabınız yayımlanmayacak.