Album Art - Script Please

[Bmac]

well, all i want is that when a song plays, the album art in bottom right cornor will mazamize to the whole window, and will do so when it changes songs... i love shuffle and album art xD.

PEACE.

[Bmac]

bump!!!

[nohitter151]

You're more than welcome to write your own script...

http://www.mediamonkey.com/wiki/index.php/Scripting

[Bmac]

You're more than welcome to write your own script...

http://www.mediamonkey.com/wiki/index.php/Scripting

thanks, but im new to media monkey, and so far everything i read is always pages long and i dont really understand it, im not even sure how to use scripts that well either.

sorry

[pl5bnsf]

Here is how I display the album art of the currently playing song as a tiled wallpaper.
The wallpaper changes as the songs change. The album art MUST be embedded in
the mp3 file, it does not handle art stored as separate files.

Download the Irfanview graphics viewer program from http://www.irfanview.net.
That will be used to convert the album art to a bmp file.

Update your script.ini file by adding the section shown below:

========================
[ShowCover]
FileName=ShowCover.vbs
ProcName=ShowCover
DisplayName=Show Cover
Description=Show Cover
Language=VBScript
ScriptType=2
====================

Place this script in your Scripts directory, name it ShowCover.vbs
Update the "c:\bin\irfanview\i_view32.exe" value to the actual location i_view32 is installed.
Change c:\Tmp if needed to an existing temp directory.

=================================================
Sub ShowCover

Set fso = SDB.Tools.FileSystem

Set itm = SDB.Player.CurrentSong

Set AlbumArt = itm.AlbumArt

if (AlbumArt.count > 0) Then

Set Image = AlbumArt.Item(0).Image

fname = "Cover.jpg"
Set falbum = fso.CreateTextFile( "C:\tmp\Cover.jpg", True)
falbum.WriteData Image.ImageData, Image.ImageDataLen

falbum.close

' Prepare WScript.Shell object, which can be used for execution of applications
Set WShell = CreateObject("WScript.Shell")

WShell.Run "c:\bin\irfanview\i_view32.exe c:\tmp\Cover.jpg /silent /convert=c:\tmp\Cover.bmp", 7, 1

WShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", "c:\tmp\Cover.bmp"
WShell.RegWrite "HKCU\Control Panel\Desktop\TileWallpaper","1"
WShell.run "rundll32.exe user32.dll,UpdatePerUserSystemParameters 1,True"

end if

end sub
=====================================