- 浏览: 32522 次
- 性别:
- 来自: 北京
最新评论
利用批处理文件和 vbs 脚本实现网站视频自动录制
现在电视台基本上都有了自己的门户网站,我们可以充分利用网络的优势来扩大本地电视台的影响。事实上,将本地电视台的每日的王牌节目挂在网站上的做法已经成为建立电视台网站的必要组成步骤之一了。但随之而来的问题是:每天定时需要的手工录制过程,将给管理者带来极大的不便。在 windows 定时任务的基础上,将批处理程序与脚本程序有机的集合,就可以有效地解决这一问题。
1 :建立压码任务
我们将使用一台带有视频采集卡的电脑来完成压码过程。虽然压码不是本文的重点,但还是有必要交代一下。主要就是使用 helix producer plus9 建立一个压码参数文件,事实上它只是一个带有 rpjf 后缀的 xml 文件(图 1 )。需要注意的是,音频输入选项有线路输入与 microphone 输入两种,这需要与实际的接入线路相吻合;另外,不必选择 2 pass vedio encoding 选项,选择它除了显示一个 warning 外不会有任何效果;再者,因为现阶段绝大多数的网络接入模式为拨号和 dsl ,所以只需要生成 56k 和 384k 码率的视频文件;最后,录制完成的视频文件,其名称最好用日期来标识,比如: 20060301.rm 。
<?xml version="1.0" encoding="UTF-8"?>
<job xmlns="http://ns.real.com/tools/job.1.0.1">
<enableTwoPass type="bool">false</enableTwoPass>
<clipInfo>
<entry>
<name>Author</name>
<value type="string">ZSTV</value>
</entry>
<entry>
<name>Copyright</name>
<value type="string">(c) ZSTV2006 </value>
</entry>
<entry>
<name>Keywords</name>
<value type="string">ZSNews[2006-03-21]</value>
</entry>
<entry>
<name>Title</name>
<value type="string">ZSNews[2006-03-21]</value>
</entry>
</clipInfo>
<input>
<captureInput>
<audioDeviceID type="string">Intel(r) Integrated Audio</audioDeviceID>
....................................
我们可以建立一个名为 shixian.bat 的批处理文件来的调用上面所示的参数文件,内部具体如下:
producer -j "d:\shixian\shixian.rpjf" -daw -lc "e,i"
默认的录制过程会实时监控音频变化,并将它记录到一个叫 producer.log 的文件之中,但是产生的 wanging 记录很多,很快就使 log 文件变得巨大而且可能引起录制过程的意外中断,所以我们可以使用 -daw 参数关闭音频监视,再用 lc “e,i” 指明只记录错误和信息。这样做之后,录制过程就比较稳定了。
只要在计划中添加每日执行 shixian.bat 文件的任务,我们就会每天得到一个相同文件属性和名称的 rm 文件。在这里将每天产生一个带有 2006-03-21 属性的、名为 20060321.rm 文件。听起来很拗口,更糟糕的是这并没有减轻管理者的工作,因为他不得不每天打开服务器为其改名称。而且即便有幸雇佣了一名勤奋的管理员(他不介意每天做这样重复的事情),但他还是没办法更改文件中显示日期的属性,在这录制过程中已经决定了。除非 …….
2 :建立修改压码参数文件的任务
原理很简单:每天更新压码参数文件中与日期相关的 xml 字段。在这个例子里是文件显示日期的属性和文件名。 下面就是用于更新日期字段的脚本代码:
dim regOR
set regOR=new regexp ‘ 建立一个正则表达式对象
regOR.ignorecase=True ‘ 忽略大小写
regOR.global=True ‘ 搜索应用于整个字符串
regOR.pattern="^([0-9]{1})$" ‘ 建立搜索模式为单数字表达式
dim mytime
mytime=date ‘ 用 date 函数达到系统日期,并赋值给 mydate
yy=year(mytime) ‘ 提取系统日期中的年份
mm=month(mytime) ‘ 提取系统日期中的月份
dd=day(mytime) ‘ 提取系统日期中的日期
if regOR.test(mm) then ‘ 检测月份是否为单数字(一月到九月)
mm=regOR.replace(mm,"0$1") ‘ 如果是,则在月份前添加 0 使其成为两个数字
end if
if regOR.test(dd) then ‘ 检测日期是否为单数字(一日到九日)
dd=regOR.replace(dd,"0$1") ‘ 如果是,则在日期前添加 0 使其成为两个数字
end if
mytime=yy & "-" & mm & "-" & dd ‘ 合并年月日为 ”yy-mm-dd” 形式
dest=yy & mm & dd ‘ 合并年月日为 ”yymmdd” 形式
pattern1="(.*[^0-9])([0-9]{4}\-[0-9]{2}\-[0-9]{2})([^0-9].*)"
‘ 设定模式变量 pattern1 为 ”%d%d%d %d- %d %d -%d %d”
pattern2="(.*[^0-9])([0-9]{8})([^0-9].*)" ‘ 设定模式变量 pattern2 为 8 个连续数字
regOR.pattern=pattern1 ‘ 建立搜索模式为 pattern1
dim tempstring
Set fso = CreateObject("Scripting.FileSystemObject") ‘ 建立系统文件对象
Set f = fso.CreateTextFile("d:\shixian\temp.txt", True) ‘ 新建名为 temp 的文本文件
Set fr = fso.GetFile("d:\shixian\shixian.rpjf") ‘ 得到编码参数文件 shixian.rpjf
Set ts = fr.OpenAsTextStream(1,-2) ‘ 将参数文件以只读文本形式打开
do until ts.AtEndOfStream ‘ 建立循环,直到参数文件读取完毕
tempstring=ts.readline ‘ 以行为单位读取参数文件
if regOR.test(tempstring) then ‘ 搜索改行参数是否存在日期字段
tempstring=regOR.replace(tempstring,"$1" & mytime & "$3") ‘ 如存在,则更新
end if
regOR.pattern=pattern2 ‘ 建立搜索模式为 pattern2
if regOR.test(tempstring) then ‘ 搜索改行参数是否存在日期字段
tempstring=regOR.replace(tempstring,"$1" & dest & "$3") ‘ 如存在,则更新
end if
regOR.pattern=pattern1 ‘ 重新建立搜索模式为 pattern1
f.writeline(tempstring) ‘ 将更新后的数据写入 temp.txt 文件
loop
ts.close ‘以下是关闭和注销各个对象
f.close
set regOR=nothing
set ts=nothing
set fr=nothing
set f=nothing
set fso=nothing
要说明的是为什么要在单数字的月份和日期前加 0 。打个比方比较容易说明:如果不加 0 ,那么对于一个名为 2006111.rm 的文件,它究竟是指 2006 年 1 月 11 日还是 2006 年 11 月 1 日呢?加 0 后变成 20060111.rm 就一目了然了,是前者。
以上这段脚本代码的具体功能是将参数文件中的数据以行为单位导入到一个临时的文本文件中,实时监视与时间相关的 xml 字段并加以更新,最后在生成一个 temp.txt 的文件。之后我们要做的无非就是用一个批处理文件调用脚本,再删除旧的参数文件,最后将 temp.txt 重命名为参数文件。
这就是 update.bat 批处理文件中的代码:
@echo off
d:\shixian\update.vbs
if exist "d:\shixian\shixian.rpjf" del "d:\shixian\shixian.rpjf"
if exist "d:\shixian\temp.txt" rename d:\shixian\temp.txt shixian.rpjf
和第一节中一样,还是要将这个 update.bat 的批处理文件添加到计划与任务中,以便每日定时启动。
3 :建立自动传输任务
为了确保稳定,通常压码服务器与网站服务器是分离的,这就需要我们每日将录制的视频文件传输到网站服务器上。批处理文件中的 ftp 命令可以完美的实现这一功能。
以下就是 transfer.bat 批处理中的代码:
@echo off
ftp -s:media.txt
if exist "d:\shixian\shixian20060321.rm" del d:\shixian\shixian20060321.rm
考虑到 SCSI 硬盘惊人的价格,压码服务器的硬盘空间不必太大,最后一行的作用就是删除压码服务器中的视频文件,以节省空间。 Media.txt 是一个 ftp 参数文件,其中记录了 ftp 登陆服务器的名称、用户名、密码和相关的操作,具体形式如下:
open / 服务器名称或 IP 地址 /
/ 用户名 /
/ 用户密码 /
put / 要传输的文件名 /
quit
很明显,以上的各段代码中不乏需要更新的日期文字表达式。同样的道理,我们也需要使用一个类似的更新脚本,具体代码就不重复了。
4 :一些改进的意见
1 :使用 media player 也可实现压码的功能。
2 :在更新脚本中,用在声明和注销对象上的代码有好几行,如果使用 perl 可以大为简化。因为是 perl 提供了一系列操作符号来实现正则表达式的功能,而事实上 perl 就是为了处理文本而生的。
open(RPJF,"<c:/code/10161.rpjf") or die("can not open because of $!\n");
open(TEMP,">c:/code/temp.txt") or die("can not open because of $!\n");
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime();
$mday=sprintf("%.2d",$mday);
$mon=sprintf("%.2d",$mon+1);
$year+=1900;
$timerF="$year"."$mon"."$mday";
$timerS="$year"."-"."$mon"."-"."$mday";
while(<RPJF>){
chomp();
$_=~s/(.*)([0-9]{8})(.*)/$1$timerF$3/;
$_=~s/(.*)([0-9]{4}\-[0-9]{2}\-[0-9]{2})(.*)/$1$timerS$3/;
print TEMP "$_\n";
}
close(RPJF);
close(TEMP);
3 :使用磁盘映射能够更加方便的实现文件的传输,不过需要考虑安全问题。
本文来自: 脚本之家(www.jb51.net) 详细出处参考:http://www.jb51.net/article/87.htm
现在电视台基本上都有了自己的门户网站,我们可以充分利用网络的优势来扩大本地电视台的影响。事实上,将本地电视台的每日的王牌节目挂在网站上的做法已经成为建立电视台网站的必要组成步骤之一了。但随之而来的问题是:每天定时需要的手工录制过程,将给管理者带来极大的不便。在 windows 定时任务的基础上,将批处理程序与脚本程序有机的集合,就可以有效地解决这一问题。
1 :建立压码任务
我们将使用一台带有视频采集卡的电脑来完成压码过程。虽然压码不是本文的重点,但还是有必要交代一下。主要就是使用 helix producer plus9 建立一个压码参数文件,事实上它只是一个带有 rpjf 后缀的 xml 文件(图 1 )。需要注意的是,音频输入选项有线路输入与 microphone 输入两种,这需要与实际的接入线路相吻合;另外,不必选择 2 pass vedio encoding 选项,选择它除了显示一个 warning 外不会有任何效果;再者,因为现阶段绝大多数的网络接入模式为拨号和 dsl ,所以只需要生成 56k 和 384k 码率的视频文件;最后,录制完成的视频文件,其名称最好用日期来标识,比如: 20060301.rm 。
<?xml version="1.0" encoding="UTF-8"?>
<job xmlns="http://ns.real.com/tools/job.1.0.1">
<enableTwoPass type="bool">false</enableTwoPass>
<clipInfo>
<entry>
<name>Author</name>
<value type="string">ZSTV</value>
</entry>
<entry>
<name>Copyright</name>
<value type="string">(c) ZSTV2006 </value>
</entry>
<entry>
<name>Keywords</name>
<value type="string">ZSNews[2006-03-21]</value>
</entry>
<entry>
<name>Title</name>
<value type="string">ZSNews[2006-03-21]</value>
</entry>
</clipInfo>
<input>
<captureInput>
<audioDeviceID type="string">Intel(r) Integrated Audio</audioDeviceID>
....................................
我们可以建立一个名为 shixian.bat 的批处理文件来的调用上面所示的参数文件,内部具体如下:
producer -j "d:\shixian\shixian.rpjf" -daw -lc "e,i"
默认的录制过程会实时监控音频变化,并将它记录到一个叫 producer.log 的文件之中,但是产生的 wanging 记录很多,很快就使 log 文件变得巨大而且可能引起录制过程的意外中断,所以我们可以使用 -daw 参数关闭音频监视,再用 lc “e,i” 指明只记录错误和信息。这样做之后,录制过程就比较稳定了。
只要在计划中添加每日执行 shixian.bat 文件的任务,我们就会每天得到一个相同文件属性和名称的 rm 文件。在这里将每天产生一个带有 2006-03-21 属性的、名为 20060321.rm 文件。听起来很拗口,更糟糕的是这并没有减轻管理者的工作,因为他不得不每天打开服务器为其改名称。而且即便有幸雇佣了一名勤奋的管理员(他不介意每天做这样重复的事情),但他还是没办法更改文件中显示日期的属性,在这录制过程中已经决定了。除非 …….
2 :建立修改压码参数文件的任务
原理很简单:每天更新压码参数文件中与日期相关的 xml 字段。在这个例子里是文件显示日期的属性和文件名。 下面就是用于更新日期字段的脚本代码:
dim regOR
set regOR=new regexp ‘ 建立一个正则表达式对象
regOR.ignorecase=True ‘ 忽略大小写
regOR.global=True ‘ 搜索应用于整个字符串
regOR.pattern="^([0-9]{1})$" ‘ 建立搜索模式为单数字表达式
dim mytime
mytime=date ‘ 用 date 函数达到系统日期,并赋值给 mydate
yy=year(mytime) ‘ 提取系统日期中的年份
mm=month(mytime) ‘ 提取系统日期中的月份
dd=day(mytime) ‘ 提取系统日期中的日期
if regOR.test(mm) then ‘ 检测月份是否为单数字(一月到九月)
mm=regOR.replace(mm,"0$1") ‘ 如果是,则在月份前添加 0 使其成为两个数字
end if
if regOR.test(dd) then ‘ 检测日期是否为单数字(一日到九日)
dd=regOR.replace(dd,"0$1") ‘ 如果是,则在日期前添加 0 使其成为两个数字
end if
mytime=yy & "-" & mm & "-" & dd ‘ 合并年月日为 ”yy-mm-dd” 形式
dest=yy & mm & dd ‘ 合并年月日为 ”yymmdd” 形式
pattern1="(.*[^0-9])([0-9]{4}\-[0-9]{2}\-[0-9]{2})([^0-9].*)"
‘ 设定模式变量 pattern1 为 ”%d%d%d %d- %d %d -%d %d”
pattern2="(.*[^0-9])([0-9]{8})([^0-9].*)" ‘ 设定模式变量 pattern2 为 8 个连续数字
regOR.pattern=pattern1 ‘ 建立搜索模式为 pattern1
dim tempstring
Set fso = CreateObject("Scripting.FileSystemObject") ‘ 建立系统文件对象
Set f = fso.CreateTextFile("d:\shixian\temp.txt", True) ‘ 新建名为 temp 的文本文件
Set fr = fso.GetFile("d:\shixian\shixian.rpjf") ‘ 得到编码参数文件 shixian.rpjf
Set ts = fr.OpenAsTextStream(1,-2) ‘ 将参数文件以只读文本形式打开
do until ts.AtEndOfStream ‘ 建立循环,直到参数文件读取完毕
tempstring=ts.readline ‘ 以行为单位读取参数文件
if regOR.test(tempstring) then ‘ 搜索改行参数是否存在日期字段
tempstring=regOR.replace(tempstring,"$1" & mytime & "$3") ‘ 如存在,则更新
end if
regOR.pattern=pattern2 ‘ 建立搜索模式为 pattern2
if regOR.test(tempstring) then ‘ 搜索改行参数是否存在日期字段
tempstring=regOR.replace(tempstring,"$1" & dest & "$3") ‘ 如存在,则更新
end if
regOR.pattern=pattern1 ‘ 重新建立搜索模式为 pattern1
f.writeline(tempstring) ‘ 将更新后的数据写入 temp.txt 文件
loop
ts.close ‘以下是关闭和注销各个对象
f.close
set regOR=nothing
set ts=nothing
set fr=nothing
set f=nothing
set fso=nothing
要说明的是为什么要在单数字的月份和日期前加 0 。打个比方比较容易说明:如果不加 0 ,那么对于一个名为 2006111.rm 的文件,它究竟是指 2006 年 1 月 11 日还是 2006 年 11 月 1 日呢?加 0 后变成 20060111.rm 就一目了然了,是前者。
以上这段脚本代码的具体功能是将参数文件中的数据以行为单位导入到一个临时的文本文件中,实时监视与时间相关的 xml 字段并加以更新,最后在生成一个 temp.txt 的文件。之后我们要做的无非就是用一个批处理文件调用脚本,再删除旧的参数文件,最后将 temp.txt 重命名为参数文件。
这就是 update.bat 批处理文件中的代码:
@echo off
d:\shixian\update.vbs
if exist "d:\shixian\shixian.rpjf" del "d:\shixian\shixian.rpjf"
if exist "d:\shixian\temp.txt" rename d:\shixian\temp.txt shixian.rpjf
和第一节中一样,还是要将这个 update.bat 的批处理文件添加到计划与任务中,以便每日定时启动。
3 :建立自动传输任务
为了确保稳定,通常压码服务器与网站服务器是分离的,这就需要我们每日将录制的视频文件传输到网站服务器上。批处理文件中的 ftp 命令可以完美的实现这一功能。
以下就是 transfer.bat 批处理中的代码:
@echo off
ftp -s:media.txt
if exist "d:\shixian\shixian20060321.rm" del d:\shixian\shixian20060321.rm
考虑到 SCSI 硬盘惊人的价格,压码服务器的硬盘空间不必太大,最后一行的作用就是删除压码服务器中的视频文件,以节省空间。 Media.txt 是一个 ftp 参数文件,其中记录了 ftp 登陆服务器的名称、用户名、密码和相关的操作,具体形式如下:
open / 服务器名称或 IP 地址 /
/ 用户名 /
/ 用户密码 /
put / 要传输的文件名 /
quit
很明显,以上的各段代码中不乏需要更新的日期文字表达式。同样的道理,我们也需要使用一个类似的更新脚本,具体代码就不重复了。
4 :一些改进的意见
1 :使用 media player 也可实现压码的功能。
2 :在更新脚本中,用在声明和注销对象上的代码有好几行,如果使用 perl 可以大为简化。因为是 perl 提供了一系列操作符号来实现正则表达式的功能,而事实上 perl 就是为了处理文本而生的。
open(RPJF,"<c:/code/10161.rpjf") or die("can not open because of $!\n");
open(TEMP,">c:/code/temp.txt") or die("can not open because of $!\n");
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime();
$mday=sprintf("%.2d",$mday);
$mon=sprintf("%.2d",$mon+1);
$year+=1900;
$timerF="$year"."$mon"."$mday";
$timerS="$year"."-"."$mon"."-"."$mday";
while(<RPJF>){
chomp();
$_=~s/(.*)([0-9]{8})(.*)/$1$timerF$3/;
$_=~s/(.*)([0-9]{4}\-[0-9]{2}\-[0-9]{2})(.*)/$1$timerS$3/;
print TEMP "$_\n";
}
close(RPJF);
close(TEMP);
3 :使用磁盘映射能够更加方便的实现文件的传输,不过需要考虑安全问题。
本文来自: 脚本之家(www.jb51.net) 详细出处参考:http://www.jb51.net/article/87.htm
发表评论
-
网页文章下载整理之——体验 VIM 篇
2008-12-10 17:57 1292网页文章下载整理之— ... -
一个扫描本网内IP和mac
2008-12-10 17:49 917@echo %dbg% off setlocal enable ... -
Rundll32.exe使用方法大全
2008-12-10 17:27 1144winexec(Pchar('StrCommand'),sw_ ... -
rundll32.exe介绍和使用方法
2008-12-10 17:25 907我从windows2003提取了一 ... -
所有Windows通用重启批处理
2008-12-10 17:13 1285@echo off setlocal cd/d %temp% ... -
批处理实现屏幕截图
2008-12-10 17:05 2115需要 .NET Framework 支持 @echo off ... -
检查本地磁盘并判断类型
2008-12-10 14:57 907@echo off setlocal enabledelaye ... -
不显示密码的Bat
2008-12-10 14:19 1210@echo off chcp 437>nul& ... -
判断Windows系统类型的Bat
2008-12-10 14:00 2798因为在98/Me的命令行中不提供 for/f 等许多命令扩展特 ... -
修改Boot.ini的Bat
2008-12-10 13:46 1756@echo off if exist boot.new del ... -
Windows命令行参考
2008-11-15 12:13 772hh ntcmds.chm::ntcmds.htm -
批处理
2008-11-14 18:01 1309批处理 什么 ... -
备份WINXP原本的各项服务
2008-11-14 17:24 930备份WINXP原本的各项服务 sc config Al ... -
服务进程优化
2008-11-14 17:22 847服务进程优化 rem WINDOS ... -
按文件类型归类文件批处理
2008-11-14 17:16 1193请慎用: @echo off mode con lines= ... -
BAT批处理文件语法
2008-11-14 17:11 757扩展名是bat(在nt/2000/xp/2003下也可以是cm ... -
知道MAC查IP
2008-11-14 01:20 2112知道MAC查IP 局域网内知道MAC或IP,想查看对方计算 ... -
VMware 懒人懒办法
2008-11-14 00:18 988打开任务管理器发现里边运行着虚拟机的好几个进程,虚 拟机平时 ... -
CMD运行指令
2008-11-13 21:51 1417运行指令CMD运行指令 ... -
DOS网络命令全集
2008-11-13 21:42 1599DOS网络命令全集 在这 ...
相关推荐
vbs登陆脚本,可以实现加密登陆QQ。 安全防盗,另外对于少数喜欢挂Q的朋友可以放在系统启动项里实现开机自动登陆
为了讲课写的一个小脚本,水平有限,也在网上参考了一些其他人的代码,在代码中进行了简单的注释,基本可以实现自动从U盘中将特定类型的文件复制出来,也可以指定关键字进行复制,不过只能二选一,具体的功能可以...
VBS脚本运行库手册之九(复制和移动文件) VBS脚本运行库手册之十(文件的属性) VBS脚本运行库手册之十一(建立文本文件) VBS脚本运行库手册之十二(打开和关闭文本文件) VBS脚本运行库手册之十三(读取文本...
一键备份所有交换机配置批处理脚本,可以把所有交换机备份
亲测可用! 很有意思的小脚本,VBS vbs脚本实现获取屏幕分辨率,大家一起学习分享啊! 本人将会不定期的上传一些经过测试可用的vbs小程序。
VBS取QQ-TM号码的自动登录命令行.vbs 妙用脚本清除电脑中的痕迹.vbs 后台字典文件管理器.vbs 定时关机.vbs 列出管理工具集.vbs 旁注查询工具.vbs 中文姓名笔画计算(VBS脚本版).vbs 利用VB编写文本朗读精灵.vbs 。...
安静运行批处理代码.vbs
wincc vbs脚本手册 西门子 组态 脚本
软件安装无管理员权限的user账户的PC客户端只能使用第三方工具,但又担心不安全,本工具是系统自带vbs支持的,简单代码来实现以vbs文件调用runas命令运行需要管理用户授权的程序或批处理文件,并自动输入密码,真正...
WinCC常用的C脚本和VBS脚本对变量进行置位,复位,取反,读写变量;
WinCC中使用VBS脚本实现弹窗和画面切换
用vbs脚本实现周期性自动刷新网页,从而实现对指定网页的自动化刷新。
Windows脚本 Windows脚本,批处理脚本,vbs脚本...
史上最全面最丰富的命令行、批处理和VBS教程和资料。欢迎下载!
WINCC中使用VBS脚本读写SQLServer数据库文件WINCC中使用VBS脚本读写SQLServer数据库文件WINCC中使用VBS脚本读写SQLServer数据库文件WINCC中使用VBS脚本读写SQLServer数据库文件
Qt工程,c++代码调用vbs脚本函数,一个很简单的demo,参考学习
修改文本中exe文件路径,将txt后缀改为vbs,运行即可
vbs脚本文件..........................................
自动打网页的VBS脚本 自动打网页的VBS脚本 可也调整窗口大小