UNKNOWN '************************************** ' Name: Record sound CD (track) to WAV f ' ile. ' Description:Record sound from CD (Trac ' k1, Track2...) to a WAV file. ' By: Damjan ' ' ' Inputs:None ' ' Returns:None ' 'Assumes:None ' 'Side Effects:None 'This code is copyrighted and has limite ' d warranties. 'Please see http://www.Planet-Source-Cod ' e.com/xq/ASP/txtCodeId.2091/lngWId.1/qx/ ' vb/scripts/ShowCode.htm 'for details. '************************************** 'This control use MCI to control CD Public Sub RecordWave(TrackNum As Integer, Filename As String) ' TrackNum: track to record ' Filename: file to save wave as On Local Error Resume Next Dim i As Long Dim RS As String Dim cb As Long Dim t RS = Space$(128) i = mciSendString("stop cdaudio", RS, 128, cb) i = mciSendString("close cdaudio", RS, 128, cb) Kill Filename RS = Space$(128) i = mciSendString("status cdaudio position track " & TrackNum, RS, 128, cb) i = mciSendString("open cdaudio", RS, 128, cb) i = mciSendString("set cdaudio time format milliseconds", RS, 128, cb) i = mciSendString("play cdaudio", RS, 128, cb) i = mciSendString("open new type waveaudio alias capture", RS, 128, cb) i = mciSendString("record capture", RS, 128, cb) t# = Timer + 1: Do Until Timer > t#: DoEvents: Loop i = mciSendString("save capture " & Filename, RS, 128, cb) i = mciSendString("stop cdaudio", RS, 128, cb) i = mciSendString("close cdaudio", RS, 128, cb) End Sub