[MM2+3] Search Google, Wikipedia, Last.fm, ...

[onkel_enno]

As a Wish of Mhesse, here is a small script which creates 2 Entries in the Find more From - Menu-Item to Search google for "the Artist" or "the Artist and the Album".
Maybe someone else needs it too.
BTW: The URL google.de can easily be changed

- Create a file Google.vbs in Scripts\Auto and paste the code into it.
- Start MM.
- Enjoy!

Code: Select all

Sub OnStartUp
   SDB.UI.AddMenuItemSep SDB.UI.Menu_Pop_TrackList_MoreFrom, -1, -1
   SDB.UI.AddMenuItemSep SDB.UI.Menu_Pop_NP_MoreFrom, -1, -1
   
   Dim MenuItem
   Set MenuItem = SDB.UI.AddMenuItem(SDB.UI.Menu_Pop_TrackList_MoreFrom, -1, -1)
   MenuItem.Caption = SDB.Localize("Artist") + " (google.de)"
   MenuItem.IconIndex = 37
   MenuItem.OnClickFunc = "Google"
   MenuItem.UseScript = Script.ScriptPath
   MenuItem.Hint = "Artist"
   
   Set MenuItem = SDB.UI.AddMenuItem(SDB.UI.Menu_Pop_NP_MoreFrom, -1, -1)
   MenuItem.Caption = SDB.Localize("Artist") + " (google.de)"
   MenuItem.IconIndex = 37
   MenuItem.OnClickFunc = "Google"
   MenuItem.UseScript = Script.ScriptPath
   MenuItem.Hint = "Artist"
   
   Set MenuItem = SDB.UI.AddMenuItem(SDB.UI.Menu_Pop_TrackList_MoreFrom, -1, -1)
   MenuItem.Caption = SDB.Localize("Album") + " (google.de)"
   MenuItem.IconIndex = 37
   MenuItem.OnClickFunc = "Google"
   MenuItem.UseScript = Script.ScriptPath
   MenuItem.Hint = "Album"
   
   Set MenuItem = SDB.UI.AddMenuItem(SDB.UI.Menu_Pop_NP_MoreFrom, -1, -1)
   MenuItem.Caption = SDB.Localize("Album") + " (google.de)"
   MenuItem.IconIndex = 37
   MenuItem.OnClickFunc = "Google"
   MenuItem.UseScript = Script.ScriptPath
   MenuItem.Hint = "Album"
   
   Set MenuItem = Nothing
End Sub

Sub Google(MenuItem)
   if SDB.SelectedSongList.Count > 0 then
      Dim Song
      Set Song = SDB.SelectedSongList.Item(0)
      Dim Artist
      Dim Album
   
      Artist = "%22" + Replace(Song.ArtistName, " ", "%20") + "%22"
      Artist = Replace(Artist, "&", "%26")
      Album = "%22" + Replace(Song.AlbumName, " ", "%20") + "%22"
      Album = Replace(Album, "&", "%26")
      
      Dim WshShell
      Set WshShell = CreateObject("WScript.Shell")
      if MenuItem.Hint = "Artist" then
         WshShell.Run("www.google.de/search?q=" + Artist + "")
      else
         WshShell.Run("www.google.de/search?q=" + Artist + "+" + Album)
      end if
      Set WshShell = Nothing
   end if
end Sub


[trixmoto]

Useful script, I like it!

[Sammy20]

Nice!

Request: Could you make a script so it searches http://www.allmusic.com/ for the artist profile.

Wait, not to sound too greedy, but it would be cool if it had 3 options in a sub-menu to display search results for:

Wikipedia
AMG All music
last.fm

This would be very handy.

[onkel_enno]

Thx you both.

I'm not sure about these 3. I can't find something about URL I can put the Serach Criterias in
Maybe someone else has an idea. Trix?

[Sammy20]

I know of a script that has the search code for those 3 sites. I'll go fetch it now.....

[Lowlander]

Wikipedia:
http://en.wikipedia.org/wiki/Artist

lastfm:
http://www.last.fm/explore/explore.php?artistname=Artist for search and http://www.last.fm/music/Artist for artist page.

allmusic
works with a dll and encrypted url so a no go it seems.

[trixmoto]

Wikipedia: Use the link

Code: Select all

WshShell.Run("http://en.wikipedia.org/wiki/Special:Search?search=" + Artist + "&go=Go")

Allmusic: Doesn't use open search links, not sure how you'd do that.

Last.fm: Use this link

Code: Select all

WshShell.Run("http://www.last.fm/explore/search.php?q=" + Artist + "&m=artists")

[trixmoto]

Looks like Lowlander has beaten me to it!

Although, I'd recommend using the Wikipedia (and Last.fm) search links rather than the direct links, as you get more useful pages if your match does not exist.

[Lowlander]

Figured allmusic out I think:
http://www.allmusic.com/cg/amg.dll?P=amg&OPT1=1&SQL=artist

[Sammy20]

Great, thanks guys.

[onkel_enno]

Nice work guys

[Sammy20]

Well I suck.

I just tried making a script for all those sites. It added in MM successfully, but when I click on it I get a 'unknown name' error message. Here's the code

Code: Select all

 removed by request

Can someone make them for me.

[onkel_enno]

Your OnClickFunc-Method points to Wikipedia, but there is no Wikipedia-Procedure. Rename Sub Google(Menuitem) to Sub Wikipedia(Menuitem).

[Sammy20]

That fixed it. Thank you


Could someone help me with allmusic. I tried your code lowlander and got this result:

http://www.allmusic.com/cg/amg.dll?P=am ... s%22&go=Go

Here's my code:

Code: Select all

 Removed by request

[Lowlander]

For allmusic you would need to do this I think:

Code: Select all

Artist = Replace(Song.ArtistName, " ", "")

You also don't need this in the url

Code: Select all

&go=Go