Criei este script para lhe dar acesso com apenas um clique a vários estados de espírito.
Funciona somente para a música que ESTÁ TOCANDO no momento.
Você precisa salvá-lo na seção Auto scripts como um arquivo .vbs e recarregar o media monkey. Ele criará um painel encaixável. Se você fechar o painel, poderá reabri-lo indo para o menu View, vá para o final e é "Mood Setting Panel"

Quando você clica em uma das caixas de seleção de humor, ela adiciona isso ao humor da música, se ainda não estiver lá. Ela também adiciona os pontos e vírgulas para vários humores.

Ao editar o código abaixo nos locais que marquei, você pode alterar a posição e o número das caixas de seleção, bem como os gêneros que deseja que elas definam.

Deve ser fácil modificar o código para criar outro painel que permita fazer a mesma coisa com Ocasiões ou qualquer outro campo de texto.

Eu mal entendo de programação em VBScript ou Mediamonkey, então não poderei atender a nenhuma solicitação sobre isso. Alguém com mais tempo e disposição pode resolver isso para você!
Aproveitar

Gostaria de agradecer à equipe de desenvolvimento da Mediamonkey por fazer um produto tão incrível que permite que você faça tanto por conta própria e depois expanda usando código. Supera o Itunes facilmente.


[código]



Dim Mnu, Pnl, Lbl, Lbl2

Sub OnStartup
Definir UI = SDB.UI

Defina Pnl = UI.NewDockablePersistentPanel("TestingPanel")
se Pnl.IsNew então
Pnl.DockedTo = 2
Pnl.Common.Largura = 250
fim se
Pnl.Caption = "Painel de configuração de humor"
Script.RegisterEvent Pnl, "OnClose", "PnlClose"

Definir Lbl = UI.NewLabel(Pnl)
Lbl.Autosize = falso
Lbl.Multiline = verdadeiro
Lbl.Common.SetRect 10, 10, Pnl.Common.Largura-20, Pnl.Common.Altura-20
Lbl.Common.Âncoras = 15 '1+2+4+8

'não altere nada acima desta linha


' USE ESTA PARTE PARA EDITAR CAIXAS DE SELEÇÃO GÊNERO e posição
'Altere as legendas das caixas de seleção para os gêneros que você deseja
'Use "SetRect" para alterar a posição de cada caixa de seleção
'Copie e cole 6 linhas de código de caixa de seleção para adicionar uma nova caixa de seleção
'Todos os cliques nas caixas de seleção são manipulados pelo manipulador de eventos 1 na parte inferior
'que olha para a legenda do controle que o chama



Defina ChB = UI.NewCheckBox( Pnl)
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 3, 0, 100, 20
'esquerda, topo, largura, altura
ChB.Caption = "Épico"
Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


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


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


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


Defina 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"


Defina 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"


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


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


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


Defina 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"

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


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


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


Defina ChB = UI.NewCheckBox( Pnl)
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 123, 120, 100, 20
ChB.Caption = "Diversão"
Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"







''não altere nada abaixo desta linha


' Adicionar item de menu que mostra o painel depois que ele é fechado
Definir Sep = SDB.UI.AddMenuItemSep(SDB.UI.Menu_View,0,0)
Defina Mnu = SDB.UI.AddMenuItem(SDB.UI.Menu_View,0,0)
Mnu.Caption = "Painel de configuração de humor"
Mnu.Checked = Pnl.Common.Visível
Script.RegisterEvent Mnu, "OnClick", "ShowPanel"

Script.RegisterEvent SDB, "OnChangedSelection", "OnSelection"
Fim do sub

Sub Painel de Exibição (Item)
Pnl.Common.Visible = não Pnl.Common.Visible
Mnu.Checked = Pnl.Common.Visível
Fim do sub

Sub PnlFechar(Item)
Mnu.Checked = falso
Fim do sub

Sub OnSelection

Fim do sub


Sub ChBClique( ChB)



Dim objSongList , objSongData
Defina objSongList = SDB.NewSongList

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

Dim StringMood, StringNewMood, StringAddMood
StringMood = objDadosDaMúsica.Mood

StringAddMood = ";" & ChB.Caption


Se InStr(StringMood,ChB.Caption) = 0 Então
'Old Mood não contém o que você verificou.
StringNewMood = StringMood e StringAddMood

objSongData.Mood = StringNovoMood
objSonglist.Atualizar tudo

Fim Se ' Se o Old Mood contiver o New Mood, nenhuma ação será tomada.
ChB.Checked = falso

Fim do sub





[/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
Enviado por mutronbiphase
Atualizado 31/05/2012