This script should not be necessary anymore.
StreamsTreeNode's own forum post.
The StreamsTreeNode script adds a node structure to the library node where you can add internet streams (or anything else) that start when you click on them.
INSTALLER: http://home.scarlet.be/ruben.castelein/ ... eeNode.exe
===========================================================
The script consists of 1 script file ("StreamsTreeNode.vbs").
StreamsTreeNode.vbs (for the Scripts\Auto folder)
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 "DI Trance", Array("http://160.79.128.40:7050", "")
' Digitally Imported (subcategory "Digitally Imported")
.Add "Trance", Array("http://160.79.128.40:7050", "Digitally Imported")
.Add "Eurodance", Array("http://160.79.128.40:7010", "Digitally Imported")
.Add "Vocal Trance", Array("http://160.79.128.40:7004", "Digitally Imported")
.Add "DJ Mixes", Array("http://160.79.128.40:7026", "Digitally Imported")
.Add "Ambient", Array("http://160.79.128.40:7054", "Digitally Imported")
.Add "New Age", Array("http://160.79.128.40:7030", "Digitally Imported")
.Add "Best Of The 80s", Array("http://160.79.128.40:7038", "Digitally Imported")
' Jazz Streams (subcategory "Jazz")
'.Add "FM 91 - Toronto", Array("http://www.jazz.fm/streaming/JAZZFM91.pls", "Jazz")
'.Add "KSBR - Orange County CA", Array("http://www.live365.com/play/59719?membername=&session=ksbrcd%3A0&SaneID=67.97.53.153-1036082540940&lid=691-usa", "Jazz")
'.Add "KCEA - Atherton CA", Array("http://kcea.realfx.net:8000/", "Jazz")
'.Add "KCSM - San Mateo (ogg)", Array("http://hifi.kcsm.org:8040/vorbis2.ogg", "Jazz")
'.Add "KJAZ - San Francisco", Array("http://205.188.215.228:8000", "Jazz")
'.Add "KPLU - Tacoma", Array("http://66.225.205.102:80", "Jazz")
'.Add "KUVO - Denver", Array("http://www.kuvo.org/stream/kuvo_2.pls", "Jazz")
'.Add "KKJZ - Long Beach", Array("http://www.live365.com/play/kkjz1", "Jazz")
'.Add "Jazz a la Mode", Array("http://www.live365.com/play/61471?membername=&session=jazzradiochannel%3A0&SaneID=67.97.53.153-1036082540940&lid=691-usa", "Jazz")
'.Add "Jazz Den", Array("http://listen.thejazzden.org.uk:10025", "Jazz")
'.Add "JazzPlayerRadio", Array("http://www.live365.com/play/elvii1", "Jazz")
'.Add "Modern Jazz", Array("http://64.236.34.196:80/stream/1019", "Jazz")
'.Add "radioioJazz", Array("http://69.28.128.148:80/stream/radioio_jazz_free_hi", "Jazz")
'.Add "WAMC - Albany", Array("http://pubint.ic.llnwd.net/stream/pubint_wamc", "Jazz")
'.Add "WEMU - Ann Arbor", Array("http://164.76.121.201:8000/broadband", "Jazz")
'.Add "WLNZ - Lansing MI", Array("http://www.live365.com/play/273491?membername=&session=wlnzfm%3A0&SaneID=67.97.53.153-1036082540940&lid=691-usa", "Jazz")
'.Add "WNCU - Durham NC", Array("http://152.9.6.199:1910/", "Jazz")
'.Add "WWOZ - New Orleans", Array("http://wwoz-sc.streamguys.com/listen.pls", "Jazz")
' Classical Streams (subcategory "Classical")
'.Add "Classical Music America", Array("http://66.250.45.52:8500", "Classical")
'.Add "InfiniteClassical.com", Array("http://65.39.195.222:2000", "Classical")
'.Add "KBAQ - Phoenix", Array("http://kbaq.org:8080/livestream/connect_high.pls", "Classical")
'.Add "KUAT - Tucson", Array("http://150.135.250.53:9000", "Classical")
'.Add "KUSC - Los Angeles", Array("http://www.kusc.org/streams/kusc96.m3u", "Classical")
'.Add "KWAX - Eugene OR", Array("http://darkwing.uoregon.edu:8000/", "Classical")
'.Add "KXPR - Sacramento", Array("http://66.225.205.53:80", "Classical")
'.Add "magnatune.com Pre 1800", Array("http://magnatune.com/artists/music/Classical/Classical-http_shuffle.m3u", "Classical")
'.Add "Otto's Baroque Music", Array("http://212.72.165.25:9112", "Classical")
'.Add "radioIoClassical", Array("http://69.28.128.148:80/stream/radioio_classical_med", "Classical")
'.Add "Swiss Internet Radio", Array("http://82.197.162.73:80", "Classical")
'.Add "VPR", Array("http://64.202.98.51:8050", "Classical")
'.Add "WCPE - Wake Forest NC", Array("http://www.ibiblio.org/wcpe/wcpe.pls", "Classical")
'.Add "WDAV - Davidson NC", Array("http://www.wdav.org/wdav-112k.pls", "Classical")
'.Add "We Met In Classics", Array("http://220.95.210.103:8000", "Classical")
'.Add "WPSU - Penn State University", Array("http://128.118.86.117:8000/listen.pls", "Classical")
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
Steegy