Sub OnStartup Set UI = SDB.UI UI.AddMenuItemSep UI.Menu_TbStandard, 0, 0 Set Mnu = UI.AddMenuItem( UI.Menu_TbStandard, 0, 0) Mnu.Caption = "EvilLyrics" Mnu.UseScript = Script.ScriptPath Mnu.OnClickFunc = "OnClick" Mnu.IconIndex = 22 Mnu.Hint = "Launch EvilLyrics" End Sub Sub OnClick( Itm) Dim ...

pah68

Yes I agree it will work, takes a bit of time to save 9000 previews though. I like the challenge of trying to code it myself even though it does not work sometimes.

TheRocket

I did not find reference to DoEvents in MSDN Library for VBScript. Thanks.

Well, I tried a number of times to figure this out (need more times). I found that I ran into the same problems with focus and problems with do loops and other looping mechanisms. The player does not do well with loops as the loop is constantly checking the time for when to play next song and the ...

I think I have a script worked out. I will have to test later as I have to work now. Will post tonight if works.

dittos for MYIE2

- Added beta support of new functionality to better integrate scripts with MediaMonkey UI: - Create menu items/ pop-up menu items, toolbar items, tray icon menu items & shortcuts - Create new dialogs with controls to edit lines, buttons, drop downs, etc. - Create any new hierarchy of tree nodes I ...

Awesome!! :D One thing that would be a cool addition would be to allow users to play a preview (30 sec) of a song so they could hear it and listen to what your tastes are. Some musicians/bands I have never heard of, and would be a good way to share your music more with others but hopefully not break ...

Question. How can this script be edited to allow for "a" to be "a" as not first word and "a" to be "A" when is first word? Example "A Farewell to Kings" I am working on a script to allow user to type in an artist name and album name and automatically play the album. So I need to allow for users to ...

Revision to Checker routine to only go to new album when End is the last song ( now when not in playalbum mode the last song will play :D ) Sub Checker Set plr=SDB.Player Set list=plr.CurrentSongList Dim i, itm For i=0 To list.count-1 Set itm=list.Item(i) If ((itm.Title="End") and ((plr ...

Here is an update that has a check to make sure the second track is not the same as the first track in PlayArtist mode. Sub Checker Set plr=SDB.Player If (((plr.PlaylistCount) = (plr.CurrentSongIndex +1)) and (plr.PlaylistCount>3))Then Call PlayAlbum Else If (((plr.PlaylistCount) = (plr ...

Here is my previous script updated with a new routine for generating 2 random songs from a randomly generated artist, commonly known as Two For Tuesday on radio stations here. Once again you need to install a song of no or little sound into the main tracklist and title it End. Here is my file to ...

You could also just have Checker.vbs and add this to Scripts.ini [PlayAlbum] FileName=Checker.vbs ProcName=PlayAlbum Order=1 DisplayName=Play Full Album Description=Plays Full Album Language=VBScript ScriptType=0 [Checker] FileName=Checker.vbs ProcName=Checker Order=1 DisplayName=Checker Description ...

The script now will loop to a new album when finished, in a non simplistic way. I had to create another script and give it a ScriptType=2, this script also has the original script included so it can call it. You need both scripts and references to both in scripts.ini. I also added another file (song ...

Is there a way with scripting to test if the player has stopped or if the playlist has come to an end? plr.stop tells player to stop but returns nothing.

Also, what is the value of CurrentSongIndex while the player has stopped?

Thank you

Alright, this works, but I am still looking for a good way to loop back to the top when the last song has played. Any suggestions? The reason for recognizing only all visible songs is so if you click around in MM main track list then it still picks from the big list. Works best if main track listing ...