Thank you, now I should be able to keep my now playing list while jumping back and forth between MM versions. These two scripts are a part of my daily arsenal.


Nyn
Code: Select all
'
' MediaMonkey Script
'
' NAME: SaveNowPlaying
'
'
' [SaveNowPlaying]
' FileName=SaveNowPlaying.vbs
' ProcName=SaveNowPlaying
' Order=210
' DisplayName=Save NowPlaying
' Description=Save NowPlaying List to a PlayList
' Language=VBScript
' ScriptType=0
'
'
Option Explicit
Sub OnStartup 'Create Save NowPlaying Menu Item
Dim itm1
Set itm1 = SDB.UI.AddMenuItem(SDB.UI.Menu_Pop_NP,0,0)
itm1.Caption = "Save NowPlaying"
itm1.OnClickFunc = "SaveNowPlaying"
itm1.UseScript = Script.ScriptPath
itm1.IconIndex = 18
itm1.Visible = True
Dim Tmr : Set Tmr = SDB.CreateTimer( 1000*60 ) ' 1 hour Timer Enabled
Tmr.Enabled=true
Script.RegisterEvent Tmr, "OnTimer", "SaveNowPlaying"
End Sub 'OnStartup
Sub SaveNowPlaying(arg)
Dim TopPlayList : Set TopPlaylist = SDB.PlaylistByTitle("")
Dim NewPlayList
Set NewPlayList = TopPlayList.CreateChildPlaylist("Copy of NowPlaying "&dtnum)
If not (NewPlayList is Nothing) Then
NewPlayList.Clear
End If
NewPlayList.AddTracks(SDB.Player.CurrentSongList)
msgbox("Timer triggered - check " & NewPlayList.Title )
End Sub
' Returns a 14 char string which changes every second - should be unique for this application
function dtNum()
dim y,m,d,h,n,s
y = Cstr(DatePart("YYYY",Date))
m = zfill(Cstr(DatePart("m",Date)),2)
d = zfill(Cstr(DatePart("d",Date)),2)
h = zfill(Cstr(DatePart("h",now)),2)
n = zfill(Cstr(DatePart("n",now)),2)
s = zfill(Cstr(DatePart("s",Now)),2)
dtNum = y & m & d & h & n & s
end function
' Left fills with zeros
function zfill(s,n)
dim i,t
t=s
while len(t) < n
t = "0" & t
wend
zfill = t
end function
Code: Select all
1) Run regedit.exe
2) Goto HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0
3) Modify key 1201 = 0