Для начала установите perl и mencoder (mplayer)
Для виндовс примерно так: (файл get_cam.bat)
@rem = '--*-Perl-*--
@echo off
if "%OS%" == "Windows_NT" goto WinNT
perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
:WinNT
perl -x -S %0 %*
if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
if %errorlevel% == 9009 echo You do not have Perl in your PATH.
if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
goto endofperl
@rem ';
#!/usr/bin/perl -w
#
#Здесь программа начинается
$par1 = $ARGV[0];
$par2 = $ARGV[1];
$par3 = $ARGV[2];
print "Идет запись с камеры $par1. Количество кадров: $par2, кадров вминуту: ". 60/$par3. "\n";
print "#################################################################################\n";
print "Прогресс\n";
print "#################################################################################\n";
for ($i = 0; $i<=$par2; $i++) {
$cmd_wget="wget $par1 ";
if ($i<10) {
$cmd_wget.="-O 000000$i.jpg";
}
if ($i>=10 and $i<100) {
$cmd_wget.="-O 00000$i.jpg";
}
if ($i>=100 and $i<1000) {
$cmd_wget.="-O 0000$i.jpg";
}
if ($i>=1000 and $i<10000) {
$cmd_wget.="-O 000$i.jpg";
}
if ($i>=10000 and $i<100000) {
$cmd_wget.="-O 00$i.jpg";
}
if ($i>=100000 and $i<1000000) {
$cmd_wget.="-O 0$i.jpg";
}
if ($i>=1000000 and $i<10000000) {
$cmd_wget.="-O $i.jpg";
}
$cmd_wget.=" -o nul";
system($cmd_wget);
#print "$cmd_wget\n";
sleep $par3;
print "*";
}
exec(mencoder
mf://*.jpg -mf w=320:h=240:fps=$4:type=jpg -ovc lavc -lavcopts vcodec=mpeg4 -oac copy -o $name_from.$name_to.avi &> /dev/null)
#Здесь программа заканчивается
__END__
:endofperl