Log in

View Full Version : here is what I use to automate tv shows recording

niv
9th April 2005, 12:28
Hay all,
Thank to this forum, and a bit of googling I came up with the following files.
Using them I can scheduale windows to start recording, then clean and compress a tv show.
All is done automaticlly.

I admit readers need some knowladge in to windows batch files to read it, but it aint "that-a-big-a-deal"

I use iuVCR to record the shows.

You will need to install GK , iuVCR and mencoder for x264.
I still need to do some testing on it, but it looks good so far:

Main file is tv_show.bat:
- code --
@rem this script recives three var
@rem %1 TV show name
@rem %2 channel the show is on
@rem %3 show duration

@rem presets
set taping_drive=i:
set Huffyuv_wav={3DE238C2-73E4-42FE-B6F3-3FF6481B90EE}
set Mjpeg_wav={B6AABC7C-A8D0-44F0-88AC-7083623413B3}
@rem -----------------------
if %1==null goto error
if %2==null goto error
if %3==null goto error

set show=%1
set ch=%2
set ch_num=null
if "%ch%" == "ch33" set ch_num=1626263567
if "%ch%" == "ch2" set ch_num=1190055946
if "%ch%" == "bbc" set ch_num=619630616
if "%ch%" == "film4" set ch_num=1827590180
if "%ch%" == "ch10" set ch_num=1022283784

if %ch_num% == null goto channel-err

set duration=%3
@rem set the priod by sec
@rem -----------------------

@echo recording %show% then filtering and compressing
g:
cd "g:\Program Files\iuVCR"
if "%4"=="Huffyuv" goto Huffyuv_recording
"g:\Program Files\iuVCR\iuVCR.exe" /p:%Mjpeg_wav% /D:%duration% /F:"%taping_drive%\%show%.AVI" /CHI:%ch_num%
goto chk_record

:Huffyuv_recording
"g:\Program Files\iuVCR\iuVCR.exe" /p:%Huffyuv_wav% /D:%duration% /F:"%taping_drive%\%show%.AVI" /CHI:%ch_num%

:chk_record
if not exist "%taping_drive%\%show%.AVI" goto no_show_recorded
h:\Scripts\Video_scripting\e87.bat "%taping_drive%\%show%.AVI" %ch%
move "%taping_drive%\%show%.fin.mkv" "%taping_drive%\compressed"
goto end

:no_show_recorded
@echo no_show_recorded
goto end
:channel-err
@echo I don't have this chanell freq
goto end
:error
@echo syntax: tv_show <show_name> <channel> <duration_in_sec>
:end
rem exit

- end this code --
niv
9th April 2005, 12:31
@rem *****************************************************************
@rem * rev 8.7 uses only mencoder x264 *
@rem * This script will encode a mjpeg avi show recorded from the tv
@rem * First parameter %1 - is the file name *
@rem * second parameter %2 - is the chanel name *
@rem * third parameter %3 - is nothing for AVC and ASP for ASP(xvid)
@rem * the file x264.bat is needed. see remark
@rem *****************************************************************

if "%1"=="" goto error
:init
if %COMPUTERNAME%==NAVO goto navo
if %COMPUTERNAME%==200v goto 200v
goto error
:navo
set progdir=g:
set convertmedir=i:
goto what_2_do
:200v
set progdir=e:
set convertmedir=f:

:what_2_do
set temp=%~1
set file_name=%~1
set source_file=%temp:.avi=%
set post_process_file=%source_file%.post.avi
set compressed_file=%source_file%.2.avi
set log_file=%~1.log
set src_audio_file=%source_file%.wav
set dst_audio_file=%source_file%.ogg
set pass_data=%source_file%.video.pass
set post_codec=HFYU

if exist "%dst_audio_file%" goto what_encod_stage
if exist "%src_audio_file%" goto encode_audio
if exist %1 goto mux_audio_out
@echo missing encoding file
goto error

:what_encod_stage
if exist "%compressed_file%" goto mux_audio_in
if exist "%pass_data%" goto 2nd_pass
if exist "%post_process_file%" goto 1st_pass
goto cleaning

:mux_audio_out

@rem see remark 1

@rem ***********************************************************************
@echo Muxing original audio out at:>> "%log_file%"
@rem ***********************************************************************
date /T
time /T
date /T >> "%log_file%"
time /T >> "%log_file%"
@rem ~~~ generate mux_snd_out.syl
echo VirtualDub.Open("%file_name:\=\\%","",0); >"%source_file%.mux_snd_out.syl"
echo VirtualDub.RemoveInputStreams(); >>"%source_file%.mux_snd_out.syl"
echo VirtualDub.stream[0].SetSource(0x73647561,0,0); >>"%source_file%.mux_snd_out.syl"
echo VirtualDub.stream[0].DeleteComments(1); >>"%source_file%.mux_snd_out.syl"
echo VirtualDub.stream[0].AdjustChapters(1); >>"%source_file%.mux_snd_out.syl"
echo VirtualDub.stream[0].SetMode(0); >>"%source_file%.mux_snd_out.syl"
echo VirtualDub.stream[0].SetInterleave(1,500,1,0,0); >>"%source_file%.mux_snd_out.syl"
echo VirtualDub.stream[0].SetClipMode(1,1); >>"%source_file%.mux_snd_out.syl"
echo VirtualDub.stream[0].SetConversion(0,0,0,0,0); >>"%source_file%.mux_snd_out.syl"
echo VirtualDub.stream[0].SetVolume(); >>"%source_file%.mux_snd_out.syl"
echo VirtualDub.stream[0].SetCompression(); >>"%source_file%.mux_snd_out.syl"
echo VirtualDub.stream[0].EnableFilterGraph(0); >>"%source_file%.mux_snd_out.syl"
echo VirtualDub.stream[0].filters.Clear(); >>"%source_file%.mux_snd_out.syl"
echo VirtualDub.video.AdjustChapters(1); >>"%source_file%.mux_snd_out.syl"
echo VirtualDub.video.SetDepth(24,24); >>"%source_file%.mux_snd_out.syl"
echo VirtualDub.video.SetMode(0); >>"%source_file%.mux_snd_out.syl"
echo VirtualDub.video.SetFrameRate(0,1); >>"%source_file%.mux_snd_out.syl"
echo VirtualDub.video.SetRange(0,0); >>"%source_file%.mux_snd_out.syl"
echo VirtualDub.video.filters.Clear(); >>"%source_file%.mux_snd_out.syl"
echo VirtualDub.stream[0].SaveWAV("%src_audio_file:\=\\%"); >>"%source_file%.mux_snd_out.syl"
echo VirtualDub.Close(); >>"%source_file%.mux_snd_out.syl"

rem start "mux_audio_out" /low /D"%progdir%\Program Files\VirtualDubMod\" VirtualDubMod.exe /s"%source_file%.mux_snd_out.syl" /x
"%progdir%\Program Files\VirtualDubMod\VirtualDubMod.exe" /s"%source_file%.mux_snd_out.syl" /x >> "%log_file%"
rem start "audio to vorbis ogg" /low /D"%progdir%\Program Files\GordianKnot\BeSweet\" BeSweet.exe -core( -input "%audio_file%" -output "%audio_file%.ogg" -logfilea "%progdir%\Program Files\GordianKnot\BeSweet\BeSweet.log" ) -ota( -hybridgain ) -ogg( -q 0.200 )
:encode_audio
start "audio to vorbis ogg" /low /D"%progdir%\Program Files\Media Center\Plugins\" oggenc.exe "%src_audio_file%" "%dst_audio_file%"
rem if not exist "%audio_file%" goto mux_out_err
del "%source_file%.mux_snd_out.syl" >> "%log_file%"
goto what_encod_stage
:cleaning
@rem ******************************************************************
@echo Cleaning %source_file% at:>> "%log_file%"

date /T >> "%log_file%"
time /T >> "%log_file%"
@rem chk that there is enogh free space on target drive
if "%2"=="" goto default
if %2 == ch2 goto ch2
if %2 == ch3 goto ch3
if %2 == ch33 goto ch33
if %2 == bbc goto bbc
if %2 == film4 goto film4

:default
echo SetMemoryMax(40) > "%source_file%.pre.avs"
echo AVISource("%file_name%") >> "%source_file%.pre.avs"
echo KernelDeint(order=1) >> "%source_file%.pre.avs"
echo Undot() >> "%source_file%.pre.avs"
echo mergechroma(blur(1.3)) >> "%source_file%.pre.avs"
echo BicubicResize(512,384) >> "%source_file%.pre.avs"
echo Levels(0,1.15,255,0,255) >> "%source_file%.pre.avs"
goto clean
:ch3
echo SetMemoryMax(40) > "%source_file%.pre.avs"
echo AVISource("%file_name%") >> "%source_file%.pre.avs"
echo Telecide(order=1,guide=2,post=2,vthresh=25) >> "%source_file%.pre.avs"
echo Undot() >> "%source_file%.pre.avs"
echo Temporalsoften(3,5,5,mode=2,scenechange=10) >> "%source_file%.pre.avs"
echo Convolution3d("moviehq") >> "%source_file%.pre.avs"
echo FluxSmoothST(7,7) >> "%source_file%.pre.avs"
echo LanczosResize(512,384) >> "%source_file%.pre.avs"
echo Levels(0,1.15,255,0,255) >> "%source_file%.pre.avs"
goto clean
:ch2
echo SetMemoryMax(40) > "%source_file%.pre.avs"
echo AVISource("%file_name%") >> "%source_file%.pre.avs"
rem echo crop(6,0,0,-11) >> "%source_file%.pre.avs"
rem echo GuavaComb("PAL") >> "%source_file%.pre.avs"
echo DGBob(order=1,mode=0) >> "%source_file%.pre.avs"
echo LanczosResize(512,384) >> "%source_file%.pre.avs"
rem echo Levels(0,1.15,255,0,255) >> "%source_file%.pre.avs"
goto clean
:ch33
echo SetMemoryMax(40) > "%source_file%.pre.avs"
echo AVISource("%file_name%") >> "%source_file%.pre.avs"
rem echo crop(6,0,0,-11) >> "%source_file%.pre.avs"
rem echo GuavaComb("PAL") >> "%source_file%.pre.avs"
echo DGBob(order=1,mode=0) >> "%source_file%.pre.avs"
echo LanczosResize(512,384) >> "%source_file%.pre.avs"
rem echo Levels(0,1.15,255,0,255) >> "%source_file%.pre.avs"
goto clean
:bbc
echo SetMemoryMax(40) > "%source_file%.pre.avs"
echo AVISource("%file_name%") >> "%source_file%.pre.avs"
rem echo crop(6,0,0,-11) >> "%source_file%.pre.avs"
rem echo GuavaComb("PAL") >> "%source_file%.pre.avs"
echo DGBob(order=1,mode=0) >> "%source_file%.pre.avs"
echo LanczosResize(512,384) >> "%source_file%.pre.avs"
goto clean
:film4
echo SetMemoryMax(40) > "%source_file%.pre.avs"
echo AVISource("%file_name%") >> "%source_file%.pre.avs"
echo Telecide(order=1,guide=2,post=2,vthresh=25) >> "%source_file%.pre.avs"
echo Undot() >> "%source_file%.pre.avs"
echo Temporalsoften(3,5,5,mode=2,scenechange=10) >> "%source_file%.pre.avs"
echo Convolution3d("moviehq") >> "%source_file%.pre.avs"
echo FluxSmoothST(7,7) >> "%source_file%.pre.avs"
echo LanczosResize(512,384) >> "%source_file%.pre.avs"
echo Levels(0,1.15,255,0,255) >> "%source_file%.pre.avs"
:clean
avs2avi "%source_file%.pre.avs" "%post_process_file%" -c %post_codec% -p 0 -w

if not exist "%post_process_file%" goto pre-err
@rem move "%source_file%" \RECYCLER >> "%log_file%"
@rem del "%source_file%.pre.avs" >> "%log_file%"
:1st_pass
@rem ******************************************************************

@rem if exist "%~1.1.avi" goto 2nd_pass
@rem if exist "%pass_data%" goto 2nd_pass
@rem chk to see the file is big enotgh lots of tilda z where removed
@rem if "%1.MJPG.avi" <= %1 * 0.9 goto pre-err
@rem set %size%=(%1*9/10)
@rem set %mjpg%=(%1.MJPG.avi)
@rem if %size% <= %mjpg go2 pre-err
date /T
time /T
date /T >> "%log_file%"
time /T >> "%log_file%"

echo SetMemoryMax(40) > "%source_file%.post.avs"
echo AVISource("%post_process_file%") >> "%source_file%.post.avs"

goto 1st_pass_x264_mencoder

:1st_pass_x264_mencoder
if exist "h:\Scripts\Video_scripting\x264.bat" goto x264_mencoder_low
@echo Starting first encode at:>> "%log_file%"
date /T >> "%log_file%"
time /T >> "%log_file%"

"%PROGDIR%\Program Files\mplayer\mencoder" "%source_file%.post.avs" -nosound -o NUL: -ovc x264 -x264encopts pass=1:bitrate=491 -passlogfile "%pass_data%"
@rem mencoder -nosound "%source_file%.MJPG.avi" -o NUL: -ovc x264 -x264encopts pass=1:bitrate=491 -passlogfile "%pass_data%"

:chk_1st_pass
if not exist "%pass_data%" goto first_err

:2nd_pass
@rem ******************************************************************
@echo 2nd pass encoding at: >> "%log_file%"
date /T >> "%log_file%"
time /T >> "%log_file%"

:2nd_pass_x264_mencoder
"%PROGDIR%\Program Files\mplayer\mencoder.exe" "%source_file%" -nosound -o "%compressed_file%" -ovc x264 -x264encopts pass=2:bitrate=491 -passlogfile "%pass_data%"
@rem %PROGDIR%;cd "%PROGDIR%\Program Files\mplayer";mencoder.exe -nosound "%source_file%.MJPG.avi" -o "%source_file%.2.avi" -ovc x264 -x264encopts pass=2:bitrate=491 -passlogfile "%pass_data%"
goto chk_compressed_file

:x264_mencoder_low
@echo this file acts as a flag when spinng mencoder in low priority >"%source_file%.flag"
start "X264 mencoder running low priority" /low /D"h:\Scripts\Video_scripting" x264.bat "%source_file%.post.avs" "%pass_data%" "%source_file%.flag" "%log_file%"
:wait_4_mencoder2finish
sleep 60
@if exist "%source_file%.flag" goto wait_4_mencoder2finish

:chk_compressed_file
if not exist "%compressed_file%" goto second_err
if exist "%source_file%.pass2.reg" del "%source_file%.pass2.reg" >> "%log_file%"
if exist "%pass_data%" del "%pass_data%" >> "%log_file%"
del "%source_file%.post.avs" >> "%log_file%"
del "%post_process_file%" >> "%log_file%"


:mux_audio_in
@rem ***********************************************************************
echo muxing audio back in >> "%log_file%"
@rem ***********************************************************************
date /T >> "%log_file%"
time /T >> "%log_file%"
set fin_file=%source_file%.fin.mkv

echo VirtualDub.Open("%compressed_file:\=\\%","",0); >"%source_file%.mux_snd_in.syl"
echo VirtualDub.RemoveInputStreams(); >>"%source_file%.mux_snd_in.syl"
echo VirtualDub.stream[0].SetSource("%dst_audio_file:\=\\%",0x00000204,0); >>"%source_file%.mux_snd_in.syl"
echo VirtualDub.stream[0].DeleteComments(1); >>"%source_file%.mux_snd_in.syl"
echo VirtualDub.stream[0].AdjustChapters(1); >>"%source_file%.mux_snd_in.syl"
echo VirtualDub.stream[0].SetMode(0); >>"%source_file%.mux_snd_in.syl"
echo VirtualDub.stream[0].SetInterleave(1,500,1,0,0); >>"%source_file%.mux_snd_in.syl"
echo VirtualDub.stream[0].SetClipMode(1,1); >>"%source_file%.mux_snd_in.syl"
echo VirtualDub.stream[0].SetConversion(0,0,0,0,0); >>"%source_file%.mux_snd_in.syl"
echo VirtualDub.stream[0].SetVolume(); >>"%source_file%.mux_snd_in.syl"
echo VirtualDub.stream[0].SetCompression(); >>"%source_file%.mux_snd_in.syl"
echo VirtualDub.stream[0].EnableFilterGraph(0); >>"%source_file%.mux_snd_in.syl"
echo VirtualDub.stream[0].filters.Clear(); >>"%source_file%.mux_snd_in.syl"
echo VirtualDub.video.DeleteComments(1); >>"%source_file%.mux_snd_in.syl"
echo VirtualDub.video.AdjustChapters(1); >>"%source_file%.mux_snd_in.syl"
echo VirtualDub.video.SetDepth(24,24); >>"%source_file%.mux_snd_in.syl"
echo VirtualDub.video.SetMode(0); >>"%source_file%.mux_snd_in.syl"
echo VirtualDub.video.SetFrameRate(0,1); >>"%source_file%.mux_snd_in.syl"
echo VirtualDub.video.SetIVTC(0,0,-1,0); >>"%source_file%.mux_snd_in.syl"
echo VirtualDub.video.SetRange(0,0); >>"%source_file%.mux_snd_in.syl"
echo VirtualDub.video.filters.Clear(); >>"%source_file%.mux_snd_in.syl"
echo VirtualDub.SaveMKV("%fin_file:\=\\%"); >>"%source_file%.mux_snd_in.syl"
echo VirtualDub.Close(); >>"%source_file%.mux_snd_in.syl"

rem start "mux_audio_in" /low /D"%progdir%\Program Files\VirtualDubMod\" VirtualDubMod.exe /s"%source_file%.mux_snd_in.syl" /x
"%progdir%\Program Files\VirtualDubMod\VirtualDubMod.exe" /s"%source_file%.mux_snd_in.syl" /x

if not exist "%fin_file%" goto mux_in_err
del "%compressed_file%" >> "%log_file%"
if exist "%source_file%.mp3" del "%source_file%.mp3" >> "%log_file%"
del "%src_audio_file%" >> "%log_file%"
del "%dst_audio_file%" >> "%log_file%"
del "%source_file%.mux_snd_in.syl" >> "%log_file%"
goto end

:error
@echo You need to enter the file name after this program
goto end

:mux_out_err
@echo mux out error
goto end

:pre-err
@echo error preprocessing
goto end

:first_err
@echo error in 1st pass
goto end

:second_err
echo error in 2nd pass
goto end

:mux_in_err
@echo mux in error
goto end

@rem * some foot notes
@rem .
@rem remark 1 -- here I need to check if the encode finished correctly when
@rem it was last run.
@rem The check shuold be if the output final file (%1.2.avi) is from
@rem the same date as the original (%1.avi) or a day older AND it is
@rem larger then 500Mb

@rem * default cleaning is:
@rem * 1. open file *
@rem * 2. 2-D clean *
@rem * 3. deinterlace - Telecide() *
@rem * 4. fix levels - add 20% gamma *
@rem * 5. 3-D Clean *
@rem ******************************************************************

rem copied from GK
:little_noise
echo Temporalsoften(2,3,3,mode=2,scenechange=6) >> "%source_file%.pre.avs"
echo mergechroma(blur(1.3)) >> "%source_file%.pre.avs"
echo FluxSmoothST(5,7) >> "%source_file%.pre.avs"

:medium noise
echo Temporalsoften(3,5,5,mode=2,scenechange=10) >> "%source_file%.pre.avs"
echo Convolution3d("moviehq") >> "%source_file%.pre.avs"
echo FluxSmoothST(7,7) >> "%source_file%.pre.avs"

:heavy noise
echo Temporalsoften(4,8,8,mode=2,scenechange=10) >> "%source_file%.pre.avs"
echo Convolution3d("movielq") >> "%source_file%.pre.avs"
echo FluxSmoothST(10,15) >> "%source_file%.pre.avs"
@rem I could also do it all in one liner:
@rem avs2yuv foo.avs -hfyu huffyuv.avi -o - | mencoder - -o NUL: -ovc xvid -xvidencopts pass=1
@rem mencoder huffyuv.avi -o pass2.avi -ovc xvid -xvidencopts pass=2:bitrate=1000

@rem I could put this for better quality comptest "%compressed_file%" >"%source_file%.pass2.reg" after the 2pass tag

:end
@echo All done :-) >> "%log_file%"
date /T >> "%log_file%"
time /T >> "%log_file%"
niv
9th April 2005, 12:32
@rem simple script to encode to avc X264 without sound
@rem %1 is the file that is to be encoded
@rem %2 is the stat file created during 1st pass
@rem %3 is the flag that will be clear when this proccess is done
@rem %4 is the name of the log file
@rem output is a file by the name %~1.2.avi
@rem I am calling this script from the major cleaning/encoding script in low priority

set temp=%~1
set source_file=%temp:.post.avs=%.post.avs
set compressed_file=%temp:.post.avs=%.2.avi
set pass_data=%~2
set flag=%~3
set log_file=%~4

if not exist "%flag%" goto error
@rem "g:\Program Files\mplayer\mencoder.exe" -nosound -vf scale=512:384 "%~1" -o NUL: -ovc x264 -x264encopts pass=1:bitrate=491 -passlogfile "%~1.stat%"
@rem "g:\Program Files\mplayer\mencoder.exe" -nosound -vf scale=512:384 "%~1" -o "%~1.x264.2.avi" -ovc x264 -x264encopts pass=2:bitrate=491 -passlogfile "%~1.stat%"
@echo Starting first encode at:>> "%log_file%"
date /T
time /T
date /T >> "%log_file%"
time /T >> "%log_file%"
"g:\Program Files\mplayer\mencoder.exe" -nosound "%source_file%" -o NUL: -ovc x264 -x264encopts pass=1:bitrate=491 -passlogfile "%pass_data%"
if not exist "%pass_data%" goto first_pass_err
:2nd_pass
@echo 2nd pass encoding at: >> "%log_file%"
date /T >> "%log_file%"
time /T >> "%log_file%"

@echo Starting second pass encoding at:>> "%log_file%"
"g:\Program Files\mplayer\mencoder.exe" -nosound "%source_file%" -o "%compressed_file%" -ovc x264 -x264encopts pass=2:bitrate=491 -passlogfile "%pass_data%"

del "%flag%"
goto end

:first_pass_err
@echo error in first pass encoding
pause
goto end

:error
@echo please supply a valid flag
pause

:end
exit
niv
5th May 2005, 00:27
10x J S for the feedbak
niv
20th August 2005, 14:09
a word of warning to you lot: open your pc and look at the capacitors. If the are leaking some yellow stuff (acid) you need to replace them asap - or buy a new motherboard.

now that I am back in business. I found that iuvcr , which I used to record, gives latency betweeen the audio and the video.
I tried to fix it using the program, but then testes VD capture.

So I am thinking of using VD to automate the capturing as well.
niv
24th August 2005, 17:17
I qued a recording for 13:58 - 15:02. here is the log I got:
Muxing original audio out of i:\yes_minister at:
Wed 08/24/2005
3:02p
Cleaning i:\yes_minister by bbc settings:
Wed 08/24/2005
3:08p
Wed 08/24/2005
4:17p
Starting first encode of i:\yes_minister.post.avi at:
Wed 08/24/2005
4:17p
Second pass encoding of i:\yes_minister.post.avi at:
Wed 08/24/2005
4:40p
muxing audio back in to i:\yes_minister at:
Wed 08/24/2005
5:03p
Done with i:\yes_minister at :-)
Wed 08/24/2005
5:03p

Hw: P4 1.8A;512/266;i845;seagate 7200/2Mb disk
Darksoul71
25th August 2005, 05:06
@niv:
Nice. Just 2 comments from my side:
1) Use the "code" tag to post your batch files.
2) AutoIt might be a more "elegant" way to automate. It provides a better functionality for dealing with text files, editing registry settings, etc.

Have a look here: http://www.autoitscript.com/autoit3/

Makes automating stuff IMO very easy. Here as example my VirtualDub CLI:

;----------------------------------------------------------------------------
;
; AutoIt Version: 3.0
; Language: English
; Platform: WinXP Professional SP1
; Author: D$
;
; Script Function:
; Providing a CLI for VirtualDub
; ----------------------------------------------------------------------------

; Setting Options
Opt("WinTitleMatchMode", 1)
Opt("SendKeyDelay", 20)


If FileExists(@ScriptDir & "\VDubCLI.ini") Then
$VirtualDubExe = IniRead (@ScriptDir & "\VDubCLI.ini", "Common", "VDub", "")
Else
$VirtualDubExe = FileOpenDialog("Browse for VirtualDub.exe", @ScriptDir, "VirtualDub (VirtualDub.exe)", 4)
Sleep(2000)
EndIf

$SourceFile = $CmdLine[1]
$TargetFile = $CmdLine[2]
$SettingFile = $CmdLine[3]

If FileExists($TargetFile) Then FileDelete ($TargetFile)

BlockInput(1)

Run($VirtualDubExe, "", @SW_SHOW)
WinActivate ("VirtualDub")
WinWaitActive("VirtualDub")
Sleep (500)
Send("!f")
Sleep (500)
Send("o")
Sleep (500)
Send($SourceFile)
Send("{ENTER}")
Sleep (500)
Send("!f")
Sleep (500)
Send("l")
Sleep (500)
Send($SettingFile)
Send("{ENTER}")
Sleep (500)
Send("{F7}")
Sleep (500)
Send($TargetFile)
Send("{ENTER}")

WinWaitActive("VirtualDub Status")

BlockInput(0)

While WinExists ("VirtualDub Status")
Sleep (10000)
WEnd

BlockInput(1)
WinActivate ("VirtualDub")
WinWaitActive ("VirtualDub")
Sleep (500)
Send("!f")
Sleep (500)
Send("q")
BlockInput(0)

IniWrite ( @ScriptDir & "\VDubCLI.ini", "Common", "VDub", $VirtualDubExe)



Have phun :)

-D$