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