Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #107.40K
|
function CheckError( msg) If mci.ErrorString = [COLOR=#800040]""[/COLOR] Then CheckError = False Exit function End If MsgBox msg + [COLOR=#800040]": "[/COLOR] + mci.ErrorString mci.SendString [COLOR=#800040]"close snd" [/COLOR]CheckError = True End function Sub Record mci.SendString [COLOR=#800040]"open new type waveaudio alias snd buffer 6 wait" [/COLOR]If CheckError( [COLOR=#800040]"Open"[/COLOR]) Then Exit Sub mci.SendString [COLOR=#800040]"set …
|