HomeSeer 3 et le programme TV

hs3_programme-tv

05 fév HomeSeer 3 et le programme TV

Voici un petit script permettant de récupérer le programme télé dans homeseer 3.

Le but de ce script est de créer une variable par chaîne afin de stocker le programme télé du soir.
homeseer-3_programme-tv

Pour ce faire, le script va récupérer le programme télé via un flus rss : http://static.programme-tv.net/rss/ns_tnt.xml

Le floor et la room de destination sont dans deux variables présentes au début du script.
Il est donc possible de les modifier facilement.

Téléchargez le script,
Homeseer 3 Programme TV (283)
créez un événement s’exécutant à une heure fixe ou plusieurs fois par jour.
Les devices sont créés automatiquement.

Sub Main(ByVal parm As Object)
	Dim dvRef
	Dim ref
	Dim dv
	Dim strpath

	Dim Floor = "Maison"
	Dim Room = "Programme TV"

	Dim dvs As Scheduler.Classes.DeviceClass
	Dim EN As Scheduler.Classes.clsDeviceEnumeration
    EN = hs.GetDeviceEnumerator
	Do
		dvs = EN.GetNext
		If dvs.Location(hs) = Room Then
			hs.SetDeviceString(dvs.Ref(hs),"",True)
		end if
	Loop Until EN.Finished

	strpath = "http://static.programme-tv.net/rss/ns_tnt.xml" 

	Dim oXML = CreateObject("Microsoft.XMLDOM")
    oXML.async = False
    oXML.load(strpath) 

	Dim Chaine
	Dim personneElement
	For Each personneElement In oXML.selectNodes("rss/channel/item")
		Chaine = personneElement.selectSingleNode("tv:channel").text
		dvRef = hs.GetDeviceRefByName(Chaine)
		If dvRef = -1 Then
			ref = hs.NewDeviceRef(Chaine)
			dv = hs.GetDeviceByRef(ref)
			dv.Location(hs) = Room
			dv.Location2(hs) = Floor
			dv.Device_Type_String(hs) = "Web"
		end if

		if hs.DeviceStringByName(Chaine)="" then
			hs.SetDeviceStringByName(Chaine,left(right(personneElement.selectSingleNode("pubDate").text,14),5) & " " & personneElement.selectSingleNode("title").text,True)
		end if
	Next
End Sub
Be Sociable, Share!
No Comments

Sorry, the comment form is closed at this time.