'----------------------------------------------------------------
'			CloseMyAlbum
'
' This script is for closing MyAlbum from a slideshow.
'
' Add a dummy picture as the last picture of your album and set
' its Play Command to:
'	script|CloseMyAlbum.vbs|-|1
' (you may need to supply the actual path of the script file
'  before "CloseMyAlbum.vbs")
' When the slideshow will reach the last picture, the script will
' be launched and MyAlbum will close.
'----------------------------------------------------------------

Option Explicit

const WM_SYSCOMMAND = &H0112
const SC_CLOSE      = 61536 '&HF060

dim alb
set alb = app.GetCurrentAlbum

' First close the full screen display
alb.CloseDisplay
' Then close the application
app.SendMessage True, 0, WM_SYSCOMMAND,SC_CLOSE,0