Jag gick in och tittade på en kod här på Pellesoft om att göra CD-musik till wav.
Jag fick det inte att fungerar.
Den ser ut så här:

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, RS As String, cb As Long, 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

Då har jag några frågor som jag hoppas att jag kan få svar på.

Fråga 1.
Vad är "mciSendString"

Fråga 2.
Vad ligger mulitmedia kontroll (MCI) på VB6?
Jag hittade inte den.

Fråga 3.
Vad ska MCI har för namn?

Fråga 4.
Vet ni någon annat fra sätt och gratis att göra om en Musik CD till wav?

Project|Components - välj Microsoft Multimedia control.

Har du väl satt referens till denna - så skall det fungera.
/Pelle