<%@ 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>