Chips wrote: how to contact peke?

rovingcowboy wrote:Who said im late? That is pekes v1.1 of script its only for one list in script at a time, i use it for its simple way of editing it, but it takes one copy of the script for each playlist change try using pekes v2 of script where you are able to type in multiple playlists to one script,, it should be the script exe you download in first post of this thread. The only thing i did to his script when i sent that to you was add instructions comments at top all coding is pekes, but i see in what you posted the top line " name..... needs to have ' in front of it like the other comment lines and blank lines even the blank line at top of notepad the (if wsh) line is start of code and should not have ' as its first character, because the ' signifys statement for human to read not computer. But peke should be the one you ask for help on his script. I was just helping answer how to use it so he could deal with making other great scripts,

NAME: Mediamonkey Scheduled Playlist Start v1.1
'
' AUTHOR: Peke
' DATE : 16.10.2005
'
' INSTALL: 1. Read info above line with 'Playlist ='
' 2. Just start Script in Scheduled time and MediaMonkey Will play
' desired playlist.
'
' COMMENT: This is third party Windows Host Script that takes advantage of
' MediaMonkey to play desired Playlist at desired time.
'
' NOTE: Mediamonkey needs to be started before script executes
'
'==========================================================================
If WSH.Arguments.Count > 0 Then
Dim SDB, WSHShell, MMpath, Command, Result, Songs, i
Set WSHShell = CreateObject("WScript.Shell")
Result = WSHShell.AppActivate("MediaMonkey")
If Not(Result) Then
MMpath = WSHShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\MediaMonkey_is1\InstallLocation")
If MMpath <> "" Then
Command = Chr(34)&MMpath&"mediamonkey.exe"&Chr(34)
Result = WSHShell.Run(Command,1,0)
While WSHShell.AppActivate("MediaMonkey") = False
Wend
End If
End If
WSHShell = Null
Set SDB = CreateObject("SongsDB.SDBApplication")
SDB.ShutdownAfterDisconnect = False
SDB.player.playlistclear
For i = 0 To (WSH.Arguments.Count-1)
sdb.player.playlistaddtracks(SDB.PlaylistByTitle(WSH.Arguments.Item(i)).tracks)
Next
If SDB.Player.isPlaying or SDB.Player.isPaused Then
SDB.Player.Stop
End If
Sdb.player.currentSongIndex = 0
SDB.player.Play
If SDB.player.currentSongIndex > 0 Then
SDB.player.currentSongIndex = 0
End If
End If

Mediamonkey Scheduled Playlist Start v1.1
'
' AUTHOR: Peke
' DATE : 16.10.2005
'
' INSTALL: 1. Read info above line with 'Playlist ='
' 2. Just start Script in Scheduled time and MediaMonkey Will play
' desired playlist.
'
' COMMENT: This is third party Windows Host Script that takes advantage of
' MediaMonkey to play desired Playlist at desired time.
'
' NOTE: Mediamonkey needs to be started before script executes
'
'==========================================================================
If WSH.Arguments.Count > 0 Then
Dim SDB, WSHShell, MMpath, Command, Result, Songs, i
Set WSHShell = CreateObject("WScript.Shell")
Result = WSHShell.AppActivate("MediaMonkey")
If Not(Result) Then
MMpath = WSHShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\MediaMonkey_is1\InstallLocation")
If MMpath <> "" Then
Command = Chr(34)&MMpath&"mediamonkey.exe"&Chr(34)
Result = WSHShell.Run(Command,1,0)
While WSHShell.AppActivate("MediaMonkey") = False
Wend
End If
End If
WSHShell = Null
Set SDB = CreateObject("SongsDB.SDBApplication")
SDB.ShutdownAfterDisconnect = False
SDB.player.playlistclear
For i = 0 To (WSH.Arguments.Count-1)
sdb.player.playlistaddtracks(SDB.PlaylistByTitle(WSH.Arguments.Item(i)).tracks)
Next
If SDB.Player.isPlaying or SDB.Player.isPaused Then
SDB.Player.Stop
End If
Sdb.player.currentSongIndex = 0
SDB.player.Play
If SDB.player.currentSongIndex > 0 Then
SDB.player.currentSongIndex = 0
End If
End If