admi-ral Posted August 22, 2005 Share Posted August 22, 2005 (edited) Habe gerade bemerkt, dass bei einer Standard-Installation einige nützlichen scripte nicht mitinstalliert werden, deswegen gebe ich hier mal eine kurze übersicht *MÜSSEN ALLE IN DEN UNTERORDNER \Scripts\* Startrec.vbs sub main(ID,ChannelID,Filename,aDate,StartTime,EndTime,Days,Description,Instant,isPlu gin,TimerAction,ShutDown) if shutdown = 0 then shut = "Keine Aktion" if shutdown = 1 then shut = "Herunterfahren" if shutdown = 2 then shut = "Standby" if shutdown = 3 then shut = "Ruhezustand" if shutdown = 4 then shut = "Schließen" if shutdown = 5 then shut = "Playlist" if shutdown = 6 then shut = "DVBViewer Standby" osd.showinfointvpic description & "..., Endzeit: " & Endtime & ", Danach: " & shut & " .",10000 end sub das oben ist nur ein beispiel-code, der die OSD-Info-message herausgibt; man beachte dass man in diesen scripts schon *direkt* auf das DVBViewer-Com-Objekt zugreifen kann! stoprec.vbs option explicit dim shell,fso, projectx, options, outputdir,antwort,dateiDa,recordedfile,scriptname,dvbpath,scriptpath,description _s,descriptionOrg,shutdownorg '----------------------------------------------------------------- sub main(ID,ChannelID, Filename, aDate, StartTime, EndTime, Days, Description, Instant, isPlugin, TimerAction, ShutDown) If TimerManager.Recording = True Then 'wenn noch eine aufnahme (auf einem anderen sender) läuft Exit Sub End If if (DVBViewer.TimerManager.NextRecordingTime <> 0) And (DVBViewer.TimerManager.NextRecordingTime < DateAdd("n", 20, Now)) Then Exit Sub End If dateida = int(zeigedateigroesse(filename)/1048576) if dateida < 1 then antwort = osd.showinfo ("Aufnahme beendet","Möglicher Fehler festgestellt: " & dateida & " MB ","wurden aufgenommen",10,"OK") nofilerecorded exit sub elseif dateida > 2 then antwort = osd.showinfo ("Aufnahme beendet","" & filename & ", " & dateida & " MB","wurde erfolgreich erstellt",5,"OK") end if end sub '--------------------------------------------------------------- sub errorstop() end sub '----------------------------------------------------------------- sub nofilerecorded() dim length osd.showinfointvpic "Keine Datei aufgenommen, OkB Datei wird gelöscht",3000 fso.DeleteFile(recordedfile) end sub '----------------------------------------------------------------- Function ZeigeDateiGroesse(ordnerAngabe) Dim fsoo, f, s Set fsoo = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(ordnerAngabe) s = f.size ZeigeDateiGroesse = s End Function gebe keine garantie auf die funktionalität der code-schnipsel, habe da schnell was zusammengesucht starttune.vbs sub main(Description) osd.showInfoinTVpic "Tuning Timer: " & Description,1000 sendcommand(16388) end sub channelchange.vbs sub main(aID) 'osd.showInfoinTVpic "Kanal Nr: " & cstr(aID),1000 end sub so, das genügt erstmal Edited August 22, 2005 by admi-ral Quote Link to comment
Guest Lars_MQ Posted August 23, 2005 Share Posted August 23, 2005 In der COM Doku sind auch alle intern möglichen scripte aufgeführt, inklusive der parameter. Das ganze ist mit der angemessenen vorsicht zu behandeln, d.h. in den scripten keine langwierigen operationen ausführen, da man damit sonst den messagethread des OSD lahmlegt. Das hat zwar keine auswirkungen auf aufnahmen oder wiedergabe, ist trotzdem nicht die feine art. Quote Link to comment
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.