{"id":190,"date":"2009-02-27T14:40:00","date_gmt":"1970-01-01T00:00:00","guid":{"rendered":"http:\/\/www.yazilimmutfagi.com\/?p=190"},"modified":"2009-02-27T14:40:00","modified_gmt":"1970-01-01T00:00:00","slug":"aranan-anahtar-kelimeye-gore-siteniz-googleda-kacinci-sirada-cikiyor","status":"publish","type":"post","link":"https:\/\/www.yazilimmutfagi.com\/index.php\/2009\/02\/27\/aranan-anahtar-kelimeye-gore-siteniz-googleda-kacinci-sirada-cikiyor\/","title":{"rendered":"Aranan Anahtar Kelimeye G\u00f6re Siteniz Google’da Ka\u00e7inci Sirada \u00c7ikiyor."},"content":{"rendered":"

Merhabalar, <\/span><\/p>\n

Kendi ihtiyacim için yapmis oldugum Google’da belirtilen keywords için sitenizin kaçinci sayfada oldugunu gösteren programi istek üzerine paylasiyorum.<\/span><\/p>\n

Kodlari fazla açiklama ihtiyaci duymuyorum çünkü oldukça basit. Bir WebBrowser ve birkaç zamanlayici. Web browser Navigate <\/strong>özelligini tamamladiginda diger sayfaya geçiyor. <\/span><\/p>\n

.<\/a><\/p>\n

Button1 ve Browser kodlari mantigin anlasilmasi için yeterlidir.<\/span><\/p>\n

   <\/span>Private<\/span> Sub<\/span> button1_Click(ByVal<\/span> sender As<\/span> System.Object, ByVal<\/span> e As<\/span> System.EventArgs) Handles<\/span> button1.Click<\/span><\/p>\n

 <\/span><\/p>\n

        <\/span>Timer1.Enabled = True<\/span> : Me<\/span>.Text = "Processing."<\/span><\/span><\/p>\n

 <\/span><\/p>\n

        <\/span>Bulundu = "Hayir"<\/span> : i = 0<\/span><\/p>\n

        <\/span>Label3.Visible = False<\/span><\/span><\/p>\n

        <\/span>LinkLabel1.Visible = False<\/span><\/span><\/p>\n

 <\/span><\/p>\n

        <\/span>WebBrowser1.Navigate(""<\/span> & googletxt.text & "\/search?hl="<\/span> & combobox1.text & "&q="<\/span> & KeywordsTxt.Text & "&start=0&sa=N"<\/span>)<\/span><\/p>\n

    <\/span>End<\/span> Sub<\/span><\/span><\/p>\n

Private<\/span> Sub<\/span> WebBrowser1_DocumentCompleted(ByVal<\/span> sender As<\/span> Object<\/span>, ByVal<\/span> e As<\/span> System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles<\/span> WebBrowser1.DocumentCompleted<\/span><\/p>\n

        <\/span>Lookup()<\/span><\/p>\n

    <\/span>End<\/span> Sub<\/span><\/span><\/p>\n

 <\/span><\/p>\n

 <\/span><\/p>\n

   <\/span> <\/span>Sub<\/span> Lookup()<\/span><\/p>\n

        <\/span>If<\/span> Bulundu = "Evet"<\/span> Then<\/span><\/span><\/p>\n

            <\/span>Me<\/span>.Text = "Google Page Number Finder"<\/span><\/span><\/p>\n

            <\/span>Timer1.Enabled = False<\/span><\/span><\/p>\n

            <\/span>Exit<\/span> Sub<\/span><\/span><\/p>\n

        <\/span>End<\/span> If<\/span><\/span><\/p>\n

 <\/span><\/p>\n

 <\/span><\/p>\n

        <\/span>If<\/span> i = 50 Then<\/span><\/span><\/p>\n

            <\/span>Exit<\/span> Sub<\/span><\/span><\/p>\n

            <\/span>MsgBox("Bulunamadi!"<\/span>)<\/span><\/p>\n

        <\/span>    <\/span>Me<\/span>.Text = "Google Page Number Finder"<\/span><\/span><\/p>\n

            <\/span>Timer1.Enabled = False<\/span><\/span><\/p>\n

        <\/span>End<\/span> If<\/span><\/span><\/p>\n

 <\/span><\/p>\n

        <\/span>TextBox1.Text = WebBrowser1.DocumentText<\/span><\/p>\n

        <\/span>IcerigeBak()<\/span><\/p>\n

 <\/span><\/p>\n

        <\/span>If<\/span> i = 0 Then<\/span><\/span><\/p>\n

            <\/span>WebBrowser1.Navigate(""<\/span> & GoogleTxt.Text & "\/search?hl="<\/span> & combobox1.text & "&q="<\/span> & KeywordsTxt.Text & "&start=0&sa=N"<\/span>)<\/span><\/p>\n

        <\/span>Else<\/span><\/span><\/p>\n

            <\/span>WebBrowser1.Navigate(""<\/span> & GoogleTxt.Text & "\/search?hl="<\/span> & combobox1.text & "&q="<\/span> & KeywordsTxt.Text & "&start="<\/span> & i & "0&sa=N"<\/span>)<\/span><\/p>\n

        <\/span>End<\/span> If<\/span><\/span><\/p>\n

 <\/span><\/p>\n

        <\/span>i = i + 1<\/span><\/p>\n

    <\/span>End<\/span> Sub<\/span><\/span><\/p>\n

    <\/span>Sub<\/span> IcerigeBak()<\/span><\/p>\n

 <\/span><\/p>\n

        <\/span>If<\/span> Replace(TextBox1.Text, WebTxt.Text, ""<\/span>) <> TextBox1.Text Then<\/span><\/span><\/p>\n

            <\/span>Bulundu = "Evet"<\/span><\/span><\/p>\n

 <\/span><\/p>\n

            <\/span>i = i – 1<\/span><\/p>\n

 <\/span><\/p>\n

            <\/span>If<\/span> i = 0 Then<\/span><\/span><\/p>\n

                <\/span>LinkLabel1.Visible = True<\/span> : Label3.Visible = True<\/span><\/span><\/p>\n

                <\/span>LinkLabel1.Text = ""<\/span> & GoogleTxt.Text & "\/search?hl="<\/span> & ComboBox1.Text & "&q="<\/span> & KeywordsTxt.Text & "&start=0&sa=N"<\/span><\/span><\/p>\n

            <\/span>Else<\/span><\/span><\/p>\n

                <\/span>LinkLabel1.Visible = True<\/span> : Label3.Visible = True<\/span><\/span><\/p>\n

                <\/span>LinkLabel1.Text = ""<\/span> & GoogleTxt.Text & "\/search?hl="<\/span> & ComboBox1.Text & "&q="<\/span> & KeywordsTxt.Text & "&start="<\/span> & i & "0&sa=N"<\/span><\/span><\/p>\n

            <\/span>End<\/span> If<\/span><\/span><\/p>\n

 <\/span><\/p>\n

        <\/span>End<\/span> If<\/span><\/span><\/p>\n

 <\/span><\/p>\n

    <\/span>End<\/span> Sub<\/span><\/span><\/p>\n

Proje dosyasi<\/a><\/span><\/p>\n

Exe dosyasi<\/a><\/span><\/p>\n

.<\/a><\/p>\n

Saygilarimla,<\/span><\/p>\n

Serkan Bal
\nBilg. Müh.<\/span><\/p>","protected":false},"excerpt":{"rendered":"

Kendi ihtiyacim için yapmis oldugum Google\u2019da belirtilen keywords için sitenizin kaçinci sayfada oldugunu gösteren programi istek üzerine paylasiyorum.<\/p>\n","protected":false},"author":541,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[418],"tags":[4371,5122,4403],"_links":{"self":[{"href":"https:\/\/www.yazilimmutfagi.com\/index.php\/wp-json\/wp\/v2\/posts\/190"}],"collection":[{"href":"https:\/\/www.yazilimmutfagi.com\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.yazilimmutfagi.com\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.yazilimmutfagi.com\/index.php\/wp-json\/wp\/v2\/users\/541"}],"replies":[{"embeddable":true,"href":"https:\/\/www.yazilimmutfagi.com\/index.php\/wp-json\/wp\/v2\/comments?post=190"}],"version-history":[{"count":0,"href":"https:\/\/www.yazilimmutfagi.com\/index.php\/wp-json\/wp\/v2\/posts\/190\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.yazilimmutfagi.com\/index.php\/wp-json\/wp\/v2\/media?parent=190"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.yazilimmutfagi.com\/index.php\/wp-json\/wp\/v2\/categories?post=190"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.yazilimmutfagi.com\/index.php\/wp-json\/wp\/v2\/tags?post=190"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}