dreambox 8000 <----> homeseer

Post by **snowboarder** » Thu Mar 26, 2009 12:18 am

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

Post by **Peterpc** » Thu Mar 26, 2009 8:05 pm

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.

Post by **snowboarder** » Thu Mar 26, 2009 8:46 pm

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

Post by **snowboarder** » Wed Apr 01, 2009 9:49 pm

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

<blockquote id="quote">quote:<hr height="1" noshade id="quote">Originally posted by snowboarder
 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"></blockquote id="quote">

www.myhomecontrol.nl

Post by **Akatar** » Wed Apr 01, 2009 9:58 pm

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>

Post by **snowboarder** » Wed Apr 01, 2009 10:21 pm

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">quote:<hr height="1" noshade id="quote">Originally posted by akatar
 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"></blockquote id="quote">

www.myhomecontrol.nl

Post by **Peterpc** » Wed Apr 01, 2009 10:27 pm

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

Post by **snowboarder** » Wed Apr 01, 2009 10:55 pm

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

www.myhomecontrol.nl

Post by **Akatar** » Thu Apr 02, 2009 8:27 pm

dank je wel Peter
script is up and running !!

Post by **Peterpc** » Sun Jun 28, 2009 10:38 pm

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?

Post by **snowboarder** » Mon Jun 29, 2009 9:50 am

<blockquote id="quote">quote:<hr height="1" noshade id="quote">Originally posted by peterpc
 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"></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