Jump to content

Die eingebauten Scripte...


admi-ral

Recommended Posts

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 :blush:

 

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 :D

Edited by admi-ral
Link to comment
Guest Lars_MQ

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.

Link to comment

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Unfortunately, your content contains terms that we do not allow. Please edit your content to remove the highlighted words below.
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...