Советы бывалого "чайника"

[dagdag]

задумался я вчера о такой возможности - хочется свою программку написать чтобы с ноутбука было удобнее смотреть кино...

перерыл все что мог перерыть в инете, вот что нашел:

Дрим управляется с помощью wget, а точнее просто вызовом его внутренних (утилит? софтинок короче) просто по http - указывая их "адрес" внутри Дрима.

например переключение на нужный канал делается так
wget httр://192.168.1.2/cgi-bin/zapTo?path=1:0:1:2010:24b8:13e:820000:0:0:0:
нужные чиселки в этой строке можно получить по команде
wget httр://root:dreambox@127.0.0.1/cgi-bin/currentService

эмуляция нажатия кнопки на дистанционке
синей - wget -q httр://root:dreambox@localhost/cgi-bin/rc?401 -O /tmp/bluebutton.tmp
зеленой - wget -q httр://root:dreambox@localhost/cgi-bin/rc?399 -O /tmp/greenbutton.tmp
видимо такойже фокус можно проделать и с остальными кнопками...

послать сообщение на экран телевизора (?)
wget -O /tmp/msg2tv.tmp -q "http://root:dreambox@127.0.0.1/cgi-bin/xmessage?timeout=2&caption=TITEL&body=DIT+IS+EEN+TEST."

можно сделать вывод что Дримом можно управлять, вызывая соответствующие "программки" из папки /cgi-bin c нужными параметрами... только где вот взять еще примеры этих самых вызовов и соответвующих параметров?
...или может ктото подскажет чем лучше снять "протокол обмена" браузера с открытым вебинтерфейсом с Дримбоксом? - чтобы потом выцепить из него все нужное...

[dagdag]

вот еще нарылось команда Дриму перегрузиться -

http://root:dreambox@192.168.1.2/cgi-bin/admin?command=reboot&requester=webif

"нарытость" интересна тем, что наверняка получается существует некий набор команд, вызываемый таким образом....

по эмуляции нажатия кнопок дистанционки оказалось все просто - если в вебинтефейсе Дрима выбрать "remote control" то перемещая указатель мышки поверх кнопок в строке статуса браузера можно видеть соответствующие им коды...

[ZhukovAV]

А не проще
telnet dreambox
shutdown -r now.
Конечно поиск нелокументируемых возможностей штука очень интересная, когда веремени вязанка. Вот только смысл ?
_________________
Emme Esse 125 (продаю на avito), Invacom SNH 31, Stab 120, 15W-90E (подарил), Супрал 0.55, телевизор LG, Rasberry Pi 4B, 8G, корпус Argon one 2 M2, SSD128 Ubuntu+Lebreelec+Kodi

[dagdag]

Смысл - организовать удобное переключение каналов, чтоб без всяких заморочек, связанных с вебинтерфейсом. такие программы есть, но то что мне попадалось - платное,- платить жалко денег, "ломать" по идейным соображениям не хочется, вот решил сам написать,= в принципе информации собрано уже достаточно, осталось дело за малым - "времени вязанкой"

[BNX]

[megagravicapa]

есть еще в таком духе, может кому интересно(Как сделать снимок экрана,Удаление программы из оперативной пямяти ресивера и.т.п)
кое что можно для себя накопать: http://wiki.allrussian.info/index.php/Dreambox

[BNX]

megagravicapa - Замечание.
Вам лень "приклееные темы" просмотреть ? Соблюдайте Правила.
http://www.forum.alyno.ru/phpBB2/viewtopic.php?t=2839
_________________
Arvdr & XBMC, DM500 & 800HD, UFS910, CubeCafe, 90е to 9е, Stub HH100 & Mot. 2100, Toroidal & Of. 120 & 110 & 60
P.S. Ну да - это я. Сменил аватарку просто.

[megagravicapa]

Виноват..слегка вспылил, прошу дать возможность искупить вину....
Просто я тут новенький и как правило свойственно ошибаться.
Обещаю впредь быть внимательнее.

[test]

Забавно.

Цитата:
"задумался я вчера о такой возможности - хочется свою программку написать чтобы с ноутбука было удобнее смотреть кино... "

Я смотрю.
Если хочешь свою - могу помочь движком.

Часть скриптов - вот они; пиши свою прогу!
На основе их - твоя прога (выложил бы свою, да стыдно; сырая. Меня,впрочем, полностью удовлетворяет - затем и работал (а где время взять для других? )

Посмотри команды.
Будут вопросы - помогу.



Цитаты цитаты:

Цель: простыми скриптами организовать инфообмен с дримбоксом.
Начерно – не редактируя - часть скопившихся наработок – и, если кому интересно,прокомментирую.
Код - вставить в Windows редакторе (Блокнот) и сохранить с расширением .vbs


Информация с дримбокса.(Получаем, высвечиваем и записываем в файл c:\dreamInfo.txt)
IPdream - скорректируйте.

Код
--------------------------------------------------------------------------------------------------
'To getAllServ info
'Check - your dreambox must be "on"

Option Explicit
'On Error Resume Next

'login & password

Dim ipDream,sFile,oHTTP,oFSO,answ,sOut,i,oTS,WshShell
sFile = "c:\dreamInfo.txt"
set oHTTP = WScript.CreateObject("Microsoft.XMLHTTP")
set oFSO = WScript.CreateObject("Scripting.FileSystemObject")
ipDream = "http://192.168.1.3"
oHTTP.open "GET", ipDream, False,"root","dreambox" 'Check your login & passw
oHTTP.send

'main

ipDream = "http://192.168.1.3/cgi-bin/getServices?ref=1:15:fffffffe:12:ffffffff:0:0:0:0:0:"
oHTTP.open "GET", ipDream, False
oHTTP.send
answ = oHTTP.responseBody
set oHTTP = nothing
sOut = ""
For i = 0 to UBound(answ)
sOut = sOut & chrw(ascw(chr(ascb(midb(answ,i+1,1)))))
Next
set oTS = oFSO.CreateTextFile(sFile, True)
oTS.Write sOut
oTS.Close
set oTS = Nothing
set oFSO = Nothing
'Set WshShell = WScript.CreateObject("WScript.Shell")
'WshShell.Popup sOut
WScript.Echo sOut
---------------------------------------------------------------------------------------------




Код
---------------------------------------------------------------------------------------------
'To get info
'Check - your dreambox must be "on"

Option Explicit
'On Error Resume Next

'login & password

Dim ipDream,sFile,oHTTP,oFSO,answ,sOut,i,oTS,dx
sFile = "c:\dreamInfo.txt"
set oHTTP = WScript.CreateObject("Microsoft.XMLHTTP")
set oFSO = WScript.CreateObject("Scripting.FileSystemObject")
ipDream = "http://192.168.1.3"
oHTTP.open "GET", ipDream, False,"root","dreambox" 'Check your login & passw
oHTTP.send

'main

ipDream = "http://192.168.1.3/xml/streaminfo"
oHTTP.open "GET", ipDream, False
oHTTP.send
answ = oHTTP.responseText
set oHTTP = nothing
'sOut = ""
'For i = 0 to UBound(answ)
'sOut = sOut & chrw(ascw(chr(ascb(midb(answ,i+1,1)))))
'Next
'set oTS = oFSO.CreateTextFile(sFile, True)
'oTS.Write sOut
'oTS.Close
set oTS = Nothing
set oFSO = Nothing


Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Popup answ

-------------------------------------------------------------------------------------------------



Пример управления

Код
-------------------------------------------------------------------------------------------------
'To control
'Check - your dreambox must be "on"

Option Explicit
'On Error Resume Next

'login & password

Dim ipDream,oHTTP
set oHTTP = WScript.CreateObject("Microsoft.XMLHTTP")
ipDream = "http://192.168.1.3"
oHTTP.open "GET", ipDream, False,"root","dreambox" 'Check your login & passw
oHTTP.send
'main

ipDream = "http://192.168.1.3/cgi-bin/rc?2" '1 channel of Favor(need number+1)
oHTTP.open "GET", ipDream, False,"root","dreambox"
oHTTP.send

oHTTP.send
set oHTTP = nothing
-----------------------------------------------------------------------------------------------------


Мультимедиа (Запись потока).
(для разминки… MSWINSOC – здесь легко организовать и UDP коннекшен).

порт31338 - пишем 1 PID (звук, к примеру, кодированный поток; зачем...в другой теме)
здесь забито под 5 канал с Сириуса - нужно поставить дрим на этот канал.

(btw – был удивлен; команда по порту 31338 в синтаксисе GET /PID, n)
где n – номер порта >1024 открывает на дриме постоянно верещащий UDP порт потока
заданного PID… другое дело – к чему приспособите Вы этот формат данных…

Код
------------------------------------------------------------------------------------------------------
'Recording

Option Explicit
'On Error Resume Next

Dim winsock, InData, TotalBytesIn, req
TotalBytesIn = 0

Main
Sub Main()
set winsock = Wscript.createobject("MSWINSOCK.Winsock", "winsock_")
winsock.Remotehost = "192.168.1.3" 'dream IP
winsock.RemotePort = 31338 'PORT
winsock.connect


Dim secs 'seconds
While winsock.state <> 7 And winsock.state <> 8 And winsock.state <> 9 And secs <> 20
Wscript.Sleep 1000 'Sleep for a sec then check again
secs = secs + 1
Wend

If secs > 19 Then
MsgBox "TimeOut"
Wscript.Quit
End If


req = "GET /1830 HTTP/1.1" & vbcrlf

winsock.SendData req & vbcrlf 'Important - "& vbcrlf" in end

WScript.Sleep 500
MsgBox "Recording...To stop press OK "
If winsock.state <> 0 Then winsock.close
Set winsock = nothing

End Sub


Function WriteData(Data) 'Just used mainly for logging info 'note: its set up for win98 not nt
Dim fso, file
Set fso = createobject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("C:\dream.mpa", 8, True)
file.write Data '& vbcrlf
file.close
Set file = nothing
Set fso = nothing
End Function

Sub winsock_DataArrival(bytesTotal)
winsock.GetData InData, VBString
WriteData InData
End Sub

Sub winsock_Error(Number, Description, SCode, Source, HelpFile, HelpContext,CancelDisplay)
MsgBox "Error " & Number & vbcrlf & Description
End Sub
------------------------------------------------------------------------------------------------

Полный поток - порт 31339, синтаксис общеизвестен. Пиды устанавливайте свои - здесь под тот же канал.
Код
------------------------------------------------------------------------------------------------
'Recording

Option Explicit
'On Error Resume Next '

Dim winsock, InData, TotalBytesIn, req
TotalBytesIn = 0

Main
Sub Main()
set winsock = Wscript.createobject("MSWINSOCK.Winsock", "winsock_")
winsock.Remotehost = "192.168.1.3" 'dream IP
winsock.RemotePort = 31339 'PORT
winsock.connect


Dim secs 'seconds
While winsock.state <> 7 And winsock.state <> 8 And winsock.state <> 9 And secs <> 20
Wscript.Sleep 1000 'Sleep for a sec then check again
secs = secs + 1
Wend

If secs > 19 Then
MsgBox "TimeOut"
Wscript.Quit
End If


req = "GET /0,182e,182f,1830 HTTP/1.1" & vbcrlf '!!! 0,PMT,VideoPID,AudioPid

winsock.SendData req & vbcrlf 'Its important - "& vbcrlf" in end

WScript.Sleep 500
MsgBox "Recording...To stop press OK "
If winsock.state <> 0 Then winsock.close
Set winsock = nothing

End Sub


Function WriteData(Data)
Dim fso, file
Set fso = createobject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("C:\dream.ts", 8, True)
file.write Data '& vbcrlf
file.close
Set file = nothing
Set fso = nothing
End Function

Sub winsock_DataArrival(bytesTotal)
winsock.GetData InData, VBString
WriteData InData
End Sub

Sub winsock_Error(Number, Description, SCode, Source, HelpFile, HelpContext,CancelDisplay)
MsgBox "Error " & Number & vbcrlf & Description
End Sub
---------------------------------------------------------------------------------------------------



PS.
-Если дрим после Ваших … не отзывается - перегрузите его.
(Перепробовал все имиджи - самый «терпеливый» - Rudream, за что хотелось бы сказать
команде большое спасибо – да нет коннекта.)
-Если кто не знает – в процессе записи файл пишется в папку
C:\Documents and Settings\пользователь\LocalService\Local Settings\Temporary Internet Files
и только после остановки скрипта переносится системой в указанное Вами место…
Не забывайте чистить после «кривых» экспериментов…как, впрочем, при других при даунлоудах -
вручную или средствами Windows – на Ваше усмотрение.

Прим.1
Базовые команды (вариации – есть функция от имиджа).

/addTimerEvent
/audio.m3u
/blank
/body
/body?mode=zap&zapmode=0&zapsubmode=4
/cgi-bin/admin?command=shutdown
/cgi-bin/admin?command=reboot
/cgi-bin/admin?command=restart
/cgi-bin/admin?command=standby
/cgi-bin/admin?command=wakeup
/cgi-bin/audio, gives out Volume and Mute-Value
/cgi-bin/channelinfo, Station name and 2-line EPG, all in HTML
/cgi-bin/currentService?...
/cgi-bin/currentTransponderServices, list in TXT-format, representing paths (as above in ZAPTO syntax)
/cgi-bin/deleteMovie
/cgi-bin/getcurrentepg
/cgi-bin/getEIT
/cgi-bin/getPMT
/cgi-bin/getServices?...
/cgi-bin/ln, createSymlink
/cgi-bin/ls, listDirectory
/cgi-bin/message
/cgi-bin/mkdir, makeDirectory
/cgi-bin/mv, moveFile
/cgi-bin/osdshot, PNG-graphic with On Screen Display (not the TV picture)
/cgi-bin/pause
/cgi-bin/play
/cgi-bin/record
/cgi-bin/recoverRecordings
/cgi-bin/reloadPlaylist
/cgi-bin/reloadRecordings
/cgi-bin/reloadSettings
/cgi-bin/reloadTimerList
/cgi-bin/reloadUserBouquets
/cgi-bin/rm, removeFile
/cgi-bin/rmdir, removeDirectory
/cgi-bin/savePlaylist
/cgi-bin/saveRecordings
/cgi-bin/saveTimerList
/cgi-bin/saveUserBouquets
/cgi-bin/selectAudio
/cgi-bin/selectSubChannel
/cgi-bin/setAudio
/cgi-bin/startPlugin
/cgi-bin/status, Streaminfo-Screen in HTML
/cgi-bin/stop
/cgi-bin/stopPlugin
/cgi-bin/streaminfo
/cgi-bin/switchService
/cgi-bin/videocontrol
/cgi-bin/xmessage
/cgi-bin/zapTo
/changeTimerEvent
/channels/getcurrent
/cleanupTimerList
/clearTimerList
/control/channellist
/control/getonidsid
/control/message?msg=hallo
/control/zapto
/deleteTimerEvent
/editTimerEvent
/EPGDetails
/getcurrentepg?type=extended
/getcurrentepg2
/getMultiEPG?ref=4097:7:0:dbe00:0:0:0:0:0:0:%2fvar%2ftuxbox%2fconfig%2fenigma%2fuserbouquet%2edbe00%2etv
(4097 would be VPID)
/header
/leftnavi?mode=control, shows various web-screens
/leftnavi?mode=zap
/leftnavi?mode=help
/leftnavi?mode=updates
/msgWindow
/pda, very narrow control in HTML
/setVideo
/setVolume
/showAddTimerEventWindow
/TVBrowserTimerEvent
/tvMessageWindow
/version


Добавлю для примера:
/cgi-bin/getServices?ref=1:15:fffffffe:12:ffffffff:0:0:0:0:0
/cgi-bin/getServices?ref=1:15:fffffffe:4:ffffffff:0:0:0:0:0
/cgi-bin/getServices?ref=4097:7:0:4:0:0:0:0:0:0:&listContent=true
/cgi-bin/currentTransponderServices
/xml/currentservicedata
/control/zapto?getallpids

/cgi-bin/rc?2 эмулятор пульта ДУ - на 1 (!) канал (принцип n+1)
/cgi-bin/rc?352 клавиша "OK"

Список в комментариях не нуждается; в связке IE - Web-IF с хорошим сниффером Вы и сами
сможете его пополнить.

Пример "чистки" от мусора - здесь удаляются тэги
Код
----------------------------------------------------------------------------------------------------------------------
'Dreambox Info
Option Explicit
'On Error Resume Next

Dim ipDream,oHTTP,answ,sOut,i,dx
ipDream = "192.168.1.3" ' MUST BE YOUR

ipDream = "http://" & ipDream & "/cgi-bin/status"
set oHTTP = WScript.CreateObject("Microsoft.XMLHTTP")
oHTTP.open "GET", ipDream, False,"root","dreambox"
oHTTP.send
answ = oHTTP.responseBody
set oHTTP = nothing
sOut = ""

For i = 0 to UBound(answ)
sOut = sOut & chrw(ascw(chr(ascb(midb(answ,i+1,1)))))
Next

Set dx = New RegExp 'Cleaning
dx.Multiline = True
dx.Global = True
dx.Pattern = "<[^>]+>"
sOut = dx.Replace(sOut, vbNullString)
WScript.Echo sOut
----------------------------------------------------------------------------------------------------------------------


Пример соединения и ведения лога по протоколу UDP - складываем (дописывая в конец) в файл.
Предварительно на дриме включаем опцию -var\keys\camd3.config - должно быть
LOG=4
LOG_HOST=192.168.1.4
LOG_PORT=514


код-------------------------------------------------------------------------------------------
'log camd3
'camd3.config - LOG=4 LOG_HOST= Your comp IP LOG_PORT=514



Option Explicit
'On Error Resume Next '

Dim winsock, InData, TotalBytesIn, req
TotalBytesIn = 0

Main
Sub Main()
set winsock = Wscript.createobject("MSWINSOCK.Winsock", "winsock_")
winsock.Remotehost = "192.168.1.3" 'dream IP
winsock.Protocol = 1 '0 - http, 1 - UDP
'winsock.Remoteport =555
winsock.Bind 514 'UDP LOGGING PORT CAMD3

WScript.Sleep 500
MsgBox "To stop press OK "
If winsock.state <> 0 Then winsock.close
Set winsock = nothing
End Sub


Function WriteData(Data)
Dim fso, file
Set fso = createobject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("C:\camd3Log.txt", 8, True)
file.write Data & vbcrlf
file.close
Set file = nothing
Set fso = nothing
End Function

Sub winsock_DataArrival(bytesTotal)
winsock.GetData InData, VBString
WriteData InData
End Sub

Sub winsock_Error(Number, Description, SCode, Source, HelpFile, HelpContext,CancelDisplay)
MsgBox "Error " & Number & vbcrlf & Description
End Sub

-------------------------------------------------------------------------------------------


Да!
Возвращаясь к тому же порту (31338 в синтаксисе GET /PID,needUDP) - при PID = ECM addr(PMT), и
организовав TCP запрос, а затем перебросившись на UDP-прием, можно получить следующие логи - примерно
такие: (здесь - 007d1 - +++). (Каждое новое обращение открывает на дриме новый UDP порт).


00 80 70 39 00 90 03 02 07 08 9f 08 52 55
53 2a 53 45 52 56 e0 01 c0 e2 03 36 6d 03 e2 03
36 6d 07 ea 10 91 3e ef 97 65 43 a9 fa 21 d7 d3
4c 2e f7 8b 1f f0 08 95 fa 0c d0 cd 9f 86 c1


03 02 07 08 9f 08 52 55 53 2a 53 45 52 56 e0 01
c0 e2 03 36 6d 03 e2 03 36 6d 07 ea 10 91 3e ef
97 65 43 a9 fa 21 d7 d3 4c 2e f7 8b 1f f0 08 95
fa 0c d0 cd 9f 86 c1


00 80 70 39 00 90 03 02 07 08 9f 08 52 55
53 2a 53 45 52 56 e0 01 c0 e2 03 36 6d 03 e2 03
36 6d 07 ea 10 91 3e ef 97 65 43 a9 fa 21 d7 d3
4c 2e f7 8b 1f f0 08 95 fa 0c d0 cd 9f 86 c1 ...........и т.д.

Код - примерно так...
----------------------------------------------------------------------------------------------------------------------------------------
'ecm

Option Explicit
'On Error Resume Next '
Dim dreamIP,Port,Pid,file1,i
Dim winsock, InData, TotalBytesIn, req
TotalBytesIn = 0
dreamIP = "192.168.1.3" '!!! Here must be your dreamboxIP
Port = "31338"
Pid = "007d1" ' here - addr ecm +++

'preparing dreambox for UDP sreaming
set winsock = Wscript.createobject("MSWINSOCK.Winsock", "winsock_")
winsock.Remotehost = dreamIP
winsock.RemotePort = Port
winsock.connect

Dim secs 'seconds
While winsock.state <> 7 And winsock.state <> 8 And winsock.state <> 9 And secs <> 20
Wscript.Sleep 1000 'Sleep for a sec then check again
secs = secs + 1
Wend

If secs > 19 Then
MsgBox "TimeOut"
Wscript.Quit
End If

req = "GET /" & Pid & ",1055 HTTP/1.1" & vbcrlf
winsock.SendData req & vbcrlf
WScript.Sleep 1500
Set winsock = nothing

Port = "1055"

Main
Sub Main()
'UDP connection
set winsock = Wscript.createobject("MSWINSOCK.Winsock", "winsock_")
winsock.Remotehost = dreamIP
winsock.Protocol = 1 '0 - http, 1 - UDP
winsock.Bind Port

WScript.Sleep 500
MsgBox "To stop press OK "
If winsock.state <> 0 Then winsock.close
Set winsock = nothing

End Sub

Function WriteData(Data)
Dim fso, file,Dw,dx
Dw = ""
Set fso = createobject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("C:\dreamEcm.txt", 8, True)


For i = 1 To Len(Data) Step 1 'In hex
Dw = Dw & Hex(Asc(Mid(Data, i, 1)))
Next

Set dx = New RegExp 'Cleaning
dx.Multiline = True
dx.Global = True
dx.Pattern = "FFFF"
Dw = dx.Replace(Dw, vbNullString)


file.write Dw & vbcrlf & vbcrlf
file.close
file1 =Data

Set file = nothing
Set fso = nothing
End Function

Sub winsock_DataArrival(bytesTotal)
winsock.GetData InData, VBString
WriteData InData

End Sub

Sub winsock_Error(Number, Description, SCode, Source, HelpFile, HelpContext,CancelDisplay)
MsgBox "Error " & Number & vbcrlf & Description
End Sub


---------------
wbr,
omst


вопросы - omstation@yahoo.com


@модератору - хороший у вас форум - отличается от других резко - по доброжелательности и вежливости форумчан.
Да с регистрацией проблемы; (с другой стороны - чем не имя test?)

[test]

Цитата:

"или может ктото подскажет чем лучше снять "протокол обмена" браузера с открытым вебинтерфейсом с Дримбоксом? - чтобы потом выцепить из него все нужное..."


А подскажу.
(У самого времени в обрез - но наработками поделюсь).
Потому что может вдруг родится новая прога - и всем нам пригодится.

Только определись в конечной цели.