

trixmoto wrote:Does the "GenreFinder Settings" option sheet appear in the options? Does the toolbar icon appear (looks like a magnifying glass)? Have you tried restarting MM after installing the script?



Select Case que.Item("run")
Case "tracks"
prog.Text = "GenreFinder: Processing track '"&itm.Title&"' - "&cur&"/"&max
str = "http://ws.audioscrobbler.com/1.0/track/"&fixurl(itm.ArtistName)&"/"&fixurl(itm.Title)&"/toptags.xml"
res = "Response"
Case "albums"
prog.Text = "GenreFinder: Processing album '"&itm.Name&"' - "&cur&"/"&max
Dim tmp : Set tmp = itm.Tracks.Item(0)
str = "http://ws.audioscrobbler.com/1.0/track/"&fixurl(tmp.ArtistName)&"/"&fixurl(tmp.Title)&"/toptags.xml"
res = "Response3"
que.Item("trk") = 1
Dim arr : arr = Split(que.Item("fld"),"|")
For cur = 0 To UBound(arr)
que.Item("alb"&Left(arr(cur),1)) = ""
Next
Case "artists"
prog.Text = "GenreFinder: Processing artist '"&itm.Name&"' - "&cur&"/"&max
str = "http://ws.audioscrobbler.com/1.0/artist/"&fixurl(itm.Name)&"/toptags.xml"
res = "Response2"
Case Else
Call ClearUp("Sorry, unknown run mode '"&que.Item("run")&"'.",mtError)
Exit Sub
End Select

Users browsing this forum: psbot [Picsearch] and 14 guests