muhmuuh Posted March 13, 2008 Share Posted March 13, 2008 (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. Thanks111.au3 Edited March 13, 2008 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 More sharing options...
Swift Posted March 14, 2008 Share Posted March 14, 2008 I'm not amazed by it, but its a good script for a autoit newbie! Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now