Jump to content

Band style guessing script


muhmuuh
 Share

Recommended Posts

Hello!

This script guesses the style of popular bands. Try it. I guesses the popular ones but sometimes it misses. I really like it.

#include<inet.au3>
#include<ie.au3>
#include <String.au3>
#include <array.au3>
HotKeySet("{ESC}", "oo")
While 1
    $name = InputBox("Hello", "Please type the artists name", "")
    $nnn = StringReplace($name, " ", "+")
    $oie = _IECreate("http://search.yahoo.com/search/dir;_ylt=A0geu6g2_7lHAKEABbeEzbkF?p=%22" & $nnn & "%22&y=Search&fr=&ei=UTF-8", 0, 0)
    $text = _IEBodyReadText($oie)
    $cat = StringSplit($text, "Category: ", 1)
    ;_ArrayDisplay($cat)
    If StringInStr($cat[2], ">") Then
        $cat1 = StringSplit($cat[2], ">")
        $br = 1

        MsgBox(0, "RESULT1:", $cat1[1])
    Else
        MsgBox(0, "RESULT1:", "Sorry, try another")
    EndIf
WEnd


Func oo()
    Exit
EndFunc   ;==>oo

Please give your comments/suggestions/critics.

Thanks

111.au3

Edited by muhmuuh

I ran. I ran until my muscles burned and my veins pumped battery acid. Then I ran some more.

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