by Guest » Sun Feb 24, 2008 7:59 am
hi,
i edited this script and the problem is, that it doesn#t matter mm3 on which node i click .. everytime it opens the same radio .. only if i load a new one from the browser it loads it .. but then it loads this everytime on every node =/
Code: Select all
'====================================================================================
'
' MEDIAMONKEY SCRIPT: StreamsTreeNode v1.1 by Steegy aka RC (Ruben Castelein)
'
' Adds internet streams (or something else) as nodes, to the library node
' ..released 22.02.2006 (last updated 2006-12-13)
'
' You can manually change/add the streams using the "StreamsNodes.Add" lines (in Sub OnStartup)
' e.g. .Add "DI Trance", Array("http://160.79.128.40:7050", "Digitally Imported")
' >> Shows a stream node "DI Trance" in the subnode "Digitally Imported", that links to "http://160.79.128.40:7050"
'
' FORMAT: .Add "CAPTION", Array("LOCATION", "CATEGORY")
' if there is no CATEGORY specified, the node is added to the main "Internet Streams" node
'
' Set USE_EXTERNAL_PLAYER to True to use an external player (default is False: use internal MM player)
' The location to the external player that can play internet streams (e.g. Winamp) must be set using PlayerEXE
'
'====================================================================================
Option Explicit
Dim StreamsNodes : Set StreamsNodes = CreateObject("Scripting.Dictionary")
Dim Categories : Set Categories = CreateObject("Scripting.Dictionary")
Const USE_EXTERNAL_PLAYER = False ' If you set this to True, the player specified as PlayerEXE will be used to play the streams
Dim PlayerEXE : PlayerEXE = """" & "C:\Program Files\Winamp\Winamp.exe" & """" ' As default, Winamp is set as external player
Dim Tree : Set Tree = SDB.MainTree
Sub OnStartup
With StreamsNodes
'MainStreams
.Add "Rock/Metal/Alternative", Array("http://extreme-high.rautemusik.fm/listen.pls", "")
' shit (subcategory "shit")
.Add "ChroniX Aggression", Array("http://www.chronixradio.com/chronixaggression/listen/listen.pls", "shit")
.Add "The Buzz", Array("http://www.shoutcast.com/sbin/shoutcast-playlist.pls?rn=8591&file=filename.pls", "shit")
.Add "Rock/Punk/Alternative", Array("http://www.shoutcast.com/sbin/shoutcast-playlist.pls?rn=5067&file=filename.pls", "shit")
End With
Dim BaseNode : Set BaseNode = Tree.CreateNode
BaseNode.Caption = "Internet Streams"
BaseNode.IconIndex = 56
Tree.AddNode Tree.Node_MyComputer, BaseNode, 1
Dim StreamsNodesKeys : StreamsNodesKeys = StreamsNodes.Keys
Dim i, ChildNode, SubNode, Location, Category
For i = 0 To StreamsNodes.Count - 1
Location = StreamsNodes(StreamsNodesKeys(i))(0)
Category = StreamsNodes(StreamsNodesKeys(i))(1)
Set ChildNode = Tree.CreateNode
ChildNode.Caption = StreamsNodesKeys(i)
ChildNode.IconIndex = 40
ChildNode.CustomData = Location
ChildNode.UseScript = Script.ScriptPath
ChildNode.OnFillTracksFunct = "OpenStream"
If Category = "" Then
Tree.AddNode BaseNode, ChildNode, 3
Else
Set SubNode = CreateOrGetSubnode(BaseNode, Category, 56, 3)
Tree.AddNode SubNode, ChildNode, 3
End If
Next
End Sub
Sub OpenStream(Node)
If Not USE_EXTERNAL_PLAYER Then
Dim StreamSong : Set StreamSong = SDB.NewSongData
StreamSong.Path = Node.CustomData
StreamSong.Title = Node.Caption
SDB.Player.PlaylistAddTrack StreamSong
SDB.Player.PlaylistMoveTrack SDB.Player.PlaylistCount - 1, 0
SDB.Player.Stop
SDB.Player.CurrentSongIndex = 0
SDB.Player.Play
Else
Dim WShell : Set WShell = CreateObject("WScript.Shell")
Dim Command : Command = PlayerEXE & " " & Node.CustomData
Call WShell.Run(Command, 1, 0)
End If
End Sub
Function CreateOrGetSubnode(ParentNode, Caption, IconIndex, RelativePosition)
If Categories.Exists(Caption) Then
Set CreateOrGetSubnode = Categories(Caption)
Else
Set CreateOrGetSubnode = Tree.CreateNode
CreateOrGetSubnode.Caption = Caption
CreateOrGetSubnode.IconIndex = IconIndex
Tree.AddNode ParentNode, CreateOrGetSubnode, RelativePosition
Categories.Add Caption, CreateOrGetSubnode
End If
End Function
hi,
i edited this script and the problem is, that it doesn#t matter mm3 on which node i click .. everytime it opens the same radio .. only if i load a new one from the browser it loads it .. but then it loads this everytime on every node =/
[code]
'====================================================================================
'
' MEDIAMONKEY SCRIPT: StreamsTreeNode v1.1 by Steegy aka RC (Ruben Castelein)
'
' Adds internet streams (or something else) as nodes, to the library node
' ..released 22.02.2006 (last updated 2006-12-13)
'
' You can manually change/add the streams using the "StreamsNodes.Add" lines (in Sub OnStartup)
' e.g. .Add "DI Trance", Array("http://160.79.128.40:7050", "Digitally Imported")
' >> Shows a stream node "DI Trance" in the subnode "Digitally Imported", that links to "http://160.79.128.40:7050"
'
' FORMAT: .Add "CAPTION", Array("LOCATION", "CATEGORY")
' if there is no CATEGORY specified, the node is added to the main "Internet Streams" node
'
' Set USE_EXTERNAL_PLAYER to True to use an external player (default is False: use internal MM player)
' The location to the external player that can play internet streams (e.g. Winamp) must be set using PlayerEXE
'
'====================================================================================
Option Explicit
Dim StreamsNodes : Set StreamsNodes = CreateObject("Scripting.Dictionary")
Dim Categories : Set Categories = CreateObject("Scripting.Dictionary")
Const USE_EXTERNAL_PLAYER = False ' If you set this to True, the player specified as PlayerEXE will be used to play the streams
Dim PlayerEXE : PlayerEXE = """" & "C:\Program Files\Winamp\Winamp.exe" & """" ' As default, Winamp is set as external player
Dim Tree : Set Tree = SDB.MainTree
Sub OnStartup
With StreamsNodes
'MainStreams
.Add "Rock/Metal/Alternative", Array("http://extreme-high.rautemusik.fm/listen.pls", "")
' shit (subcategory "shit")
.Add "ChroniX Aggression", Array("http://www.chronixradio.com/chronixaggression/listen/listen.pls", "shit")
.Add "The Buzz", Array("http://www.shoutcast.com/sbin/shoutcast-playlist.pls?rn=8591&file=filename.pls", "shit")
.Add "Rock/Punk/Alternative", Array("http://www.shoutcast.com/sbin/shoutcast-playlist.pls?rn=5067&file=filename.pls", "shit")
End With
Dim BaseNode : Set BaseNode = Tree.CreateNode
BaseNode.Caption = "Internet Streams"
BaseNode.IconIndex = 56
Tree.AddNode Tree.Node_MyComputer, BaseNode, 1
Dim StreamsNodesKeys : StreamsNodesKeys = StreamsNodes.Keys
Dim i, ChildNode, SubNode, Location, Category
For i = 0 To StreamsNodes.Count - 1
Location = StreamsNodes(StreamsNodesKeys(i))(0)
Category = StreamsNodes(StreamsNodesKeys(i))(1)
Set ChildNode = Tree.CreateNode
ChildNode.Caption = StreamsNodesKeys(i)
ChildNode.IconIndex = 40
ChildNode.CustomData = Location
ChildNode.UseScript = Script.ScriptPath
ChildNode.OnFillTracksFunct = "OpenStream"
If Category = "" Then
Tree.AddNode BaseNode, ChildNode, 3
Else
Set SubNode = CreateOrGetSubnode(BaseNode, Category, 56, 3)
Tree.AddNode SubNode, ChildNode, 3
End If
Next
End Sub
Sub OpenStream(Node)
If Not USE_EXTERNAL_PLAYER Then
Dim StreamSong : Set StreamSong = SDB.NewSongData
StreamSong.Path = Node.CustomData
StreamSong.Title = Node.Caption
SDB.Player.PlaylistAddTrack StreamSong
SDB.Player.PlaylistMoveTrack SDB.Player.PlaylistCount - 1, 0
SDB.Player.Stop
SDB.Player.CurrentSongIndex = 0
SDB.Player.Play
Else
Dim WShell : Set WShell = CreateObject("WScript.Shell")
Dim Command : Command = PlayerEXE & " " & Node.CustomData
Call WShell.Run(Command, 1, 0)
End If
End Sub
Function CreateOrGetSubnode(ParentNode, Caption, IconIndex, RelativePosition)
If Categories.Exists(Caption) Then
Set CreateOrGetSubnode = Categories(Caption)
Else
Set CreateOrGetSubnode = Tree.CreateNode
CreateOrGetSubnode.Caption = Caption
CreateOrGetSubnode.IconIndex = IconIndex
Tree.AddNode ParentNode, CreateOrGetSubnode, RelativePosition
Categories.Add Caption, CreateOrGetSubnode
End If
End Function[/code]