Script for EvilLyrics Menu Button

[jaxjon]

Code: Select all

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 oShell
  Set oShell = CreateObject ("WSCript.shell")
  oShell.run "H:\EvilLyrics\EvilLyrics.exe"
  Set oShell = Nothing
  
End Sub

Put in Scripts\Auto dir.

Question, I created an icon for EL and named it Menu068.ico and put it in icon dir, did not work. How do I change the IconIndex to account for this new icon? Thanks

[jiri]

Thanks for the script, good idea!

As for the icon, there currently isn't any way how to add custom icons but we plan to add it to the next version.

Jiri