Kysymys

SaunaVisioVBS

  • 2 heinäkuu 2009
  • 177 kommenttia
  • 12175 katselukerrat



asenna vlc
http://www.videolan.org/vlc/download-windows.html
    Kannattaa valita asennettavaksi myös
    ActiveX plugin (ActiveX-liitännäinen)
    Mozilla plugin (Mozilla-liitännäinen)
    (vaikka SaunaVisioVBS ei niitä tarvi)

asenna wget


tallenna koneelle SaunaVisioVBS.vbs (vaikka työpöydälle)
http://saunavisio.wippiespace.com/saunavisio/SaunaVisioVBS/SaunaVisioVBS.vbs

avaa SaunaVisioVBS.vbs notepadiin ja tarkista/muuta seuraavat kohdat

vlc        = "C:Program FilesVideoLANVLCvlc.exe"
wget        = "C:Program FilesGnuWin32inwget.exe"
directory  = "C:videosaunavisio""
username    = ""
password    = ""
portal      = saunavisio
infofile    = 1

Käynnistä SaunaVisioVBS.vbs

Toiminta:
katso tallenne linkkiä painamalla ohjelma
- käynnistää tallenteen katsomisen (vlc)

Atl + katso tallenne linkkiä painamalla ohjelma
- käynnistää tallenteen lataamisen (wget)

Sovellushakemistoon kirjoitetaan lokitiedostoa SaunaVisioVBS.log

177 kommenttia


Koska ainakin minulle on epäselvää toimiiko SaunaVisioDownloader elisa viihteen puolella tein tällaisen VBScript-version.
Tuota joutuu varmasti hieman muokkaamaan elisa viihteelle mutta näppärältä kaverilta se kyllä onnistuu vaikka kommentit koodista puuttuukin.

Toiminta poikkee hieman SaunaVisioDownloader ohjelmasta (ikävä kyllä)
CapsLock pois    => Katso tallenne linkki avaa tallenteen vlc ohjelmaan
CapsLock päällä => Katso tallenne linkki lataa tallenteen wget ohjelmalla

http://saunavisio.wippiespace.com/saunavisio/SaunaVisioVBS/ ' TARGET='_blank


Kiitos tästä! Kun skriptissä vaihtaa osoitteen saunavisio.fi/tvrecorder tilalle joka paikassa elisaviihde.fi/etvrecorder, niin katselu käy Elisaviihteessä mainiosti.

Tallennus ei sen sijaan ota toimiakseen. Tulee virheilmoitus rivillä 101: ei löydy SaunaVisioVBS/SaunaVisioVBS.vbs:ää. Mistähän yrittää etsiä, kun juuri tuli käyttäneeksi?  Kai tarkoitus on, että tallennus-directory merkataan skriptissä tunnuskohtaa ennen? Miksiköhän skripti hajoaa ruudussa kuin varpuset tuuleen, kun sen avaa memon edit-valinnalla?

Tallennus ei sen sijaan ota toimiakseen. Tulee virheilmoitus rivillä 101: ei löydy SaunaVisioVBS/SaunaVisioVBS.vbs:ää. Mistähän yrittää etsiä, kun juuri tuli käyttäneeksi?  Kai tarkoitus on, että tallennus-directory merkataan skriptissä tunnuskohtaa ennen? Miksiköhän skripti hajoaa ruudussa kuin varpuset tuuleen, kun sen avaa memon edit-valinnalla?

Se ei löydä wget ohjelmaa, mitä sulla on tässä kohtaa?
wget      = "c:apuwget.exe -t0 -c -S --progress=dot:mega -owget.log"

Tuossa kerrotaan että wget ohjelma löytyy c:apu hakemistosta
jos näin ei ole
- korjaa hakemistopolku osoittamaan wget ohjelmaan
tai
- kopioi wget ohjelma hakemistoon c:apu

wget löytyy vaikka täältä
http://users.ugent.be/~bpuype/wget/ ' TARGET='_blank
Kiitos pekko666!
Toimii noilla anttieskin korjauksilla, mutta herjaa vielä kirjautumisvaiheessa:

Komentosarja: c:SaunavisioElisaViihde.vbs
Rivi: 33
Merkki: 4
Virhe: Objekti puuttuu: `ie.document.forms(...)`
Koodi: 800A01A8
Lähde: Suorituksenaikainen Microsoft VBScript -virhe
Se ei löydä wget ohjelmaa, mitä sulla on tässä kohtaa?
wget      = "c:apuwget.exe -t0 -c -S --progress=dot:mega -owget.log"

Tuossa kerrotaan että wget ohjelma löytyy c:apu hakemistosta
jos näin ei ole
- korjaa hakemistopolku osoittamaan wget ohjelmaan
tai
- kopioi wget ohjelma hakemistoon c:apu

wget löytyy vaikka täältä
http://users.ugent.be/~bpuype/wget/ ' TARGET='_blank

Kiitos. Olin ladannut koko GnuWin32-paketin ja osoittanut skriptitekstissä sen bin iedostossa olevaan wget:iin, mutta nyt kun sijoitin sen apuhakemistoon antamastasi osoitteesta, alkoi tallennuskin toimia.

Tallennus ei nyt kuitenkaan mene skriptissä ensimmäisen directory-sanan lainausmerkkien väliin kirjoitettuun tiedostoon, vaan päätyy nimellä tunnistamaton.ts tuohon Saunavisio.vbs -tiedostoon. Löytäähän sen tietenkin sieltäkin, mutta olenkohan sotkenut loppuskriptejä, kun tallennus ei päädy toivomaani tiedostoon, ja vielä nimellä...?

Tallennus ei nyt kuitenkaan mene skriptissä ensimmäisen directory-sanan lainausmerkkien väliin kirjoitettuun tiedostoon, vaan päätyy nimellä tunnistamaton.ts tuohon Saunavisio.vbs -tiedostoon. Löytäähän sen tietenkin sieltäkin, mutta olenkohan sotkenut loppuskriptejä, kun tallennus ei päädy toivomaani tiedostoon, ja vielä nimellä...?


Lataa uusin versio niin pitäis toimia, ekassa oli jäänyt vähän debuggausta päälle josta tuo tunnistamaton.ts todennäköisesti johtuu.
Uudemmalla versiolla lataa oikealle levylle - ja vielä kunnon nimen kanssa. :D

Kun tämän saisi vielä asennetuksi läppärillekin. Siinä ei tosin minulla ole vielä VLC-soitintakaan ja langattoman yhteyden yli on aina ollut ongelmia.

Kiitos!

Toimii noilla anttieskin korjauksilla, mutta herjaa vielä kirjautumisvaiheessa:

Saitkos Hamil tämän toimimaan?


Toimii noilla anttieskin korjauksilla, mutta herjaa vielä kirjautumisvaiheessa:

Saitkos Hamil tämän toimimaan?


En, ikäväkseni. Toimii muuten, mutta tuo herja on alussa.
Tein pikku muutoksen sisäänkirjaukseen, voisit kokeilla uusinta versiota.
Nyt toimii!! Kiitos!
Oli vielä unohtunut yks debuggaus päälle, siirrettyyn tallenteeseen ei tullut aikaleimaa, korjattu.
Käyttäjätaso 3
Ei tallenna minullakaan, ei.. Ei ole väliä onko CapsLock päälle vai ei, aina avaa uuteen sivuun katselutilaan..

Ja kyllä, wget löytyy sille määritetystä polusta joka myös on SaunaVisioVBS:ään kirjoitettu siinä alussa.
Directory on myös olemassa ja siihen kohtaa kirjoitettu..

(Ja tietysti yritän käyttää sitä Elisaviihdettä vastaan)
(Automaattinen kirjautuminen ei toimi, vaikka ko. kohdat VBS:ssä on kirjoitettu)

Ei tallenna minullakaan, ei.. Ei ole väliä onko CapsLock päälle vai ei, aina avaa uuteen sivuun katselutilaan..

Siis avautuuko kokonaan uusi selainikkuna???

Kokeile uusinta versiota
- sisäänkirjausta muutettu
- kirjoittaa lokitiedostoa

vlc ja wget määrityksissä lainausmerkit pitää olla just eikä melkein oikein

vlc      = """C:Program FilesVideoLANVLCvlc.exe"" --sub-language fi --vout-filter deinterlace --deinterlace-mode blend"
wget      = """c:apuwget.exe"" -t0 -c -S --progress=dot:mega -owget.log"

Ei tallenna minullakaan, ei.. Ei ole väliä onko CapsLock päälle vai ei, aina avaa uuteen sivuun katselutilaan..
Ja kyllä, wget löytyy sille määritetystä polusta joka myös on SaunaVisioVBS:ään kirjoitettu siinä alussa.
Directory on myös olemassa ja siihen kohtaa kirjoitettu..
(Ja tietysti yritän käyttää sitä Elisaviihdettä vastaan)
(Automaattinen kirjautuminen ei toimi, vaikka ko. kohdat VBS:ssä on kirjoitettu)


Hyvin on toiminut, kirjautuu oikein ja tallentaa oikeaan kansioon sekä kopioi latauslinkin leikepöydälle.
Kannattanee tarkistaa olisiko tullut kirjoitusvirheitä?
Käyttäjätaso 3
Uusin? Sekö versio jonka päivämäärä on 03.07.2009 ??  Se minulla on.

Avautuu samaan ikkunaan (paitsi jos painan Shift-näppäintä). Ei reagoi CapsLock näppäimeen
Ja VLC versioni on 0.8.6i Janus (jolla saunavisiosta toimi ihan hyvin viikko sitten)

Tämä kohta minulla ollee oikein (kun se minulla on e:util )

vlc       = """C:Program FilesVideoLANVLCvlc.exe"" --sub-language fi --vout-filter deinterlace --deinterlace-mode blend"
wget      = """c:apuwget.exe"" -t0 -c -S --progress=dot:mega -owget.log"

(aukeaa muuten oudonnäköisenä winkkarin notepad:ssä. Rivinvaihtojen kohdalla on vain outo neliskantti. Muutin jokaisen)

Tämännäköinen se siis on:

vlc      = """C:Program FilesVideoLANVLCvlc.exe"" --sub-language fi --vout-filter deinterlace --deinterlace-mode blend"
wget      = """e:utilwget.exe"" -t0 -c -S --progress=dot:mega -owget.log"
directory = "f:saunavisiodown"
username  = ""
password  = ""

set shell = wscript.createobject("wscript.shell")
set ie = wscript.createobject("internetexplorer.application", "ie_")
set dynwrap = createobject("dynamicwrapper")
dynwrap.register "user32.dll", "GetKeyState", "I=l", "f=s", "R=u"

login = 0
ie.addressbar = 0
ie.toolbar = 0
ie.statusbar = 0
ie.visible = 1
ie.navigate "http://elisaviihde.fi/etvrecorder//logout.sl"

do
wscript.sleep 1
loop

sub ie_documentcomplete(pdisp, url)

if instr(1, url, "http://elisaviihde.fi/etvrecorder//index.sl") then
if username <> "" and password <> "" and login = 0 then
login = 1
ie.document.all.item("username").value = username
ie.document.all.item("password").value = password
on error resume next
ie.document.forms("svlogin").submit
if err then ie.document.forms("evlogin").submit
on error goto 0
end if
end if

if instr(1, url, "http://elisaviihde.fi/etvrecorder//program.sl?programid=") then
if instr(1, url, "view=true") then
innerhtml = ie.document.body.innerhtml

i1 = instr(1, innerhtml, "doGo('")
if i1 then
i1 = i1 + 6
i2 = instr(i1, innerhtml, "')")
if i2 then
url2 = " " & chr(34) & mid(innerhtml, i1, i2 - i1) & chr(34)
if dynwrap.GetKeyState(20) then

i1 = instr(1, innerhtml, "Aika: ")
if i1 then
i1 = i1 + 13
i2 = instr(i1, innerhtml, "
")
if i2 then
aika = mid(innerhtml, i1, i2 - i1)
vvvv = mid(aika, 7, 4)
kk = mid(aika, 4, 2)
pp = mid(aika, 1, 2)
hh = mid(aika, 12, 2)
mm = mid(aika, 15, 2)
aika = vvvv & kk & pp & "_" & hh & mm
end if
end if

ohjelma = "tunnistamaton"

i1 = instr(1, innerhtml, "Ohjelma: ")
if i1 then
i1 = i1 + 16
i2 = instr(i1, innerhtml, "
")
if i2 then ohjelma = mid(innerhtml, i1, i2 - i1)
end if

if aika <> "" then
ohjelma = aika & "_" & ohjelma & ".ts"
else
ohjelma = ohjelma & ".ts"
end if

ohjelma = replace(ohjelma, chr(32), "_")    rem 
ohjelma = replace(ohjelma, chr(34), "")      rem "
ohjelma = replace(ohjelma, chr(42), "")      rem *
ohjelma = replace(ohjelma, chr(47), "")      rem /
ohjelma = replace(ohjelma, chr(58), "")      rem :
ohjelma = replace(ohjelma, chr(60), "")      rem <
ohjelma = replace(ohjelma, chr(62), "")      rem >
ohjelma = replace(ohjelma, chr(63), "")      rem ?
ohjelma = replace(ohjelma, chr(92), "")      rem
ohjelma = replace(ohjelma, chr(124), "")    rem |

if directory <> "" then
if right(directory, 1) <> """ then directory = directory & """
makedir directory
end if

command = wget & url2
if ohjelma <> "" then command = command & " -O" & directory & ohjelma
shell.run command, 7, false
else
command = vlc & url2
shell.run command, 3, false
end if
end if
end if
ie.navigate "http://elisaviihde.fi/etvrecorder//ready.sl"
end if
end if

end sub

sub makedir(dir)

set fso = createobject("scripting.filesystemobject")
if right(dir, 1) <> """ then dir = dir & """

i = instr(i + 1, dir, """)
while i
if not fso.folderexists(left(dir, i)) then fso.createfolder(left(dir, i))
i = instr(i + 1, dir, """)
wend

end sub

sub ie_onquit()
wscript.quit
end sub
Sulla ei oo uusin versio (vaikka vika ei olekaan siinä)

vika on näissä

http://elisaviihde.fi/etvrecorder//index.sl

http://elisaviihde.fi/etvrecorder//ready.sl

ne pitää olla muodossa

http://elisaviihde.fi/etvrecorder/index.sl

http://elisaviihde.fi/etvrecorder/ready.sl

Onkos sulla joku kannettava tai erikoisempi näppäimstö käytössä.
Käyttäjätaso 3

Sulla ei oo uusin versio (vaikka vika ei olekaan siinä)

vika on näissä

http://elisaviihde.fi/etvrecorder//index.sl

http://elisaviihde.fi/etvrecorder//ready.sl

ne pitää olla muodossa

http://elisaviihde.fi/etvrecorder/index.sl

http://elisaviihde.fi/etvrecorder/ready.sl

Onkos sulla joku kannettava tai erikoisempi näppäimstö käytössä.


Jaa, mikä on SaunavisioVBS.vbs uusin versio, jos 03.07..  ei ole??

Kiitos rivien korjauksesta, silmät ristissä yritin etsiä tuota (kaksois-kautta luultavasti johtuu siitä että kopioin osoiteriviltä yhden merkin liikaa ennenkuin tein etsi-korvaa)
NYT TOIMII!!

(Kone on ihan normaali itserakennettu MSI K9A2 CF-F ver.1.0 (BIOS 1.8) , AMD Phenom 8650 boxed, 2*2048MB Kingston Valueram, Club 3D 8600GT 512MB, 500GB+640GB (Samsung HD501LJ + WDC WD6400AAKS SATA-HDs), LiteOn SOHW-1693S DVD+/-RW DL, TDK CDRW321040B CD-RW, WT KM06 case, 420W PSU, add'l Nexus 80mm case fan.
OS: Windows XPhome (SP3 and all fixes
Näppis on joku Thrust EasyScroll multimediamalli jossa vieritysrulla vasemassa päädyssä)
Ihan ei mee ongelmitta tuo VBS. Käytössä on win7, 64bittinen. komentokehotteessa järjestelmänvalvojan oikeuksilla tuo "regsrv32.exe dynwrap.dll" toimi, hiirellä kun veti dll:n exe:n päälle niin tulee virheilmoitus "DllRegisterServer in F:saunavisiodynwrap.dll failed. Return code was: 0x800004005"

saunavisiovbs.vbs:n käynnistäessa tulee sitten tälläinen virheilmo

Komentosarja:                  F:saunavisioSaunaVisioVBS.vbs
Rivi:                                15
Merkki:                            1
Virhe:
Kokeilin 32bittisessä win7:ssa ja kyllä se toimii

Ensin tuli tosin virheilmoitus riviltä 13 ettei voi luoda objektia internetexplorer.application mutta siitäkin selvisi kunhan teki seuraavasti
- avaa komentokehote administrator oikeuksilla
- käynnistä komentokehotteesta SaunaVisioVBS.vbs
- pitäis toimia

Nuo kun teki niin sitten SaunaVisioVBS.vbs toimi myös normaali oikeuksilla
http://saunavisio.wippiespace.com/saunavisio/SaunaVisioVBS/SaunaVisioVBS.vbs ' TARGET='_blank

lisätty:
koska tvmedia11.saunalahti.fi tökkii jatkuvasti, tallenteita ei koskaan katsota/ladata sen kautta vaan se vaihdetaan tvmedia12.saunalahti.fi
Jep ei skulaa 64bit Win7:lla.

Mikkisoftan sivuilla neuvotaan käyttämään windowssyswow64 alla olevaa Regsvr32.exe, mutta ei silläkään toimi. http://support.microsoft.com/kb/282747

Tuon kanssa virheviesti on "The module "c: empSaunaVisioVBSdynwrap.dll" was loaded but the call to DllRegisterServer failed with error code 0x80004005."

Olisi kyllä kiva, kun ilmeisesti tuo yksi serveri kyykkää jatkuvasti eikä koneella pysty katsomaan lähes mitään.
http://saunavisio.wippiespace.com/saunavisio/SaunaVisioVBS/SaunaVisioVBS64.vbs

Koska dynwrap.dll käyttö ei ilmeisesti onnistu 64-bittisessä windowsissa niin tehty pikakorjaus.
Jos scriptille on annettu käynnistysparametri wget tallenteet ladataan, muutoin katsellaan vlc:llä
Nopealla testauksella toimii sekä katselu että lataus 64bit Win7:lla. Kiitos!
Nyt Tarvitaan kädestäpitäen ohjeet tähän hommaan!! Tilanne on nyt sellainen, että homma toimii hienosti saunavision puolella, mutta kun yritän mennä elisan puolelle, niin kuva aukeaa vaan selaimeen, oli sitten caps lock pohjassa tai ei? Ilmeisesti en nyt tajua mihin laittaa mitäkin.. Eikö kuitenkin ole niin että SaunaVisioDownloader.ini tiedostolle ei tehdä muutoksia? Pitääkö tuo saunavisio.vbs olla samassa kansiossa downloasderin kanssa yms.. HAJOO PÄÄ!!

Nyt Tarvitaan kädestäpitäen ohjeet tähän hommaan!! Tilanne on nyt sellainen, että homma toimii hienosti saunavision puolella, mutta kun yritän mennä elisan puolelle, niin kuva aukeaa vaan selaimeen, oli sitten caps lock pohjassa tai ei? Ilmeisesti en nyt tajua mihin laittaa mitäkin..

SaunaVisioVBS.vbs tiedostoa pitää muokata jotta se toimisi elisa viihteellä.
muuta nämä

[url=http://www.saunavisio.fi/tvrecorder/]http://www.saunavisio.fi/tvrecorder/


http://www.saunavisio.fi/tvrecorder/ready.sl
muotoon

http://elisaviihde.fi/etvrecorder/

http://elisaviihde.fi/etvrecorder/ready.sl
niin silloin pitäisi toimia, joku joka on tuon elisa viihteelle muokannut toimivaksi voisi vahvistaa.


Eikö kuitenkin ole niin että SaunaVisioDownloader.ini tiedostolle ei tehdä muutoksia?

SaunaVisioDownloader ja SaunaVisioVBS ovat itsenäisiä, erillisiä sovelluksia, niillä ei ole yhteisiä tiedostoja.

SaunaVisioVBS:n asetukset ovat SaunaVisioVBS.vbs tiedoston alussa.
vlc      = """C:Program FilesVideoLANVLCvlc.exe"" --sub-language fi --vout-filter deinterlace --deinterlace-mode blend"
wget      = """c:apuwget.exe"" -t0 -c -S --progress=dot:mega -owget.log"
directory = ""
username  = ""
password  = ""


Pitääkö tuo saunavisio.vbs olla samassa kansiossa downloasderin kanssa yms.. HAJOO PÄÄ!!

Ei tarvi, SaunaVisioDownloader ja SaunaVisioVBS ovat itsenäisiä, erillisiä sovelluksia, niillä ei ole yhteisiä tiedostoja.

Taas pitää muistuttaa, lukekaa niitä ohjeita.
http://saunavisio.wippiespace.com/saunavisio/SaunaVisioVBS/LUE_MINUT.TXT[/url]
Onko noissa joku kohta mitä pitäisi selventää?

Osallistu keskusteluun