Imports InnerCore.Api.SonosHttp

Imports System

Imports System.Threading.Tasks

Imports System.Linq

Imports System.Threading

Imports System.Xml.Serialization

'Sonos Playbar: TV;                 192.168.1.109; B8-E9-37-81-2C-0C

'Sonos Play:1: Kitchen;             192.168.1.114; 78-28-CA-9D-B3-BA

​

Public Class Sonos_Http

    Public SonosRooms As List(Of SonosRoom)

    Public Async Sub Test() 'As Task

        'Console.WriteLine("you'll need a running instance of https://github.com/jishi/node-sonos-http-api")

​

        Dim ip = My.Settings.SonosHTTP_IP

​

        Dim port = 5005

​

        Dim client = New SonosClient(ip, port)

​

        Dim zones = Await client.GetAllZones()

​

        Console.WriteLine("the following rooms have been found:")

        For Each roomName In zones.SelectMany(Function(z) z.Members.Select(Function(m) m.RoomName))

            'Console.WriteLine($" - {roomName}")

            SonosRooms.Add(New SonosRoom With {

                .Name = roomName

                })

        Next roomName

​

        Dim roomToChange = zones.FirstOrDefault()?.Members.FirstOrDefault()?.RoomName

​

        If Not String.IsNullOrEmpty(roomToChange) Then

            Console.WriteLine($"lowering volume by 10% on {roomToChange}")

            Await client.SetRelativeVolume(roomToChange, -10)

​

            Thread.Sleep(5000)

​

            Console.WriteLine($"increasing volume by 10% on {roomToChange}")

            Await client.SetRelativeVolume(roomToChange, 10)

​

            Thread.Sleep(5000)

​

            Console.WriteLine($"pause on {roomToChange}")

            Await client.Pause(roomToChange)

​

            Thread.Sleep(5000)

​

            Console.WriteLine($"resume on {roomToChange}")

            Await client.Resume(roomToChange)

​

            Dim r As Models.State = Await client.GetState(roomToChange)

            'r.CurrentTrack

            'r.elapsedTime

            'r.Equalizer

            'r.Mute

            'r.NextTrack

            'r.PlaybackState

            'r.PlayMode

            'r.TrackNumber

            'r.Volume

            Await client.Favorites(roomToChange, "Liked Songs")

            '["BANDIT ROCK","Guldkanalen","Liked Songs","Mix Megapol Malmö","NRJ Sweden","P3","P4 Malmöhus","Top Acoustic Tracks","Top Audiophile Tracks","Top Blues Tracks","Top Classical Tracks","Top country tracks","Top EDM Tracks","Top HipHop Tracks","Top Jazz Tracks","Top Oldies","Top Pop Tracks","Top Rock Tracks","Top Svenska Tracks","Wake Up Classical","Wake Up Funky","Wake Up Nature","Wake Up Weekdays"]

            Await client.Playlist(roomToChange, "Liked Songs")

            'No playlists at the moment

            Await client.Preset("all")

            'Make favourites

        End If

​

​

        'Console.Write("press enter to quit")

        'Console.ReadLine()

    End Sub

​

​

​

    'Client.LockVolumes()

    'Client.UnLockVolumes()

    'Client.PauseAll(Timespan in minutes)'Timespan not neccessary

    'Client.ResumeAll(Timespan in minutes)'Timespan not neccessary

    'Client.ReIndex()

    'Client.SleepAll(Timespan in minutes)'Timespan not neccessary

    'Client.GetState(string zone)

    'Client.Resume(string zone)

    'Client.Pause(string zone)

    'Client.TogglePlayPause(string zone)

    'Client.NextTrack(string zone)

    'Client.PreviousTrack(string zone)

    'Client.SetAbsoluteVolume(string zone, int volume) 'Volume 0->100%

    'Client.SetRelativeVolume(string zone, int volume) 'Volume -100->100%

    'Client.SetAbsoluteGroupVolume(string zone, int volume) 'Volume 0->100%

    'Client.SetRelativeGroupVolume(string zone, int volume) 'Volume -100->100%

    'Client.Mute(string zone)

    'Client.UnMute(string zone)

    'Client.MuteGroup(string zone)

    'Client.UnmuteGroup(string zone)

    'Client.ToggleMute(string zone)

    'Client.LockVolume(string zone)

    'Client.UnlockVolume(string zone)

    'Client.Repeat(string zone, RepeatType repeat) 'Get enumeration of Models.RepeatType 'none, all, one

    'Client.Shuffle(string zone, bool shuffle)

    'Client.Crossfade(string zone, bool crossfade)

    'Client.AddToGroup(string zone, string zoneToAdd)

    'Client.RemoveFromGroup(string zone, string zoneToRemove)

    'Client.Isolate(string zone)

    'Await client.Favorites(roomToChange, "Liked Songs")

    'Await client.Playlist(roomToChange, "Liked Songs")

    'Await client.Preset("all")

​

    'https://github.com/MadMonkey87/InnerCore.Api.SonosHttp

    'Will need to coppy this and extend it alot

​

    'How about EQ on a speaker

    'Getting Status can be useful aswell .GetState

    'How about favourites? or presets they are missing will have  to add this feature myself

​

    'https://github.com/jishi/node-sonos-http-api

​

    '    Example of a state json

​

    '{

    '  "currentTrack":{

    '    "artist":"College",

    '    "title":"Teenage Color - Anoraak Remix",

    '    "album":"Nightdrive With You",

    '    "albumArtURI":"/getaa?s=1&u=x-sonos-spotify%3aspotify%253atrack%253a3DjBDQs8ebkxMBo2V8V3SH%3fsid%3d9%26flags%3d32",

    '    "duration":347,

    '    "uri":"x-sonos-spotify:spotify%3atrack%3a3DjBDQs8ebkxMBo2V8V3SH?sid=9&flags=32"

    '  },

    '  "nextTrack":{

    '    "artist":"Blacknuss",

    '    "title":"Thinking of You",

    '    "album":"3",

    '    "albumArtURI":"/getaa?s=1&u=x-sonos-spotify%3aspotify%253atrack%253a4U93TIa0X6jGQrTBGTkChH%3fsid%3d9%26flags%3d32",

    '    "duration":235,

    '    "uri":"x-sonos-spotify:spotify%3atrack%3a4U93TIa0X6jGQrTBGTkChH?sid=9&flags=32"

    '  },

    '  "volume":18,

    '  "mute":false,

    '  "trackNo":161,

    '  "elapsedTime":200,

    '  "elapsedTimeFormatted":"03:20",

    '  "zoneState":"PAUSED_PLAYBACK",

    '  "playerState":"PLAYING",

    '  "zonePlayMode":{

    '    "shuffle":true,

    '    "repeat":false,

    '    "crossfade":false

    '  },

    '  "equalizer": {

    '    "bass": 0,

    '    "treble": 0,

    '    "loudness": true

    '  }

    '}

​

​

    'Note for Spotify users!

    'To use Spotify, go to https//developer.spotify.com/my-applications/#!/applications/create And create a 

    'Spotify application To Get your client keys. You can name it Sonos Or anything Else And you don't have to 

    'change any values. Use the Client ID And the Client Secret values In the settings.json file As indicated above.

​

    'It now has support for starting favorites. Simply invoke:

    'http://localhost:5005/living room/favorite/[favorite name]

​

    'Playing a Sonos playlist is now supported. Invoke the following:

    'http://localhost:5005/living room/playlist/[playlist name]

    'And it will replace the queue with the playlist And starts playing.

​

​

​

    '[{"uuid":"RINCON_B8E937812C0C01400","coordinator":{"uuid":"RINCON_B8E937812C0C01400","state":{"volume":32,"mute":false,"equalizer":{"bass":-1,"treble":2,"loudness":true},"currentTrack":{"artist":"Green Day","title":"Holiday - Faded Ending","album":"Holiday","albumArtUri":"/getaa?s=1&u=x-sonos-spotify%3aspotify%253atrack%253a5vfjUAhefN7IjHbTvVCT4Z%3fsid%3d9%26flags%3d8224%26sn%3d3","duration":233,"uri":"x-sonos-spotify:spotify%3atrack%3a5vfjUAhefN7IjHbTvVCT4Z?sid=9&flags=8224&sn=3","trackUri":"x-sonos-spotify:spotify%3atrack%3a5vfjUAhefN7IjHbTvVCT4Z?sid=9&flags=8224&sn=3","type":"track","stationName":"","absoluteAlbumArtUri":"https://pl.scdn.co/images/pl/default/121dad3eeeaebd0a92422dfc675a86c715ba9a2a"},"nextTrack":{"artist":"Sia","title":"Chandelier","album":"1000 Forms Of Fear","albumArtUri":"/getaa?s=1&u=x-sonos-spotify%3aspotify%253atrack%253a4VrWlk8IQxevMvERoX08iC%3fsid%3d9%26flags%3d8224%26sn%3d3","duration":216,"uri":"x-sonos-spotify:spotify%3atrack%3a4VrWlk8IQxevMvERoX08iC?sid=9&flags=8224&sn=3","trackUri":"x-sonos-spotify:spotify%3atrack%3a4VrWlk8IQxevMvERoX08iC?sid=9&flags=8224&sn=3","absoluteAlbumArtUri":"http://192.168.0.245:1400/getaa?s=1&u=x-sonos-spotify%3aspotify%253atrack%253a4VrWlk8IQxevMvERoX08iC%3fsid%3d9%26flags%3d8224%26sn%3d3"},"trackNo":16,"elapsedTime":189,"elapsedTimeFormatted":"00:03:09","playbackState":"PAUSED_PLAYBACK","playMode":{"repeat":"all","shuffle":true,"crossfade":false}},

    '"roomName":"Hallway"

    ',"coordinator""RINCON_B8E937812C0C01400","groupState":{"volume":40,"mute":false}},"members":[{"uuid":"RINCON_949F3EC8BC0801400","state":{"volume":32,"mute":false,"equalizer":{"bass":-1,"treble":2,"loudness":true,"speechEnhancement":false,"nightMode":false},"currentTrack":{"artist":"Green Day","title":"Holiday - Faded Ending","album":"Holiday","albumArtUri":"/getaa?s=1&u=x-sonos-spotify%3aspotify%253atrack%253a5vfjUAhefN7IjHbTvVCT4Z%3fsid%3d9%26flags%3d8224%26sn%3d3","duration":233,"uri":"x-sonos-spotify:spotify%3atrack%3a5vfjUAhefN7IjHbTvVCT4Z?sid=9&flags=8224&sn=3","trackUri":"x-sonos-spotify:spotify%3atrack%3a5vfjUAhefN7IjHbTvVCT4Z?sid=9&flags=8224&sn=3","type":"track","stationName":"","absoluteAlbumArtUri":"https://pl.scdn.co/images/pl/default/121dad3eeeaebd0a92422dfc675a86c715ba9a2a"},"nextTrack":{"artist":"Sia","title":"Chandelier","album":"1000 Forms Of Fear","albumArtUri":"/getaa?s=1&u=x-sonos-spotify%3aspotify%253atrack%253a4VrWlk8IQxevMvERoX08iC%3fsid%3d9%26flags%3d8224%26sn%3d3","duration":216,"uri":"x-sonos-spotify:spotify%3atrack%3a4VrWlk8IQxevMvERoX08iC?sid=9&flags=8224&sn=3","trackUri":"x-sonos-spotify:spotify%3atrack%3a4VrWlk8IQxevMvERoX08iC?sid=9&flags=8224&sn=3","absoluteAlbumArtUri":"http://192.168.0.245:1400/getaa?s=1&u=x-sonos-spotify%3aspotify%253atrack%253a4VrWlk8IQxevMvERoX08iC%3fsid%3d9%26flags%3d8224%26sn%3d3"},"trackNo":16,"elapsedTime":189,"elapsedTimeFormatted":"00:03:09","playbackState":"PAUSED_PLAYBACK","playMode":{"repeat":"all","shuffle":true,"crossfade":false}},

    '"roomName":"Huvudsovrum"

    ',"coordinator":"RINCON_B8E937812C0C01400","groupState":{"volume":25,"mute":false}},{"uuid":"RINCON_B8E937E24B9C01400","state":{"volume":56,"mute":false,"equalizer":{"bass":-1,"treble":2,"loudness":true},"currentTrack":{"artist":"Green Day","title":"Holiday - Faded Ending","album":"Holiday","albumArtUri":"/getaa?s=1&u=x-sonos-spotify%3aspotify%253atrack%253a5vfjUAhefN7IjHbTvVCT4Z%3fsid%3d9%26flags%3d8224%26sn%3d3","duration":233,"uri":"x-sonos-spotify:spotify%3atrack%3a5vfjUAhefN7IjHbTvVCT4Z?sid=9&flags=8224&sn=3","trackUri":"x-sonos-spotify:spotify%3atrack%3a5vfjUAhefN7IjHbTvVCT4Z?sid=9&flags=8224&sn=3","type":"track","stationName":"","absoluteAlbumArtUri":"https://pl.scdn.co/images/pl/default/121dad3eeeaebd0a92422dfc675a86c715ba9a2a"},"nextTrack":{"artist":"Sia","title":"Chandelier","album":"1000 Forms Of Fear","albumArtUri":"/getaa?s=1&u=x-sonos-spotify%3aspotify%253atrack%253a4VrWlk8IQxevMvERoX08iC%3fsid%3d9%26flags%3d8224%26sn%3d3","duration":216,"uri":"x-sonos-spotify:spotify%3atrack%3a4VrWlk8IQxevMvERoX08iC?sid=9&flags=8224&sn=3","trackUri":"x-sonos-spotify:spotify%3atrack%3a4VrWlk8IQxevMvERoX08iC?sid=9&flags=8224&sn=3","absoluteAlbumArtUri":"http://192.168.0.245:1400/getaa?s=1&u=x-sonos-spotify%3aspotify%253atrack%253a4VrWlk8IQxevMvERoX08iC%3fsid%3d9%26flags%3d8224%26sn%3d3"},"trackNo":16,"elapsedTime":189,"elapsedTimeFormatted":"00:03:09","playbackState":"PAUSED_PLAYBACK","playMode":{"repeat":"all","shuffle":true,"crossfade":false}},

    '"roomName":"Kitchen"

    ',"coordinator":"RINCON_B8E937812C0C01400","groupState":{"volume":0,"mute":false}},{"uuid":"RINCON_B8E937812C0C01400","state":{"volume":32,"mute":false,"equalizer":{"bass":-1,"treble":2,"loudness":true},"currentTrack":{"artist":"Green Day","title":"Holiday - Faded Ending","album":"Holiday","albumArtUri":"/getaa?s=1&u=x-sonos-spotify%3aspotify%253atrack%253a5vfjUAhefN7IjHbTvVCT4Z%3fsid%3d9%26flags%3d8224%26sn%3d3","duration":233,"uri":"x-sonos-spotify:spotify%3atrack%3a5vfjUAhefN7IjHbTvVCT4Z?sid=9&flags=8224&sn=3","trackUri":"x-sonos-spotify:spotify%3atrack%3a5vfjUAhefN7IjHbTvVCT4Z?sid=9&flags=8224&sn=3","type":"track","stationName":"","absoluteAlbumArtUri":"https://pl.scdn.co/images/pl/default/121dad3eeeaebd0a92422dfc675a86c715ba9a2a"},"nextTrack":{"artist":"Sia","title":"Chandelier","album":"1000 Forms Of Fear","albumArtUri":"/getaa?s=1&u=x-sonos-spotify%3aspotify%253atrack%253a4VrWlk8IQxevMvERoX08iC%3fsid%3d9%26flags%3d8224%26sn%3d3","duration":216,"uri":"x-sonos-spotify:spotify%3atrack%3a4VrWlk8IQxevMvERoX08iC?sid=9&flags=8224&sn=3","trackUri":"x-sonos-spotify:spotify%3atrack%3a4VrWlk8IQxevMvERoX08iC?sid=9&flags=8224&sn=3","absoluteAlbumArtUri":"http://192.168.0.245:1400/getaa?s=1&u=x-sonos-spotify%3aspotify%253atrack%253a4VrWlk8IQxevMvERoX08iC%3fsid%3d9%26flags%3d8224%26sn%3d3"},"trackNo":16,"elapsedTime":189,"elapsedTimeFormatted":"00:03:09","playbackState":"PAUSED_PLAYBACK","playMode":{"repeat":"all","shuffle":true,"crossfade":false}},

    '"roomName":"Hallway"

    ',"coordinator":"RINCON_B8E937812C0C01400","groupState":{"volume":40,"mute":false}}]}]

End Class

​

<Serializable>

Public Class SonosRoom

    Implements IEquatable(Of SonosRoom)

    Private _Name As String

​

    ''' <summary>

    ''' Name of the Room

    ''' </summary>

    ''' <returns></returns>

    <XmlElement(ElementName:="Name")>

    Public Property Name As String

        Get

            Return _Name

        End Get

        Set(value As String)

            _Name = value

        End Set

    End Property

​

    Public Overloads Function Equals(other As SonosRoom) As Boolean _

Implements IEquatable(Of SonosRoom).Equals

        If Me Is Nothing Or other Is Nothing Then

            Return False

        End If

        Return (Me.Name.Equals(other.Name))

    End Function

​

End Class