سورس کد برنامه تبدیل دیسک صوتی به یک فایل wave در VB

[•✿♥lostlove♥✿•]

سورس کد برنامه تبدیل دیسک صوتی به یک فایل wave در VB

سورس کد برنامه تبدیل دیسک صوتی به یک فایل wave در VB
​

Declarations:
Private Declare Function mciSendString Lib "winmm"
alias "mciSendStringA" (Byval lpstrCommand as string,byval
lpstrReturnString as string,byval uReturnLength as long,byval
hWndCallback as long) as long


Code:
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
​