Code: Select all
'1. Save this text as 'test.vbs' in the Scripts-folder of MediaMonkey
'2. Add this Section to Scripts.ini
'[Test]
'FileName=test.vbs
'ProcName=test
'DisplayName=test
'Description=test
'Language=VBScript
'ScriptType=0
'3. restart MediaMonkey
'4. you'll find "Test" under Tools/Scripts
Option Explicit
Sub test
Dim list,i
Set list = SDB.CurrentSongList
If list.Count = 0 Then
i = SDB.MessageBox("There are no selected tracks.",mtInformation,Array(mbOk))
Set list = Nothing
Exit Sub
End If
Dim Song : Set Song = list.Item(0)
i = SDB.MessageBox(Song.Rating, mtInformation, Array(mbOk))
End sub