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
=====================================
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
=====================================