Hice este script para brindarte acceso con un solo clic a múltiples estados de ánimo.
Solo funciona para la canción que se está reproduciendo actualmente.
Debes guardarlo en la sección Scripts automáticos como archivo .vbs y volver a cargar Media Monkey. Se creará un panel acoplable. Si cierras el panel, puedes volver a abrirlo yendo al menú Ver, abajo, y selecciona "Panel de configuración de ambiente".

Al marcar una de las casillas de estado de ánimo, se añade al estado de ánimo de la canción si aún no está. También se añaden los puntos y comas para varios estados de ánimo.

Al editar el código a continuación en los lugares que marqué, puede cambiar la posición y el número de las casillas de verificación, así como los géneros que desea que establezcan.

Debería ser bastante fácil modificar el código para crear otro panel que le permita hacer lo mismo con Ocasiones o cualquier otro campo de texto.

Apenas sé programar en VBScript o Mediamonkey, por lo que no podré atender cualquier solicitud al respecto. ¡Alguien con más tiempo e inclinación puede encargarse de ello por usted!
Disfrutar

Me gustaría agradecer al equipo de desarrollo de Mediamonkey por crear un producto tan fantástico que permite hacer tantas cosas por sí solo y luego expandirlo mediante código. Supera a iTunes fácilmente.


[código]



Dim Mnu, Pnl, Lbl, Lbl2

Sub OnStartup
Establecer UI = SDB.UI

Establecer Pnl = UI.NewDockablePersistentPanel("TestingPanel")
Si Pnl.IsNew entonces
Pnl.Acoplado a = 2
Ancho común Pnl. = 250
terminar si
Pnl.Caption = "Panel de configuración de estado de ánimo"
Script.RegisterEvent Pnl, "AlCerrar", "PnlCerrar"

Establecer Lbl = UI.NewLabel(Pnl)
Lbl.Autosize = falso
Lbl.Multiline = verdadero
Lbl.Common.SetRect 10, 10, Pnl.Common.Width-20, Pnl.Common.Height-20
Lbl.Common.Anchors = 15 '1+2+4+8

'no cambies nada por encima de esta línea


'UTILICE ESTA PARTE PARA EDITAR LAS CASILLAS DE VERIFICACIÓN GÉNERO y posición
'Cambie los subtítulos de las casillas de verificación a los géneros que desee
'Utilice "SetRect" para cambiar la posición de cada casilla de verificación
'Copie y pegue 6 líneas de código de casilla de verificación para agregar una nueva casilla de verificación
'Todos los clics en las casillas de verificación son manejados por el controlador de eventos 1 en la parte inferior
'que mira el título del control que lo llama



Establecer ChB = UI.NewCheckBox( Pnl)
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 3, 0, 100, 20
'izquierda, arriba, ancho, alto
ChB.Caption = "Épico"
Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


Establecer ChB = UI.NewCheckBox( Pnl)
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 123, 0, 100, 20
ChB.Caption = "Determinado"
Script.RegisterEvent ChB.Common, "AlClic", "ChBClick"


Establecer Chb = UI.NewCheckBox( Pnl)
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 3, 20, 100, 20
ChB.Caption = "Triste"
Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


Establecer ChB = UI.NewCheckBox( Pnl)
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 123, 20, 100, 20
ChB.Caption = "Feliz"
Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


Establecer Chb = UI.NewCheckBox( Pnl)
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 3, 40, 100, 20
ChB.Caption = "Etéreo"
Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


Establecer ChB = UI.NewCheckBox( Pnl)
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 123, 40, 100, 20
ChB.Caption = "Pacífico"
Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


Establecer Chb = UI.NewCheckBox( Pnl)
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 3, 60, 100, 20
ChB.Caption = "Tonto"
Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


Establecer ChB = UI.NewCheckBox( Pnl)
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 123, 60, 100, 20
ChB.Caption = "Aterrador"
Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


Establecer Chb = UI.NewCheckBox( Pnl)
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 3, 80, 100, 20
ChB.Caption = "Enojado"
Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


Establecer ChB = UI.NewCheckBox( Pnl)
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 123, 80, 100, 20
ChB.Caption = "Romántico"
Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"

Establecer Chb = UI.NewCheckBox( Pnl)
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 3, 100, 100, 20
ChB.Caption = "Aventurero"
Script.RegisterEvent ChB.Common, "AlClic", "ChBClick"


Establecer ChB = UI.NewCheckBox( Pnl)
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 123, 100, 100, 20
ChB.Caption = "Popular"
Script.RegisterEvent ChB.Common, "AlClic", "ChBClick"


Establecer Chb = UI.NewCheckBox( Pnl)
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 3, 120, 100, 20
ChB.Caption = "Genial"
Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


Establecer ChB = UI.NewCheckBox( Pnl)
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 123, 120, 100, 20
ChB.Caption = "Diversión"
Script.RegisterEvent ChB.Common, "AlClic", "ChBClick"







''No cambies nada debajo de esta línea


' Agregar elemento de menú que muestra el panel después de cerrarlo
Establecer Sep = SDB.UI.AddMenuItemSep(SDB.UI.Menu_View,0,0)
Establecer Mnu = SDB.UI.AddMenuItem(SDB.UI.Menu_View,0,0)
Mnu.Caption = "Panel de configuración de estado de ánimo"
Mnu.Checked = Pnl.Común.Visible
Script.RegisterEvent Mnu, "Al hacer clic", "Mostrar panel"

Script.RegisterEvent SDB, "OnChangedSelection", "OnSelection"
Fin del subtítulo

Sub ShowPanel(Elemento)
Pnl.Common.Visible = no Pnl.Common.Visible
Mnu.Checked = Pnl.Común.Visible
Fin del subtítulo

Sub PnlClose( Artículo)
Mnu.Checked = falso
Fin del subtítulo

Sub OnSelection

Fin del subtítulo


Sub ChBClick( ChB)



Dim objSongList , objSongData
Establezca objSongList = SDB.NewSongList

Establezca objSongData = SDB.Player.CurrentSong
objSongList.Add(objSongData)

Dim StringMood, StringNewMood, StringAddMood
StringMood = objSongData.Mood

StringAddMood = ";" & ChB.Caption


Si InStr(StringMood,ChB.Caption) = 0 Entonces
'Old Mood no contiene el que usted marcó.
StringNewMood = StringMood y StringAddMood

objSongData.Mood = StringNewMood
objListaDeCanciones.ActualizarTodo

Fin si 'Si el modo anterior contiene el modo nuevo, no se realiza ninguna acción.
ChB.Checked = falso

Fin del subtítulo





[/código]

I made this script to give you one-click access to multiple moods.
It only works for the currently PLAYING song.
You need to save it in the Auto scripts section as a .vbs file, and reload media monkey.  It will create a dockable panel.  If you close the panel you can reopen it by going to the View menu, go to the bottom, and it's "Mood Setting Panel"

When you click one of the mood checkboxes, it adds that to the mood for the song if it's not already on there.  It also adds the semicolons for multiple moods.

By editing the below code in the places I marked out, you can change the position and number of the checkboxes as well as the genres you want them to set.

It should be easy enough to modify the code to make another panel that lets you do the same thing with Occasions or any other text field. 

I hardly know VBScript or Mediamonkey programming so any requests on this I will not be able to do, someone with more time and inclination can pick that up for you!
Enjoy

I would like to thank Mediamonkey's dev team for making such an awesome product that allows you to do so much on its own, and then expand it using code.  Beats Itunes easy.


[code]

 
 
Dim Mnu, Pnl, Lbl, Lbl2
 
Sub OnStartup
  Set UI = SDB.UI
 
  Set Pnl = UI.NewDockablePersistentPanel("TestingPanel")
  if Pnl.IsNew then
    Pnl.DockedTo = 2
    Pnl.Common.Width = 250
  end if
  Pnl.Caption = "Mood Setting Panel"
  Script.RegisterEvent Pnl, "OnClose", "PnlClose"
 
  Set Lbl = UI.NewLabel(Pnl)
  Lbl.Autosize = false
  Lbl.Multiline = true
  Lbl.Common.SetRect 10, 10, Pnl.Common.Width-20, Pnl.Common.Height-20
  Lbl.Common.Anchors = 15  '1+2+4+8

'don't change anything above this line


' USE THIS PART TO EDIT CHECK BOXES GENRE and position
'Change Checkbox Captions to Genres you want
'Use "SetRect" to change position of each checkbox
'Copy paste 6 lines of checkbox code to add a new checkbox
'All clicks to checkboxes are handled by the 1 event handler at the bottom
'which looks at the caption of the control that calls it



 Set ChB = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 3, 0, 100, 20
'left, top, width, height
  ChB.Caption = "Epic"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


 Set ChB = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
 ChB.Common.SetRect 123, 0, 100, 20
  ChB.Caption = "Determined"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


 Set Chb = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
 ChB.Common.SetRect 3, 20, 100, 20
  ChB.Caption = "Sad"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


 Set ChB = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
 ChB.Common.SetRect 123, 20, 100, 20
  ChB.Caption = "Happy"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


 Set Chb = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
 ChB.Common.SetRect 3, 40, 100, 20
  ChB.Caption = "Ethereal"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


 Set ChB = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
 ChB.Common.SetRect 123, 40, 100, 20
  ChB.Caption = "Peaceful"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


 Set Chb = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
 ChB.Common.SetRect 3, 60, 100, 20
  ChB.Caption = "Goofy"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


 Set ChB = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
 ChB.Common.SetRect 123, 60, 100, 20
  ChB.Caption = "Scary"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


 Set Chb = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
 ChB.Common.SetRect 3, 80, 100, 20
  ChB.Caption = "Angry"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


 Set ChB = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
 ChB.Common.SetRect 123, 80, 100, 20
  ChB.Caption = "Romantic"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"

 Set Chb = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
 ChB.Common.SetRect 3, 100, 100, 20
  ChB.Caption = "Adventurous"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


 Set ChB = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
 ChB.Common.SetRect 123, 100, 100, 20
  ChB.Caption = "Popular"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


 Set Chb = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
 ChB.Common.SetRect 3, 120, 100, 20
  ChB.Caption = "Cool"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


 Set ChB = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
 ChB.Common.SetRect 123, 120, 100, 20
  ChB.Caption = "Fun"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"







''don't change anything below this line

 
  ' Add menu item that shows panel after it is closed
  Set Sep = SDB.UI.AddMenuItemSep(SDB.UI.Menu_View,0,0)
  Set Mnu = SDB.UI.AddMenuItem(SDB.UI.Menu_View,0,0)
  Mnu.Caption = "Mood Setting Panel"
  Mnu.Checked = Pnl.Common.Visible
  Script.RegisterEvent Mnu, "OnClick", "ShowPanel"
 
  Script.RegisterEvent SDB, "OnChangedSelection", "OnSelection"
End Sub
 
Sub ShowPanel(Item)
  Pnl.Common.Visible = not Pnl.Common.Visible
  Mnu.Checked = Pnl.Common.Visible
End Sub
 
Sub PnlClose( Item)
  Mnu.Checked = false
End Sub
 
Sub OnSelection
 
End Sub


Sub ChBClick( ChB)



Dim objSongList   , objSongData
 Set objSongList = SDB.NewSongList  

 Set objSongData = SDB.Player.CurrentSong
 objSongList.Add(objSongData)   

Dim StringMood, StringNewMood, StringAddMood
 StringMood = objSongData.Mood

StringAddMood =  ";" & ChB.Caption


If InStr(StringMood,ChB.Caption) = 0 Then
'Old Mood does not contain the one you checked.
StringNewMood = StringMood & StringAddMood

objSongData.Mood = StringNewMood
objSonglist.UpdateAll          

End If '   If Old Mood contains New Mood, no action is taken.
ChB.Checked = false
                       
End Sub





[/code]

Hide original

By mutronbiphase
Presentado por mutronbiphase
Actualizado 31/05/2012