Home Automation Domotica Forum Europe, Bwired Forum

Ik heb een dreambox 8000 hd sat kabel ontvanger.
http://www.dream-multimedia-tv.de/engli ... hnical.php

Nu zou ik graag in homeseer de status zien van de dreambox
en deze besturen.
(aan uit zetten,zender schakelen,enz)
De dreambox werkt met enigma2 met eigen webinterface.
http://dream.reichholf.net/wiki/Enigma2:WebInterface
Zo te zien moet dit mogelijk zijn.

Kan iemand mij op weg helpen ?

Marcel




www.myhomecontrol.nl

met hs.GetURL kun je de info van je sateliet in een variable laden en dan er mee doen wat je wil.
Je zult dus gebruik moeten gaan maken van scripting.

Even als voorbeeld
Als ik in een browser http://dreambox/web/subservices verstuur
krijg ik een xml terug. (zie onderstaand)

<?xml version="1.0" encoding="UTF-8"?>
<e2servicelist>
<e2service>
<e2servicereference>1:0:1:335:9DD0:7E:820000:0:0:0:</e2servicereference>
<e2servicename>M6 Suisse</e2servicename>
</e2service>
</e2servicelist>


Hoe kan ik nu M6 Suisse als een variable laden en als een device in homeseer wegschrijven ?



www.myhomecontrol.nl

Heeft iemand en idee hoe ik dit voor elkaar kan krijgen met een script ?

<blockquote id="quote"><font size="1" face="Verdana, Arial, Helvetica" id="quote">quote:<hr height="1" noshade id="quote"><i>Originally posted by snowboarder</i>
<br />Even als voorbeeld
Als ik in een browser http://dreambox/web/subservices verstuur
krijg ik een xml terug. (zie onderstaand)

<?xml version="1.0" encoding="UTF-8"?>
<e2servicelist>
<e2service>
<e2servicereference>1:0:1:335:9DD0:7E:820000:0:0:0:</e2servicereference>
<e2servicename>M6 Suisse</e2servicename>
</e2service>
</e2servicelist>


Hoe kan ik nu M6 Suisse als een variable laden en als een device in homeseer wegschrijven ?



www.myhomecontrol.nl
<hr height="1" noshade id="quote"></font id="quote"></blockquote id="quote">

www.myhomecontrol.nl

een andere enigma versie?


Dit XML-bestand lijkt geen geassocieerde stijlinformatie te hebben. De documentstructuur is hieronder weergegeven.

#8722;
<e2servicelist>
#8722;
<e2service>
<e2servicereference>1:0:1:7D4:449:35:C00000:0:0:0:</e2servicereference>
<e2servicename>RTL4</e2servicename>
</e2service>
</e2servicelist>

Nee geen andere enigma

Waarschijnlijk verstuur je het commando via mozilla firefox.
probeer maar eens via explorer en sla het bestand op
en dan openen met kladblok
dan krijg je de juiste.

<blockquote id="quote"><font size="1" face="Verdana, Arial, Helvetica" id="quote">quote:<hr height="1" noshade id="quote"><i>Originally posted by akatar</i>
<br />een andere enigma versie?


Dit XML-bestand lijkt geen geassocieerde stijlinformatie te hebben. De documentstructuur is hieronder weergegeven.

#8722;
<e2servicelist>
#8722;
<e2service>
<e2servicereference>1:0:1:7D4:449:35:C00000:0:0:0:</e2servicereference>
<e2servicename>RTL4</e2servicename>
</e2service>
</e2servicelist>
<hr height="1" noshade id="quote"></font id="quote"></blockquote id="quote">

www.myhomecontrol.nl

Bewaar het volgende in je scrips map met als naam> naam.vb

Sub Main(parms As Object)
Dim Is_URL As String
Dim Is_page As String
Dim Is_start As String
Dim Is_eind As String
Dim Is_MyPos As Integer
Dim Is_lengte As Integer
Dim Is_script As String
Dim debug As Integer
Dim Is_DS As String

debug = 0
Is_script = "dbtest"
Is_URL = "dreambox"
Is_page = "/web/subservices"
Is_start = "<e2servicename>"
Is_eind = "</e2servicename>"
Is_DS = "W22"

Is_page = hs.GetURL(Is_URL, Is_page, False, 80)
If debug = 1 Then hs.SaveINISetting(Is_script, "XXXXXXXXfull page", Is_page, "my_gets.ini")
Is_lengte = len(Is_start)
If debug = 1 Then hs.writelog("Is_lengte:", Is_lengte)
Is_MyPos = Instr(Is_page, Is_start)
Is_MyPos = Is_MyPos + Is_lengte
If debug = 1 Then hs.writelog("Is_MyPos:", Is_MyPos)
Is_page = mid(Is_page, Is_MyPos)
If debug = 1 Then hs.SaveINISetting(Is_script, "XXXXXXXXright page length", Is_MyPos, "my_gets.ini")
If debug = 1 Then hs.SaveINISetting(Is_script, "XXXXXXXXright page", Is_page, "my_gets.ini")
Is_MyPos = Instr(Is_Page, Is_eind) 'Returns the position of the first occurrence of one string within another.
If debug = 1 Then hs.writelog("Is_MyPos end:", Is_MyPos)
Is_page = mid(Is_page, 1, Is_MyPos - 1)
If debug = 1 Then hs.SaveINISetting(Is_script, "XXXXXXXXfinal page right", Is_MyPos, "my_gets.ini")
If debug = 1 Then hs.SaveINISetting(Is_script, "XXXXXXXXfinal page", Is_page, "my_gets.ini")
If Is_page <> hs.DeviceString(Is_DS) Then
hs.SetDeviceString(Is_DS, Is_page, True)
End If
end sub


door debug = 1 in tevullen, wordt er een ini bestand aangemaakt, waarin je kunt zien welke data je terug krijgt.


Is_script = "dbtest" is naam van ini file
Is_URL = "dreambox" is naam van de site
Is_page = "/web/subservices" is de sub pagina
Is_start = "<e2servicename>" is de data links van wat je wilt hebben
Is_eind = "</e2servicename>" is de data rechts van wat je wilt hebben
Is_DS = "W22" is het HS device wat met de gevraagde info gevuld wordt.

Peter

Dank je wel Peter
dit werkt perfect [:D]
heb nu de zender naam in een device.



www.myhomecontrol.nl

dank je wel Peter
script is up and running !!

Ik heb eindelijk mijn DM8000 binnen. Was een paar jaar wachten, maar dan moet je ook wat hebben. Ik ga hem van de week installeren. Zijn jullie inmiddels al verder gekomen met wat mooie HS script toepassingen? Ik heb de afgelopen jaren een Topfield4000 gehad die door scripts en HSTV aangestuurd werd voor alle opnames. Als ik het goed begrepen heb moet dit nu via HTML commando's gaan lukken. Iemand hier al iets voor gemaakt?

<blockquote id="quote"><font size="1" face="Verdana, Arial, Helvetica" id="quote">quote:<hr height="1" noshade id="quote"><i>Originally posted by peterpc</i>
<br />Ik heb eindelijk mijn DM8000 binnen. Was een paar jaar wachten, maar dan moet je ook wat hebben. Ik ga hem van de week installeren. Zijn jullie inmiddels al verder gekomen met wat mooie HS script toepassingen? Ik heb de afgelopen jaren een Topfield4000 gehad die door scripts en HSTV aangestuurd werd voor alle opnames. Als ik het goed begrepen heb moet dit nu via HTML commando's gaan lukken. Iemand hier al iets voor gemaakt?
<hr height="1" noshade id="quote"></font id="quote"></blockquote id="quote">

Ik ben er nog niet verder mee gegaan,
misschien dat anderen al wat klaar hebben.

Zou ook graag een script hebben om de dm8000 uit en aan te zetten
was met enigma1 makkelijker dan met enigma2.

http://dreambox/web/powerstate?newstate ... ate_number}

0 = Standby
1 = Deepstandby
2 = Reboot
3 = Restart Enigma2
116 = Wake-up (aus Standby --> issued as a "remotecontrol" command)


www.myhomecontrol.nl