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

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?

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.