EvilButton - Launch Evil Lyrics directly from MediaMonkey!!

[mrbug]

Hi all!
as i was bored to launch EvilLyrics from the start menu each time i need it (you know that find the shortcut in the Windows Start Menu maybe HARD if you have many programs installed)... i've created this script.

as i don't know how to make a setup for it i will write here how to install it.

I would like to attach the file here... but this is not possible, so i uploaded the zip and give the url here:
EvilButton.zip

simply EXTRACT THE 2 files in the folder
\Program Files\MediaMonkey\Scripts\Auto\

RESTART MediaMonkey. you will se the new button in the toolbar!




Feel free to improve the code.
I release it under GPL. if you improve it, add you name, but leave intact the original header!

hoping this will be useful to someone!

byes.

[modtang]

This script doesn't work any more. Anyone know how to fix it?

Code: Select all

'Mediamonkey Script
'Title: EVILBUTTON
'Main Author: ADG
'Author Email: explosiver@gmail.com'
'Licence: OPEN SOURCE! - GPL
'Description: Add a Toolbar button in the STANDARD TOOLBAR
'             and a MenuItem in the Tools Menu to launch EvilLyrics 
'             (works if EvilLyrics is already installed in the system)
'Feel free to improve this script,
'in this case add your name and your modification AFTER this comments.
'LEAVE this header INTACT.'


Option Explicit

Sub OnStartUp
	'Dim i : i = SDB.UI.AddOptionSheet("Lyricator", Script.ScriptPath, "InitSheet", "SaveSheet", -3)
	
	dim EvilIconIndex 
  EvilIconIndex=SDB.RegisterIcon( "scripts/auto/EvilLyrics.ico", 0)
	
	'Menu_TbStandard //toolbar standard'

	SDB.UI.AddMenuItemSep SDB.UI.Menu_TbStandard, 0, 0
       
  Dim TBItem : Set TBItem = SDB.UI.AddMenuItem(SDB.UI.Menu_TbStandard, 0, 0) 'Menu_Pop_TrackList
  TBItem.Caption = "Evil Lyrics"
  Script.RegisterEvent TBItem, "OnClick", "LaunchEvil"
  TBItem.IconIndex = EvilIconIndex
  
  'Menu_Tools //Tools Menu'
  SDB.UI.AddMenuItemSep SDB.UI.Menu_Tools, 0, 0
       
  Set TBItem = SDB.UI.AddMenuItem(SDB.UI.Menu_Tools, 0, 0) 'Menu_Pop_TrackList
  TBItem.Caption = "Evil Lyrics"
  Script.RegisterEvent TBItem, "OnClick", "LaunchEvil"
  TBItem.IconIndex = EvilIconIndex
 
End Sub

Sub LaunchEvil (tbMenu) 
  dim objApp
  Set objApp = CreateObject("WScript.Shell")
  objApp.Run "%ProgramFiles%\EvilLyrics\EvilLyrics.exe" 'cmd /C '
end sub

The error I'm getting is:
Error # - 2147024894 -z
File "C:\Program Files\MediaMonkey\Scripts\Auto\EvilButton.vbs", Line: 44, Column: 2

Here's another download link in case you can't get any of the above to work (only one of them worked for me).
http://d01.megashares.com/dl/tuuFHmy/EvilButton.zip