' create shell object
Set WshShell = CreateObject("WScript.Shell")

' Create uPlayer Object
Set uPlayer = CreateObject("uPlayer.uPlayerdB")

' optionally set collection and zone
' any which are "" are ignored
' if never called then default used:
'   collection=(global)
'   zone=waveout:-1:(default)
'Call uPlayer.SetCollectionZone("collection", "waveout:-1:(default)")


' Enqueue A File, if 0=normal queue, 1=priority enqueued
'Call uPlayer.Enqueue("z:\p2.wav", 0)
'Call uPlayer.Enqueue("z:\p1.wav", 1)

' Skip track
'Call uPlayer.SkipNext()

' Skip to previous
'Call uPlayer.SkipPrevious()

' Skip to % in current
'Call uPlayer.SkipToPC(75)

' get and set volume (1 to 100)
'Dim vol
'vol = uPlayer.Volume
'vol = 100
'uPlayer.Volume = vol

' Play a Track
'Call uPlayer.Play("z:\p1.wav")

' Mute 
' Call uPlayer.Mute

' UnMute 
' Call uPlayer.UnMute

'If (UPlayer.IsMuted) Then
' ' if muted
'End If

' Pause
'Call uPlayer.Pause

' UnPause
' Call uPlayer.UnPause

'If (UPlayer.IsPaused) Then
' ' if paused
'End If

' Close all uPlayers
'Call uPlayer.Close

'If (uPlayer.IsLoaded) Then
'	Call WshShell.Popup("uPlayer Loaded", , "Test", 0)
'End If

' Load Player (and start playback of queued files
'Call uPlayer.Load

If (uPlayer.IsStopped = 0) Then
	Call WshShell.Popup("uPlayer Playing", , "Test", 0)
End If

' read properties
Call WshShell.Popup(uPlayer.FilePlaying, , "Now Playing", 0)
' uPlayer.PlayingLengthMS
' uPlayer.PlayingPositionPC
' uPlayer.PlayingPositionMS
' uPlayer.PlayingBitRate
' uPlayer.PlayingChannels
' uPlayer.PlayingBitsPerSample
' uPlayer.PlayingSamplesPerSec

if (uPlayer.PlayingPropsChanged <> 0) Then
' if any of the above have changed since last call
End If