Jump to content
Sign in to follow this  

Hate meter

Recommended Posts


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>

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="
       $result=_StringBetween($source,"<div id=resultStats>About "," results<nobr>")
       Return $result

    $tper= 100 / ($ihate + $ilike)
    $per = round($ihate * $tper,2)

    consolewrite($per & @CRLF)
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 :>.

Share this post

Link to post
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
Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.

  • Create New...