Sign in to follow this  
Followers 0
muhmuuh

Band style guessing script

2 posts in this topic

#1 ·  Posted (edited)

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.

Share this post


Link to post
Share on other sites



I'm not amazed by it, but its a good script for a autoit newbie! :)

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  
Followers 0