? <%@ Language=VBScript %><HTML><HEAD><META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"></HEAD><BODY><OBJECT id=MSPropShell1 style="LEFT: 0px; WIDTH: 540px; TOP: 0px; HEIGHT: 306px" data=data:application/x-oleobject;base64,XquX4rBAvUGeBuQUQITuXwADAADQNwAAoB8AAAsA//8DAAEAAAALAAAAAgAAAA== classid=clsid:E297AB5E-40B0-41BD-9E06-E4144084EE5F name=PropPageShell VIEWASTEXT></OBJECT><script language=vbscript> dim encoder dim srcgrpcoll dim srcgrp dim audsrc dim vidsrc dim file dim procoll dim i dim abc Dim CHX Dim Statistics Set CHX = CreateObject("WMEnc.WMEncMonMainPage") Set encoder = CreateObject("WMEncEng.WMEncoder") Set srcgrpcoll = encoder.SourceGroupCollection Set srcgrp = srcgrpcoll.Add("SG_2") Set audsrc = srcgrp.AddSource(1) Set vidsrc = srcgrp.AddSource(2) Set file = encoder.file Set procoll = encoder.ProfileCollection PropPageShell.AddObject encoder PropPageShell.AddPage CHX Dim OutputStats 'For i = 0 To procoll.Count - 1 ' document.writeln "<INPUT type=checkbox id=checkbox1 name=checkbox1 value=" ' document.writeln i&">" ' document.writeln procoll.Item(i).Name&"<br>" 'Next i=0 sub encode() file.localfilename=file2.value audsrc.setinput file1.value vidsrc.setinput file1.value srcgrp.profile=procoll.item(24) encoder.EnableAutoArchive =true encoder.PrepareToEncode true 'document.wow.wmlength.value = encoder.Start i=1 aa() end sub sub aa() Set Statistics = Encoder.Statistics Set OutputStats = Statistics.StreamOutputStats(2,0,3) document.wow.AverageBitrate.value=OutputStats.AverageBitrate document.wow.AverageSampleRate.value=OutputStats.AverageSampleRate document.wow.ByteCount.value=OutputStats.ByteCount document.wow.CurrentBitrate.value=OutputStats.CurrentBitrate document.wow.CurrentSampleRate.value=OutputStats.CurrentSampleRate document.wow.DroppedByteCount.value=OutputStats.DroppedByteCount document.wow.DroppedSampleCount.value=OutputStats.DroppedSampleCount document.wow.ExpectedBitrate.value=OutputStats.ExpectedBitrate document.wow.ExpectedSampleRate.value=OutputStats.ExpectedSampleRate document.wow.SampleCount.value=OutputStats.SampleCount document.wow.EncodingTime.value=cCUR(statistics.EncodingTime) document.wow.FileDuration.value =Statistics.FileArchiveStats.FileDuration document.wow.Filesize.value =Statistics.FileArchiveStats.Filesize if encoder.RunState=2 then i=i+1 s="" str="▊" x=i mod 55 for j=1 to x s=s+str next document.wow.display.value=s timeID=settimeout("aa()",200,vbscript) else document.wow.display.value="完成" exit sub end if end sub </script><P>
</P>源文件： <INPUT type="file" id=file1 name=file1><br>目标文件：<INPUT type="file" id=file2 name=file2><br><INPUT type="button" value="转换" id=button1 name=button1 οnclick="encode()"><FORM NAME="wow">进度：display<font color=mediumblue><INPUT NAME="display" SIZE="100" STYLE="COLOR: #006699"><br> AverageBitrate<font color=mediumblue><INPUT NAME="AverageBitrate" SIZE="10" STYLE="COLOR: #006699"><br> AverageSampleRate<font color=mediumblue><INPUT NAME="AverageSampleRate" SIZE="10" STYLE="COLOR: #006699"><br> ByteCount<font color=mediumblue><INPUT NAME="ByteCount" SIZE="10" STYLE="COLOR: #006699"><br> CurrentBitrate<font color=mediumblue><INPUT NAME="CurrentBitrate" SIZE="10" STYLE="COLOR: #006699"><br> CurrentSampleRate<font color=mediumblue><INPUT NAME="CurrentSampleRate" SIZE="10" STYLE="COLOR: #006699"><br>DroppedByteCount <font color=mediumblue><INPUT NAME="DroppedByteCount" SIZE="10" STYLE="COLOR: #006699"><br> DroppedSampleCount<font color=mediumblue><INPUT NAME="DroppedSampleCount" SIZE="10" STYLE="COLOR: #006699"><br> ExpectedBitrate<font color=mediumblue><INPUT NAME="ExpectedBitrate" SIZE="10" STYLE="COLOR: #006699"><br> ExpectedSampleRate<font color=mediumblue><INPUT NAME="ExpectedSampleRate" SIZE="10" STYLE="COLOR: #006699"><br> SampleCount<font color=mediumblue><INPUT NAME="SampleCount" SIZE="10" STYLE="COLOR: #006699"><br>EncodingTime<font color=mediumblue><INPUT NAME="EncodingTime" SIZE="10" STYLE="COLOR: #006699"><br>FileDuration <font color=mediumblue><INPUT NAME="FileDuration" SIZE="10" STYLE="COLOR: #006699"><br>FileSize <font color=mediumblue><INPUT NAME="FileSize" SIZE="10" STYLE="COLOR: #006699"><br></font></FORM></FONT></FONT></FONT></FONT></FONT></FONT></FONT></FONT></FONT></FONT></FONT></FONT></FONT></BODY></HTML>
