Sample Internal Webbrowser script

' Sample Internal Webbrowser script

' This auto-script uses the internal webbrowser to show a web page when a custom node is clicked.
' The internal webbrowser control is only visible when the node's OnNodeFocused function is correctly implemented.
' The webbrowser is displayed where the tracks listing is normally located.


Sub OnStartup 
  Dim Tree : Set Tree = SDB.MainTree 

  Dim Node : Set Node = Tree.CreateNode 
  Node.Caption = "MediaMonkey Website" 
  Node.IconIndex = 0 
  Script.RegisterEvent Node, "OnNodeFocused", "NodeFocus" 
  Script.RegisterEvent Tree.Node_Artist, "OnNodeFocused", "NodeFocus" 

  Tree.AddNode Tree.Node_Artist, Node, 1     ' Insert our node below the Artist node 
  Node.HasChildren = False 
End Sub 

Function NodeFocus(Node) 
  NodeFocus = 2 
  SDB.WebControl.Navigate "http://www.mediamonkey.com" 
End Function