Jump to content

Hate meter


littleclown
 Share

Recommended Posts

Hello.

This is a really simple code to show you the percent of the people that hate something in this moment.

There is no GUI, just console output.

#include <inet.au3>
#include <string.au3>
$maxper=0
$minper=100

Func _search($searchword)
        $searchword=StringReplace($searchword," ","+")
       $searchurl="http://www.google.com/search?hl=en&prmdo=1&tbs=qdr%3An10&tbm=blg&q=%22"& $searchword & "%22&aq=f&aqi=g8g-c1g1&aql=f&oq="
       $source=_INetGetSource($searchurl)
       $result=_StringBetween($source,"<div id=resultStats>About "," results<nobr>")
       $result=StringReplace($result[0],",","")
       Return $result
EndFunc


Do
    $ihate=_search("i+hate")
    $ilike=_search("i+like")
    $tper= 100 / ($ihate + $ilike)
    $per = round($ihate * $tper,2)

    consolewrite($per & @CRLF)
    sleep(10000)
until 5=6

The idea is so simple - I search in all blog posts in the last 10 minutes for the words "I hate" and "I like", and get the percent of the "I hate" results count.

Its fun :unsure:

If you have ideas for other interesting statistics - please share with me :>.

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...