PrecompiledWeb/WebUI/Audio.htm

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

微信扫码关注公众号，代码整理好后第一时间通知你。

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<HTML><HEAD>
<script language="VBScript">

dim Customprofilestring

Sub StartCapture()
	VideoCapX1.CapFilename=capturefile.value
	VideoCapX1.CaptureAudio=1
	VideoCapX1.VideoCodecIndex=-1
	VideoCapX1.AudioCodecIndex=-1
	VideoCapX1.VideoDeviceIndex=combo2.value
	if Customprofilestring<>"" then 
		VideoCapX1.ProfileData=cuspro
'		msgbox Customprofilestring,,"Custom profile string"
	end if
	VideoCapX1.StartCapture
End Sub

Sub loadcustomprofile
dim f
f=inputbox("Filename:","","c:\documents and settings\administrator\desktop\test.prx")
if f<>"" then
	dim fso,ff
	Set fso = CreateObject("Scripting.FileSystemObject")
	set ff=fso.OpenTextFile(f,1,false,-1)
	Customprofilestring=ff.ReadAll
	cuspro.value=Customprofilestring
	ff.close
end if
End Sub

Sub StopCapture()
	VideoCapX1.StopCapture
	MsgBox "video captured into " & VideoCapX1.CapFilename & " file!"
End Sub

Sub GrabFrame()
	VideoCapX1.SaveFrameJPG "c:\videoframe.jpg",90
	MsgBox "video image is in c:\videoframe.jpg file!"
End Sub

Sub makelist
	dim a 
	for f=0 to VideoCapX1.GetVideoDeviceCount()-1
		set a=document.createElement("OPTION")
		a.text=VideoCapX1.GetVideoDeviceName(f)
		a.value=f
		combo1.options.add a
	next 
	combo1.value="0"
	for f=0 to VideoCapX1.GetProfileCount()-1
		set a=document.createElement("OPTION")
		a.text=VideoCapX1.GetProfileName(f)
		a.value=f
		combo2.options.add a
	next 

	camclick