저는 여러분께 한 번의 클릭으로 다양한 기분에 접근할 수 있는 권한을 제공하기 위해 이 스크립트를 만들었습니다.
현재 재생 중인 노래에만 적용됩니다.
자동 스크립트 섹션에 .vbs 파일로 저장하고 미디어 몽키를 다시 로드해야 합니다. 도킹 가능한 패널이 생성됩니다. 패널을 닫으면 보기 메뉴로 가서 아래로 가서 "무드 설정 패널"을 다시 열 수 있습니다.

무드 체크박스 중 하나를 클릭하면 노래의 무드에 추가됩니다(아직 없는 경우). 또한 여러 무드에 대한 세미콜론도 추가합니다.

아래 코드 중 제가 표시한 부분을 편집하면 체크박스의 위치와 개수, 그리고 설정하고 싶은 장르를 변경할 수 있습니다.

코드를 수정하여 Occasions나 다른 텍스트 필드에서 동일한 작업을 수행할 수 있는 또 다른 패널을 만드는 것은 충분히 쉽습니다.

저는 VBScript나 Mediamonkey 프로그래밍에 대한 지식이 거의 없어서 이에 대한 요청은 제가 할 수 없습니다. 시간과 의욕이 더 많은 분이 대신 해 주실 수 있을 겁니다!
즐기다

저는 Mediamonkey의 개발팀에 감사드리고 싶습니다. 혼자서도 많은 것을 할 수 있고, 코드를 사용하여 확장할 수 있는 멋진 제품을 만들어 주었습니다. Beats Itunes easy.


[암호]



Dim Mnu, Pnl, Lbl, Lbl2

서브 온스타트업
UI 설정 = SDB.UI

Pnl = UI.NewDockablePersistentPanel("TestingPanel") 설정
Pnl.IsNew이면
Pnl.도킹됨 = 2
Pnl.공통.너비 = 250
종료하면
Pnl.Caption = "기분 설정 패널"
스크립트.RegisterEvent Pnl, "OnClose", "PnlClose"

Lbl = UI.NewLabel(Pnl) 설정
Lbl.자동 크기 = 거짓
Lbl.Multiline = 참
Lbl.Common.SetRect 10, 10, Pnl.Common.Width-20, Pnl.Common.Height-20
Lbl.Common.Anchors = 15 '1+2+4+8

'이 줄 위에 있는 것은 아무것도 변경하지 마세요


' 이 부분을 사용하여 체크박스 장르 및 위치를 편집합니다.
'체크박스 캡션을 원하는 장르로 변경하세요.
'SetRect'를 사용하여 각 체크박스의 위치를 변경합니다.
'체크박스 코드 6줄을 복사하여 붙여넣어 새 체크박스를 추가합니다.
'체크박스에 대한 모든 클릭은 하단에 있는 1개의 이벤트 핸들러에 의해 처리됩니다.
'이를 호출하는 컨트롤의 캡션을 살펴봅니다.



ChB = UI.NewCheckBox(Pnl) 설정
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 3, 0, 100, 20
'왼쪽, 위, 너비, 높이
ChB.Caption = "에픽"
스크립트.RegisterEvent ChB.Common, "OnClick", "ChBClick"


ChB = UI.NewCheckBox(Pnl) 설정
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 123, 0, 100, 20
ChB.Caption = "결정됨"
스크립트.RegisterEvent ChB.Common, "OnClick", "ChBClick"


Chb = UI.NewCheckBox(Pnl) 설정
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 3, 20, 100, 20
ChB.Caption = "슬픈"
스크립트.RegisterEvent ChB.Common, "OnClick", "ChBClick"


ChB = UI.NewCheckBox(Pnl) 설정
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 123, 20, 100, 20
ChB.Caption = "행복하다"
스크립트.RegisterEvent ChB.Common, "OnClick", "ChBClick"


Chb = UI.NewCheckBox(Pnl) 설정
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 3, 40, 100, 20
ChB.Caption = "에테리얼"
스크립트.RegisterEvent ChB.Common, "OnClick", "ChBClick"


ChB = UI.NewCheckBox(Pnl) 설정
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 123, 40, 100, 20
ChB.Caption = "평화로운"
스크립트.RegisterEvent ChB.Common, "OnClick", "ChBClick"


Chb = UI.NewCheckBox(Pnl) 설정
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 3, 60, 100, 20
ChB.Caption = "어리석은"
스크립트.RegisterEvent ChB.Common, "OnClick", "ChBClick"


ChB = UI.NewCheckBox(Pnl) 설정
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 123, 60, 100, 20
ChB.Caption = "무섭다"
스크립트.RegisterEvent ChB.Common, "OnClick", "ChBClick"


Chb = UI.NewCheckBox(Pnl) 설정
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 3, 80, 100, 20
ChB.Caption = "화가 났다"
스크립트.RegisterEvent ChB.Common, "OnClick", "ChBClick"


ChB = UI.NewCheckBox(Pnl) 설정
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 123, 80, 100, 20
ChB.Caption = "로맨틱"
스크립트.RegisterEvent ChB.Common, "OnClick", "ChBClick"

Chb = UI.NewCheckBox(Pnl) 설정
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 3, 100, 100, 20
ChB.Caption = "모험심"
스크립트.RegisterEvent ChB.Common, "OnClick", "ChBClick"


ChB = UI.NewCheckBox(Pnl) 설정
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 123, 100, 100, 20
ChB.Caption = "인기"
스크립트.RegisterEvent ChB.Common, "OnClick", "ChBClick"


Chb = UI.NewCheckBox(Pnl) 설정
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 3, 120, 100, 20
ChB.Caption = "멋지다"
스크립트.RegisterEvent ChB.Common, "OnClick", "ChBClick"


ChB = UI.NewCheckBox(Pnl) 설정
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 123, 120, 100, 20
ChB.Caption = "재밌다"
스크립트.RegisterEvent ChB.Common, "OnClick", "ChBClick"







''이 줄 아래에 있는 것은 아무것도 변경하지 마세요


' 패널을 닫은 후 표시되는 메뉴 항목 추가
Sep 설정 = SDB.UI.AddMenuItemSep(SDB.UI.Menu_View,0,0)
Mnu = SDB.UI.AddMenuItem(SDB.UI.Menu_View,0,0) 설정
Mnu.Caption = "기분 설정 패널"
Mnu.Checked = Pnl.Common.Visible
스크립트.RegisterEvent Mnu, "OnClick", "ShowPanel"

Script.RegisterEvent SDB, "OnChangedSelection", "OnSelection"
서브 종료

하위 ShowPanel(항목)
Pnl.Common.Visible = Pnl.Common.Visible이 아닙니다.
Mnu.Checked = Pnl.Common.Visible
서브 종료

Sub PnlClose(항목)
Mnu.Checked = 거짓
서브 종료

하위 선택

서브 종료


Sub ChBClick(ChB)



Dim objSongList, objSongData
objSongList = SDB.NewSongList로 설정합니다.

objSongData = SDB.Player.CurrentSong으로 설정합니다.
objSongList.Add(objSongData)

Dim StringMood, StringNewMood, StringAddMood
StringMood = objSongData.Mood

StringAddMood = ";" & ChB.Caption


InStr(StringMood,ChB.Caption) = 0이면
'올드 무드에는 귀하가 선택한 내용이 포함되어 있지 않습니다.
StringNewMood = StringMood & StringAddMood

objSongData.Mood = 문자열새로운무드
objSonglist.UpdateAll

End If ' Old Mood에 New Mood가 포함되어 있는 경우 아무런 작업도 수행되지 않습니다.
ChB.체크됨 = 거짓

서브 종료





[/암호]

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
제출자 mutronbiphase
업데이트됨 31/05/2012