[SCRIPT VB] Changement de playlist Squeezebox

La section pour partager vos scripts et demander de l'aide dans vos scénarios.

Modérateur: HoMIDoM

[SCRIPT VB] Changement de playlist Squeezebox

Messagede davidinfo » 11 FĂ©v 2016, 19:35

Ce script est fait pour ceux qui utilise le système multiroom squeezebox.
Il permet de changer de playlist sur un squeezeplayer donné. Cela permet, par exemple, en appuyant sur un interrupteur de changer de playlist parmi un liste :)
Vous Ă©galement utiliser les autres commandes http pour diriger votre squeezebox depuis Homidom (dans une action http ou un script vb):
Play/Pause
http://192.168.1.3:9002/status.html?p0=pause&player=192.168.1.4

Prev
http://192.168.1.3:9002/status.html?p0=button&p1=jump_rew&player=192.168.1.4

Next
http://192.168.1.3:9002/status.html?p0=button&p1=jump_fwd&player=192.168.1.19

Volume +
http://192.168.1.3:9002/status.html?p0=mixer&p1=volume&p2=%2D10&player=192.168.1.4

Volume -
http://192.168.1.3:9002/status.html?p0=mixer&p1=volume&p2=%2B10&player=192.168.1.4


Pour ma part, j'utilise une télécommande 3 Boutons ON/OFF Chacon avec 3 triggers (un pour chaque bouton) qui lance 3 macros (une macro par trigger):
- si bouton1=on alors actionhttp urlVol- sinon actionhttp urlvol+
- si bouton2=on alors actionhttp urlprev sinon actionhttp urlnext
- si bouton3=on alors actionhttp playpause sinon macroVBS Playlist


Il faut auparavant créer une variable (menu principal/variable) nommée "playlist" qui permet de stocker le nom de la prochaine playlist à jouer (le nom de playlist ne doit pas contenir d'espace ou de caractères spéciaux)

Dans le code, il y a la partie if (playlist="") then..., qui permet de programmer le nom de la prochaine playlist suivant la playlist courante, Ă  personnaliser suivant vos playlists

Code: Tout sélectionner
Imports System
Imports System.IO
Imports System.Net
Imports System.Windows.Forms
Imports Microsoft.VisualBasic
Imports Homidom                                                                 
Namespace Dynam
'Ne pas supprimer cette class
Public Class DynamicCode
   
  'Ne pas supprimer cette function
  Public Function ExecuteCode(paramarray prmParameters() as object) as object
    Dim Serveur as Homidom.Homidom.server
    try
     
      Serveur=prmParameters(0)

      Dim playlist As String = Serveur.GetValueOfVariable("123456789", "playlist")
      Serveur.log(1, 2, "Macro VB:Playlist", "Chargement de la playlist: " & playlist)

'Liste des playlists
      If (playlist = "Rock-Electro-Reggae") Then
              Serveur.SetValueOfVariable("123456789", "playlist", "Pop-Jazz-Lounge")
      ElseIf (playlist = "Pop-Jazz-Lounge") Then
              Serveur.SetValueOfVariable("123456789", "playlist", "Classique")
      ElseIf (playlist = "Classique") Then
              Serveur.SetValueOfVariable("123456789", "playlist", "radio")
      ElseIf (playlist = "radio") Then
              Serveur.SetValueOfVariable("123456789", "playlist", "Rock-Electro-Reggae")
      Else
              Serveur.SetValueOfVariable("123456789", "playlist", "Pop-Jazz-Lounge")
              playlist = "Pop-Jazz-Lounge"
      End If
 
      'dans cet exemple:
      'Squeezebox server : 192.168.1.3:9002
      'Squeezebox player : 192.168.1.4

      Dim url as string="http://192.168.1.3:9002/status.html?p0=playlist&p1=play&p2=" & playlist & "&player=192.168.1.4"

      Dim reader As StreamReader = Nothing
      Dim str As String = ""
      Dim request As WebRequest = WebRequest.Create(url)
      Dim response As WebResponse = request.GetResponse()
      reader = New StreamReader(response.GetResponseStream())
      str = reader.ReadToEnd
      reader.Close()

    Catch ex As Exception
       Serveur.log(8, 2, "Macro VB:Playlist", "Exception: " & ex.message)
    End Try
  End Function

End Class
End Namespace
HoMIDoM- Le système complet et gratuit de domotique pour la maison (Domos)
Avatar de l’utilisateur
davidinfo
Dieu de domotique
 
Messages: 1514
Inscription: 19 Oct 2008, 22:49
Localisation: Algrange (57)

Retourner vers Scripts VB

Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 2 invités

Copyright © 2011 - Touteladomotique.com - Tous droits rĂ©servĂ©s
Les blogs partenaires : Abavala, Domo-Blog, Domotique34, Maison et Domotique