CapturePlugin - WinTV

Standard Aufnahme

Legt ein neues Gerät mit dem Standard-Treiber an.

Nach dem erfolgreichen Anlegen des Gerätes müßt Ihr es auswählen und "Gerät konfigurieren" wählen.

Achtung: Es wird zusätzlich noch das Programm schtasks.exe benötigt!

!! wichtig !! keine Leerzeichen, Sonderzeichen oder Umlaute in den Pfaden, Benutzername oder Passwort verwenden!!! (und natürlich diese Anpassen).

Folgendes müßt Ihr eingeben, damit WinTV funktioniert:

Unter Applikation:

c:\windows\system32\schtasks.exe

Unter Parameter:

Aufnahme-Parameter:(Channal)

/create /SC EINMAL /TN %T2_%CNB_%SD%SMO%SY_%SH%SMI /TR "C:\Programme\WinTV\WinTV2K.EXE -c%CNU -ntod -nss -startr:%T2_%CNA_%SD%SMO%SY_%SH%SMI.mpg -qdef -limit:%LS -mute -exitr" /ST %SH:%SMI:00 /SD %SD/%SMO/%SY /ru %UN /rp %UP 

Aufnahme-Parameter:(Preset)

/create /SC EINMAL /TN %T2_%CNB_%SD%SMO%SY_%SH%SMI /TR "C:\Programme\WinTV\WinTV2K.EXE -p%CNU -ntod -nss -startr:%T2_%CNA_%SD%SMO%SY_%SH%SMI.mpg -qdef -limit:%LS -mute -exitr" /ST %SH:%SMI:00 /SD %SD/%SMO/%SY /ru %UN /rp %UP 

Löschen-Parameter:

/delete /TN %T2_%CNB_%SD%SMO%SY_%SH%SMI /F 

Und bitte den Pfad zu WinTV2K.exe anpassen!

Unter Einstellungen:
Euren Windows Benutzernamen und Passwort, wenn der Benutzername oder das Passwort ein Leerzeichen enthaltet, diese bitte mit " am Anfang und Ende angeben.

Unter Kanäle müßt ihr die Kanal-Nummern(Channel) oder die Stations-Nummern(Preset) von WinTV angeben.

Aufnahme aus dem Standby für XP

Es existiert die Möglichkeit per Kommandozeilen-Tool einzustellen ob der Rechner automatisch hochgefahren werden soll. Dafür müßte allerdings ein kleines VB-Skript geschreiben werden.
Zusätzlich werden diese zwei Programme benötigt:
schtasks.exe und waketask.exe http://www.huebert.info/waketask/

!! wichtig !! keine Leerzeichen, Sonderzeichen oder Umlaute in den Pfaden, Benutzername oder Passwort verwenden!!! (und natürlich diese Anpassen).

Legt ein neues Gerät mit einem Standard-Treiber an.

Folgendes müßt Ihr eingeben, damit WinTV funktioniert:

Unter Applikation:

C:\Windows\System32\cscript.exe

Unter Parameter:

Aufnahme-Parameter:

c:\progdvb\timer.vbs %SH %SMI %SD %SMO %SY  %EH %EMI %CNU %UP %UN %T2 %LS  %LM %CNB

Löschen-Parameter:

c:\progdvb\deltimer.vbs  %SH %SMI %SD %SMO %SY  %EH %EMI %CNU  %T2   %LM %CNB

Unter Einstellungen:
Euren Windows Benutzernamen und Passwort, wenn der Benutzername oder das Passwort ein Leerzeichen enthaltet, diese bitte mit " am Anfang und Ende angeben.

Unter Kanäle müßt ihr die Kanal-Nummern(Channel) oder die Stations-Nummern(Preset) von WinTV angeben.

Die Skripte

timer.vbs

Set ArgObj = WScript.Arguments
v_counter = ArgObj.count

IF  14 <> v_counter THEN
  Wscript.Echo  "Falsche Anzahl der Parameter"
  WScript.Quit(1)
ELSE


      v_starthh = ArgObj(0)
     v_startmin = ArgObj(1)
     v_startday = ArgObj(2) 
   v_startmonth = ArgObj(3)
    v_startyear = ArgObj(4)
        v_endhh = ArgObj(5)
       v_endmin = ArgObj(6)
    v_channelnr = ArgObj(7)
     v_password = ArgObj(8)
         v_user = ArgObj(9)
     v_telecast = ArgObj(10)
      v_seconds = ArgObj(11)
      v_minutes = ArgObj(12)
  v_channelname = ArgObj(13) 
 

  if 100 > v_minutes Then
    v_minutes = 0 &  v_minutes
  END IF
  v_taskname = """"& v_startmonth & "," & v_startday & " " & v_starthh &  v_startmin & "-" & v_endhh & v_endmin  & " " & v_minutes & " " & v_channelnr & " " & v_channelname & " " & v_telecast &""""
  Wscript.Echo "create " & v_taskname
  v_user = """"& v_user & """"
  v_password = """" & v_password & """"
 

  v_startdate = v_startday & "/" & v_startmonth & "/" & v_startyear
  v_starttime = v_starthh & ":" & v_startmin & ":00"
 

  v_path_record  = "C:\Windows\System32\cscript.exe  c:\progdvb\record.vbs  C:\PROGRAMME\WinTV\WinTV2K.EXE"
  v_path_schtasks = "%systemroot%\system32\schtasks.exe"
  v_path_waketask = "%systemroot%\System32\waketask.exe"
 

  v_startprog = """"& v_path_record &" "& v_channelnr &" "& v_telecast &" "& v_channelname & " " & v_seconds & """"
 

  v_create = 0
  

  Set objShell = WScript.CreateObject("WScript.Shell")
  Set objExecObject = objShell.Exec("" & v_path_schtasks &" /create /sc EINMAL /st " & v_starttime & " /sd " & v_startdate & " /ru " & v_user & " /rp " & v_password & " /tn " & v_taskname & " /tr "& v_startprog )
  Do While Not objExecObject.StdOut.AtEndOfStream
     strText = objExecObject.StdOut.ReadLine()
     If Instr(strText, "ERFOLGREICH") < 1 Then 
      Wscript.Echo strText 
      v_create  = 1 
     End If
  Loop
  IF 0 = v_create THEN
    Set task = WScript.CreateObject("WScript.Shell")
    task.run ("" & v_path_waketask &" 1 " & v_taskname ),1
    Wscript.Echo "create "& v_taskname
  ELSE 
    WScript.Quit(1)
  END IF 
END IF   

deltimer.vbs

Set ArgObj = WScript.Arguments
v_counter = ArgObj.count
IF  11 <> v_counter THEN
  Wscript.Echo  "Falsche Anzahl der Parameter"
  WScript.Quit(1)
ELSE


      v_starthh = ArgObj(0)
     v_startmin = ArgObj(1)
     v_startday = ArgObj(2) 
   v_startmonth = ArgObj(3)
    v_startyear = ArgObj(4)
        v_endhh = ArgObj(5)
       v_endmin = ArgObj(6)
      v_channal = ArgObj(7)
     v_telecast = ArgObj(8)
      v_minutes = ArgObj(9)
  v_channelname = ArgObj(10)


  if 100 > v_minutes Then
    v_minutes = 0 &  v_minutes
  END IF
  v_taskname = """"& v_startmonth & "," & v_startday & " " & v_starthh &  v_startmin & "-" & v_endhh & v_endmin  & " " & v_minutes & " " & v_channal & " " & v_channelname & " " & v_telecast &""""


  Wscript.Echo "delete " & v_taskname 


  v_path_schtasks = "%systemroot%\system32\schtasks.exe" 


  set task = wscript.CreateObject("wscript.Shell")
  task.run ("" & v_path_schtasks & " /delete /tn "& v_taskname &" /F"),1
END IF 

record.vbs

Set ArgObj = WScript.Arguments


v_path_winTV  = ArgObj(0)
  v_channelnr = ArgObj(1)
   v_telecast = ArgObj(2)
v_channelname = ArgObj(3)    
    v_seconds = ArgObj(4)

  
Wscript.Echo  " Win TV: starte Aufnahme " & v_telecast & " " & v_channelname
wscript.sleep 2000


v_m   =  DatePart("m" , Now)
v_d   =  DatePart("d" , Now)
v_h   =  Hour(Now) 
v_min =  Minute(Now) 
 

IF v_m < 10 Then
  v_m = 0 & v_m
END IF
IF v_d < 10 Then
  v_d = 0 & v_d
END IF
IF v_h < 10 Then
  v_h = 0 & v_h
END IF
IF v_min < 10 Then
  v_min = 0 & v_min
END IF


v_currenttime = DatePart("yyyy" , Now) &","& v_m &","& v_d &"_"& v_h & v_min
 

v_startprog = ""& v_path_winTV &" -c"& v_channelnr &" -ntod -startr:" & v_telecast & "_" & v_currenttime &"_"& v_channelname & ".mpg -qvcd  -limit:" & v_seconds & " -mute -exitr"
 

set task = wscript.CreateObject("wscript.Shell")
task.run("C:\Programme\WinTV\Ir.exe /QUIET"),1 
wscript.sleep 2000
task.run(v_startprog),1

Dieser Beschreibung geht davon aus, dass
die Skripte in -> c:\progdvb ,
schtasks.exe und waketask.exe in -> %systemroot%\system32\ und
WinTV und IR als -> C:\PROGRAMME\WinTV\WinTV2K.EXE bzw als C:\Programme\WinTV\Ir.exe
gespeichert sind.

Wenn sie Stations-Nummern verwenden tauschen sie im record.vbs die Zeile v_startprog =... mit diese Zeile aus.

v_startprog = ""& v_path_winTV &" -p"& v_channelnr &" -ntod -startr:" & v_telecast & "_" & v_currenttime &"_"& v_channelname & ".mpg -qvcd  -limit:" & v_seconds & " -mute -exitr"

Sie können den Tasknamen (v_taskname) ändern, er muss nur im timer.vbs und deltimer.vbs gleich sein. Wenn sie am Ende oder Anfang keine Variable benützen, dann reichten drei """ ohne &.
(Siehe in record.vbs v_startprog = ... )

Log Datei hier zB. als Anhang in der record.vbs
(die txt Datei muss schon bestehen)

wscript.sleep 5000


v_aufnahme =  v_telecast & " " & v_channelname


Set objFSO = wscript.CreateObject("Scripting.FileSystemObject")


v_strPath = "G:\video2\8_log"
v_datei   = "record.txt"
v_strFullName = objFSO.BuildPath( v_strPath , v_datei)


Set objFile = objFSO.OpenTextFile(v_strFullName ,8 )
objFile.WriteLine "" & Now & " : "& v_aufnahme &""
objFile.Close

Aufnahme aus dem Standby für Win2k und XP

Es existiert die Möglichkeit per Kommandozeilen-Tool einzustellen ob der Rechner automatisch hochgefahren werden soll. Dafür müßte allerdings ein kleines VB-Skript geschreiben werden. ( Für Win2k & XP)
Zusätzlich wird dieses Programme benötigt:
jt.exe ftp://ftp.microsoft.com/reskit/win2000/jt.zip (der Server ist öfters Überlastet)
alternativ http://ftp.se.kde.org/pub/vendor/microsoft/ResKit/win2000/
Für das System gelten die gleichen Vorraussetungen wie für schtasks.exe.
!! wichtig !! keine Leerzeichen, Sonderzeichen oder Umlaute in den Pfaden, Benutzername oder Passwort verwenden!!! (und natürlich diese Anpassen).

Legt ein neues Gerät mit einem Standard-Treiber an.

Folgendes müßt Ihr eingeben, damit WinTV funktioniert:

Unter Applikation:

C:\Windows\System32\cscript.exe

Unter Parameter:

Aufnahme-Parameter:

c:\progdvb\timer.vbs %SH %SMI %SD %SMO %SY  %EH %EMI %CNU %UP %UN %T2 %LS  %LM %CNB

Löschen-Parameter:

c:\progdvb\deltimer.vbs  %SH %SMI %SD %SMO %SY  %EH %EMI %CNU  %T2   %LM %CNB

Unter Einstellungen:
Euren Windows Benutzernamen und Passwort, wenn der Benutzername oder das Passwort ein Leerzeichen enthaltet, diese bitte mit " am Anfang und Ende angeben.

Unter Kanäle müßt ihr die Kanal-Nummern(Channel) oder die Stations-Nummern(Preset) von WinTV angeben.

Die Skripte

timer.vbs

 

Set ArgObj = WScript.Arguments


v_counter = ArgObj.count

IF  14 <> v_counter THEN
  Wscript.Echo  "Falsche Anzahl der Parameter"
  WScript.Quit(1)
ELSE
      v_starthh = ArgObj(0)
     v_startmin = ArgObj(1)
     v_startday = ArgObj(2) 
   v_startmonth = ArgObj(3)
    v_startyear = ArgObj(4)
        v_endhh = ArgObj(5)
       v_endmin = ArgObj(6)
    v_channelnr = ArgObj(7)
     v_password = ArgObj(8)
         v_user = ArgObj(9)
     v_telecast = ArgObj(10)
      v_seconds = ArgObj(11)
      v_minutes = ArgObj(12)
  v_channelname = ArgObj(13) 


  IF 100 > v_minutes THEN
    v_minutes = 0 &  v_minutes
  END IF


  v_taskname = """"& v_startmonth &","& v_startday &" "& v_starthh & v_startmin &"-"& v_endhh & v_endmin  &" "& v_minutes &" "& v_channelnr &" "& v_channelname &" "& v_telecast &".job"""
  'v_taskname kann nach Anleitung geändert werden


  Wscript.Echo "create " & v_taskname


  v_user         = """"& v_user &""""
  v_password     = """"& v_password &""""
  v_startdate    = v_startmonth &":"& v_startday &":"& v_startyear
  v_starttime    = v_starthh &":"& v_startmin


  v_path_cscript = "C:\Windows\System32\cscript.exe"
  v_path_record  = "c:\progdvb\aufnahme.vbs  c:\PROGRAMME\WinTV\WinTV2K.EXE"
  v_path_jt      = "%systemroot%\system32\jt.exe"
 'Pfade anpassen !!!!


  ' v_machine =
  ' /SM [<machine>] - set machine (NULL = local machine if omitted)


  v_parameter = """"& v_path_record &" "& v_channelnr &" "& v_telecast &" "& v_channelname &" "& v_seconds &""""
 

  v_create = 0
  Set objShell = WScript.CreateObject("WScript.Shell")
  Set objExecObject = objShell.Exec(""& v_path_jt &" /sj ApplicationName="& v_path_cscript &" SystemRequired=1 DeleteWhenDone=1  Comment=""Create by TV-Browser"" Parameters="& v_parameter &"/ctj StartTime="& v_starttime &" StartDate="& v_startdate &" type=ONCE Disabled=0 /SM "& v_machine &" /sc "& v_user &" "& v_password &" /saj "& v_taskname )
  Do While Not objExecObject.StdOut.AtEndOfStream
     strText = objExecObject.StdOut.ReadLine()
     If Instr(strText, "[FAIL") > 0 Then
       Wscript.Echo strText
       v_create = 1
     End If
  Loop


  IF 0 =  v_create THEN
    Wscript.Echo "create " & v_taskname
  ELSE
    WScript.Quit(1)  
  END IF 
END IF 

deltimer.vbs

Set ArgObj = WScript.Arguments


v_counter = ArgObj.count
IF  11 <> v_counter THEN
  Wscript.Echo  "Falsche Anzahl der Parameter"
  WScript.Quit(1)
ELSE


      v_starthh = ArgObj(0)
     v_startmin = ArgObj(1)
     v_startday = ArgObj(2) 
   v_startmonth = ArgObj(3)
    v_startyear = ArgObj(4)
        v_endhh = ArgObj(5)
       v_endmin = ArgObj(6)
      v_channal = ArgObj(7)
     v_telecast = ArgObj(8)
      v_minutes = ArgObj(9)
  v_channelname = ArgObj(10)


  if 100 > v_minutes Then
    v_minutes = 0 &  v_minutes
  END IF


  v_path_jt = "%systemroot%\system32\jt.exe" 


  v_taskname = """"& v_startmonth & "," & v_startday & " " & v_starthh &  v_startmin & "-" & v_endhh & v_endmin  & " " & v_minutes & " " & v_channal & " " & v_channelname & " " & v_telecast &".job"""

  
  Wscript.Echo "delete " & v_taskname 


  set task = wscript.CreateObject("wscript.Shell")
  task.run ("" & v_path_jt & " /sd "& v_taskname ),1
END IF 

record.vbs

Set ArgObj = WScript.Arguments


v_path_winTV  = ArgObj(0)
  v_channelnr = ArgObj(1)
   v_telecast = ArgObj(2)
v_channelname = ArgObj(3)    
    v_seconds = ArgObj(4)

 
Wscript.Echo  "Win TV: starte Aufnahme "& v_telecast &" "& v_channelname
wscript.sleep 2000


v_moth =  DatePart("m" , Now)
v_day  =  DatePart("d" , Now)
v_h    =  Hour(Now) 
v_min  =  Minute(Now) 

 
IF 10 > v_moth Then
  v_moth = 0 & v_moth
END IF
IF  10 > v_day Then
  v_day = 0 & v_day
END IF
IF 10 > v_h Then
  v_h = 0 & v_h
END IF
IF 10 > v_min Then
  v_min = 0 & v_min
END IF


v_currenttime = DatePart("yyyy" , Now) &","& v_moth &","& v_day &"_"& v_h & v_min
v_file        = v_telecast &"_"& v_currenttime &"_"& v_channelname &".mpg"
'nach Belieben anpassen nur keine Leerzeichen verwenden !!!


v_startprog = ""& v_path_winTV &" -c"& v_channelnr &" -ntod -startr:"& v_file &" -qvcd  -limit:" & v_seconds & " -mute -exitr"


set task = wscript.CreateObject("wscript.Shell")
task.run("c:\Programme\WinTV\Ir.exe /QUIET"),1
'Pfad anpassen oder die Zeile löschen !!


wscript.sleep 2000
task.run(v_startprog),1

Dieser Beschreibung geht davon aus, dass
die Skripte in -> c:\progdvb ,
jt.exe in -> %systemroot%\system32\ und
WinTV und IR als -> C:\PROGRAMME\WinTV\WinTV2K.EXE bzw als C:\Programme\WinTV\Ir.exe
gespeichert sind.

Wenn sie Stations-Nummern verwenden tauschen sie im record.vbs die Zeile v_startprog =... mit diese Zeile aus.

 v_startprog = ""& v_path_winTV &" -p"& v_channelnr &" -ntod -startr:"& v_file &" -qvcd  -limit:" & v_seconds & " -mute -exitr"

Sie können den Tasknamen (v_taskname) ändern, er muss nur im timer.vbs und deltimer.vbs gleich sein. Wenn sie am Ende oder Anfang keine Variable benützen, dann reichten drei """ ohne &.
(Siehe in record.vbs v_startprog = ... )

Log Datei hier zB. als Anhang in der record.vbs
(die txt Datei muss schon bestehen)

wscript.sleep 5000


v_aufnahme =  v_telecast & " " & v_channelname


Set objFSO = wscript.CreateObject("Scripting.FileSystemObject")


v_strPath = "G:\video2\8_log"
v_datei   = "record.txt"
v_strFullName = objFSO.BuildPath( v_strPath , v_datei)


Set objFile = objFSO.OpenTextFile(v_strFullName ,8 )
objFile.WriteLine "" & Now & " : "& v_aufnahme &""
objFile.Close

Anmerkung zu den Skripten

Wer sich die älteren Versionen angeschaut hat, stellt sicher fest das es am Anfang das Skript record.vbs nicht gab. Diese ist hinzugekommen aus zwei Gründen.

1. Das Skript (record.vbs) benützt die Systemzeit zur Namensgebung dadurch sind wöchentliche bzw. sogar tägliche Aufnahmen mit korreckter Bezeichnung möglich.
2. Meine Hauppauge USB2 hatte Probleme mit dem Starten aus dem Stanby welche, durch den Restart von IR.exe und der kurzen warte Zeit von 2 Sekunden behoben wurden.

Die Skripte sind nicht in Stein gemeisselt und können natürlich geändert werden.

Anregungen:
Ist einmal der Anhang mit der Log Datei.
und folgendes: Ein Beispiel für Manipulation an der Zeit

Die Aufgabe bestand dabei, aus einer Datumsvariable (Now) die einzele Parameter herauszulessen, in der Form, wie sie auch vom Capture Plugin übergeben werden. Dann diese wieder zu einer Datumsvariable zusammen zu setzen und ein Minute davon abzuziehen.

test.vbs

'C:\Windows\System32\cscript.exe c:\progdvb\test.vbs 


v_month =  DatePart("m" , Now)
v_day   =  DatePart("d" , Now)
v_hour  =  Hour(Now) 
v_min   =  Minute(Now) 
v_year  =  DatePart("yyyy" , Now)


Wscript.Echo  Now 


IF 10 > v_month Then
  v_month = 0 &  v_month
END IF


IF  10 > v_day Then
  v_day = 0 & v_day
END IF


IF 10 >  v_hour Then
  v_hour = 0 & v_hour
END IF


IF 10 > v_min Then
  v_min = 0 & v_min
END IF


v_currenttime =  v_day &"/"& v_month &"/"& v_year &" "& v_hour &":"& v_min &":00"


If IsDate(v_currenttime) = 0 Then
  Wscript.Echo v_currenttime & " v_currenttime ist kein gültiges Datum."
Else
  Wscript.Echo v_currenttime & " ist ein gültiges Datum."
  v_newtime = DateAdd("n", -1, v_currenttime)
  Wscript.Echo  v_newtime
End If