0

function CheckError( msg)
If mci.ErrorString = "" Then
CheckError = False
Exit function
End If
MsgBox msg + ": " + mci.ErrorString
mci.SendString "close snd"
CheckError = True
End function
Sub Record
mci.SendString "open new type waveaudio alias snd buffer 6 wait"
If CheckError( "Open") Then Exit Sub
mci.SendString "set snd time format ms wait"
If CheckError( "Set time format") Then Exit Sub
mci.SendString "set snd bitspersample 16 channels 1 samplespersec 22050 alignment 2 bytespersec 44100 wait"
If CheckError( "Set") Then Exit Sub
mci.SendString "record snd"
If CheckError( "record") Then Exit Sub
End Sub
Sub StopRecord( pathvar)
mci.SendString "stop snd wait"
mci.SendString "save snd " + pathvar + " wait"
If CheckError( "save") Then Exit Sub
mci.SendString "close snd"
End Sub


can somone help me to add swf record in this vb script :o

2
Contributors
1
Reply
2
Views
10 Years
Discussion Span
Last Post by glwharris
0

I am trying to add the MCI control to my application and cannot find how to do it. It does not appear in my list of available components. Do I have to download it from somewhere?

This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.