[GET] Google Suggestor (Adds Letters and Vowels)

[Gogetta 263]

Made this tool to find all of the long tail keywords suggested by google. The scripts adds the entire alphabet along with vowels in front as well as to the back of your keywords for deep searching of suggestions. Add on to it or use it as it is. Try to stick with no more than a couple keywords at the max.

 

ui block text("Keywords:", #keywords)
clear list(%save vowels)
clear list(%loaded keywords)
add list to list(%loaded keywords, $list from text(#keywords, $new line), "Delete", "Global")
add vowels()
clear list(%save scrape)
set(#thread control, 0, "Global")
loop($list total(%save vowels)) {
   increment(#thread control)
   thread {
       in new browser {
           allow images("Yes")
           allow flash("Yes")
           allow css("Yes")
           google scrape($next list item(%save vowels))
       }
       decrement(#thread control)
   }
   loop while($comparison(#thread control, ">=", 5)) {
       wait(1)
   }
}
define google scrape(#keyword in use) {
   navigate("http://www.google.com", "Wait")
   change attribute(<name="q">, "value", #keyword in use)
   wait(1)
   wait for browser event("Everything Loaded", "")
   add item to list(%save scrape, $scrape attribute(<class="gssb_e">, "innertext"), "Delete", "Global")
}
clear list(%final list)
loop($list total(%save scrape)) {
   add list to list(%final list, $list from text($next list item(%save scrape), $new line), "Delete", "Global")
}
set(#write out, $text from list(%final list, $new line), "Global")
set(#write out, $replace(#write out, $new line, "<br/>"), "Global")
load html(#write out)
define add vowels {
   clear list(%save vowels)
   clear list(%loaded keywords)
   add list to list(%loaded keywords, $list from text(#keywords, $new line), "Delete", "Global")
   loop($list total(%loaded keywords)) {
       set(#keyword in use, $next list item(%loaded keywords), "Global")
       clear list(%abc)
       add list to list(%abc, $list from text("a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z", ","), "Delete", "Global")
       add item to list(%save vowels, #keyword in use, "Delete", "Global")
       loop($list total(%abc)) {
           set(#abc in use, $next list item(%abc), "Global")
           add item to list(%save vowels, "{#abc in use} \"{#keyword in use}\"", "Delete", "Global")
           add item to list(%save vowels, "\"{#keyword in use}\" {#abc in use}", "Delete", "Global")
           clear list(%vowels)
           add list to list(%vowels, $list from text("a,e,i,o,u", ","), "Delete", "Global")
           loop($list total(%vowels)) {
               set(#vowel in use, $next list item(%vowels), "Global")
               add item to list(%save vowels, "{#vowel in use}{#abc in use} \"{#keyword in use}\"", "Delete", "Global")
               add item to list(%save vowels, "{#abc in use}{#vowel in use} \"{#keyword in use}\"", "Delete", "Global")
               add item to list(%save vowels, "\"{#keyword in use}\" {#abc in use}{#vowel in use}", "Delete", "Global")
               add item to list(%save vowels, "\"{#keyword in use}\" {#vowel in use}{#abc in use}", "Delete", "Global")
           }
       }
   }
   set(#write out, $text from list(%save vowels, $new line), "Global")
   set(#write out, $replace(#write out, $new line, "<br/>"), "Global")
   load html(#write out)
}

Google Suggestor (Shared).ubot

[wakins4u 12]

Thanks for the share, matey!

 

checking it out now.

 

W.

[AutoIM 5]

Thanks for the share Gogetta, nice one. +1

[Brutal 164]

Thanks! - This was great timing. I was about to have to write this exact code, so you really saved me some time!

[prosperer888 1]

Thanks gogetta.....can you make examples how to take a proxy on first line on the text file and delete it ? i'm still new with ubot and need some help for that