VB编写能播放音频的程序。。。100分提供

我用vb编了一套播放器程序，有源代码，要的话发email我
frankkanks@yahoo.com.cn
下文为程序的参考资料(详)
MCI Command String总览
MCI Command String是多媒体设备的程序接口。通过它，我们可以打开一个多媒体文件，例如mp3，VCD文件，Mpeg4格式的文件等等，并对它进行播放，暂停，关闭等操作。现在小弟有幸给大家介绍一下MCI Command String的使用方法。
MCI Command String是通过mciExecute或mciSendString两个函数执行的。这两个函数的声明如下：
Private Declare Function mciExecute Lib "winmm.dll" Alias "mciExecute" (ByVal lpstrCommand As String) As Long
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
这两个函数都有一个叫lpstrCommand的参数， 这个参数就是我们今天要介绍的MCI Command String。其中函数mciSendString还有三个参数，lpstrReturnString是一个字符串，它用来接收mciSendString函数返回的信息（例如，我们在lpstrCommand中的命令是让函数返回打开的文件的设备类型，那么函数就把设备类型的信息保存在这个参数中。）；uReturnLength参数用来指定参数lpstrReturnString的长度；hwndCallback是接收”wait”、”notify”消息的窗口句柄，在Visual Basic中调用时该参数设为0即可。如果命令执行出错，函数mciExecute会直接弹出一个对话框，提示出错的原因。而mciSendString函数会返回一个ErrorCode （错误代码），该代码的具体含义您可以参考MSDN中的目录”Platform SDK\Graphics and Multimedia Services\Windows Multimedia\Multimedia Reference\Multimedia Constants\MCIERR Return Values”。您可以根据具体情况选择到底使用哪一个函数来执行MCI命令。例如，在调试的时候使用mciExecute，以便快速地获得错误原因，而在将要发布的程序中使用mciSendString函数，让程序中已设置的错误陷阱去处理错误，以避免频繁的错误提示而使用户觉得厌烦。
在熟悉了这两个函数后，我们就可以进入正题――MCI Command String了。
MCI Command String的命令格式是这样的：lpszCommand lpszDevice lpszCommandFlag lpazFlag
lpszCommand是mci命令，例如open，play，stop，close等等。
lpszDevice是设备名（或文件名）。例如，我们用以下的程序打开了我的文档中的Music01.dat文件，并用”alias”参数将其别名设为OpenFile：
Dim lReturn As long （1）
lReturn=mciExecute(“open C:\Mydocu~1\Music01.dat alias OpenFile type MPEGVideo”) （2）
那么，在以后的MCI Command String中lpszDevice参数必须指定为OpenFile。例如，关闭该文件的代码如下：

lReturn=mciExecute(“close OpenFile”) （3）
如果我们没有为打开的文件设定别名，则以后调用的MCI Command String中lpszDevice参数为DOS路径名加文件名。例子如下：
Dim lReturn As long（4）
lReturn=mciExecute(“open C:\Mydocu~1\Music01.dat type MPEGVideo”)（5）
lReturn=mciExecute(“close C:\Mydocu~1\Music01.dat type MPEGVideo”)（6）
从这里可以看出，设定别名的好处是减少了代码的输入。
LpszCommandFlag是mci命令的参数。如上代码（2），”alias OpenFile”以及”type MPEGVideo”就是命令”open”的参数。通常一个mci命令的参数少则几个多则几十个。LpazFlag可以为指定为”wait”或”notity”。如果为”wait”，那么mci命令执行完毕后会向父窗体发送MCI_WAIT消息，”notity”则发送MCI_NOTIFY消息。此参数在Visual Basic中无甚用处。
在此先声明一下，微软支持的多媒体设备的类型共有cdaudio，dat，digitalvideo，other，overlay，scanner，sequencer，vcr，videodisc，waveaudio十种（注意：微软不支持RealPlay格式的文件。您可以用以下代码获得已打开的文件的类型：lReturn=mciSendString(“capability lpszDevice device type”,sReturn,32,0) ）。至于哪一类设备支持哪些参数，您可以在MSDN中查找关键字”MCI Command Strings”，选中所列出的命令，在其中的HTML帮助文档中通常会有一个表格告诉你哪些设备支持哪些参数或者在第一段中有信息告诉您哪些设备支持该命令。
好了，现在让我们对又繁索，又该死，又强大的mci命令参数作一个系统的介绍。（本文仅介绍open命令的常用参数，其它命令的参数有机会小弟再介绍给大家。）
open：
该命令用来打开一个多媒体文件。所有的设备都支持这个命令。在任何mci命令执行前，都必须先打开多媒体文件，以初始化设备。
该命令的几个参数意义如下：alias device_alias――指定欲打开文件的别名；shareable――是否以共享方式打开，如果不指定该参数，则以不共享的方式打开，也就是说，打开某一个多媒体文件后，其它程序不能再打开它，如果指定该参数，则以共享方式打开；type device_type――指定该文件在Windows中注册的多媒体文件名（注：Windows中注册的多媒体文件名与设备类型名并不相同，设备类型只有以上所说的十种类型，而Windows中注册的多媒体文件名请查看C:\Windows\win.ini文件的[mci extensions]小节。），如MPEGVideo，AVIVideo，waveaudio等，MPEGVideo、AVIVideo类型的文件其实都属于设备digitalvideo。
对于open命令，有几个须注意的方面。首先，用open命令打开一个文件时，文件的路径必须是DOS格式的短路径。您可以用API函数GetShortPathName返回某路径的该格式。对于参数type device_type，复合型设备的文件（如：MPEGVideo）mci设备会自动根据其在Windows中注册的扩展名 （要想获得某扩展名的文件在Windows中注册的类型名，请查看C:\Windows\win.ini文件的[mci extensions]小节。）设置该参数（所以对于C:\Windows\win.ini文件的[mci extensions]小节中已列的扩展名，不必指定该参数），但如果设备无法根据其扩展名获得文件的类型的话，就必须指定该参数，如果不指定则会提示：”这不是已注册的mci设备”，而简单型设备（如CD音轨设备，可编程控制的录放像机，可编程控制的镭射影碟机）则不必指定该参数。
如果该命令被成功执行，那么返回值为0。至此，您就可以用alias指定的别名执行各种各样的mci命令了。

Break：指定一个键来退出使用wait参数的当前mci命令。
Capability：获得已打开的设备的功能，比如能否播放，能否退出，能否记录等等。
Capture：将帧缓冲的数据拷贝到指定的文件中。
Close：关闭设备，释放内存。
Configure：显示一对话框，以设置设备的某些属性。
Copy：将数据拷贝至剪切板。
Cue：在播放或记录之前执行该命令可以加快播放或记录速度。
Cut：将工作区的数据剪切到剪切板。
Delete：从已打开的多媒体文件中删除数据段。
Freeze：终止视频输入或输出，禁止视频流从帧缓冲中获得数据。
Info：获得设备信息，例如算法，版权，所打开的文件，UPC等等。
List：返回视频和音频的数量和类型。
Load：用设备指定的格式打开一个文件。类似于open的功能。
Monitor：指定当前源，默认的当前源是当前工作区。
Paste：将剪切板的内容拷贝至工作区。
Pause：暂停播放或记录。
Play：呵呵，这个命令无须多说。
Put：决定显示源和显示目的窗口的区域。
Quality：自定义音频或视频的quality level和静态图像的压缩方式（例如BMP、JPG）。
Realize：自定义图像显示窗口的调色板。
Record：无须多说。
Reserve：为设备的工作区分配连续的磁盘空间。
Restore：将一静态图像从文件拷贝到帧缓冲中。
Resume：继续播放或记录。
Save：保存一个mci文件。
Seek：定位到指定的帧位置并等待。
Set：设置某些参数。（例如左声道，光驱开关，Time Format等等。）
Setaudio：设置音频参数。（例如低音，高音，左右声道）
Setvideo：设置视频回放或捕捉的参数。（例如亮度、对比度、伽马值等。）
Status：返回已打开的设备的状态信息。
Step：设置慢放时步进的帧数，负数即倒放，单位为帧／秒。
Stop：无须多说。
Undo：撤消最近一次copy、cut、delete和paste命令。
Unfreeze：Freeze的反操作。
Update：读取当前帧的数据，并显示在目标窗口或目标DC（设备场景）。
Where：获得Put命令指定的源或目标显示区域。
Window：设置播放的窗口。可以用它把播放窗口设置为其它窗口，取消默认的窗口。
channels channel_count：设置播放或记录的频道
clock time：将外部时间设为变量”time”。该变量为一无符号长整形数值
counter format：设置计数器格式
counter value：将VCR计数器设为指定的值
door closed：收回光盘托盘
door open：退出光盘
file format format：指定”save”或”capture”命令使用的时间格式。如果省略，则设备默认的格式会被使用。如果指定了一个与当前算法和”quality”相冲突的文件格式，则会使用默认的文件格式。以下都是以定义的文件格式：
avi：AVI格式；avss：AVSS格式；dib：DIB格式；jfif：JFIF格式；jpeg：JPEG格式；mpeg：MPEG格式；rdib：RLE DIB格式；rjpeg：RJPEG格式
format tag pcm：设置播放或记录的格式为PCM，文件即以该格式保存
format tag tag：设置播放或记录的格式，文件即以该格式保存
index timecode
index counter
index date
index time：设置VCR的当前显示
input integer：设置音频输入的频道
length duration：设置用户指定的VCR磁带长度
master midi：设置MIDI sequencer为同步源，同步数据以MIDI格式发送
master none：禁止MIDI sequencer发送同步数据
master smpte：设置MIDI sequencer为同步源，同步数据以SMPTE（Society of Motion Picture and Television Engineers电影与电视工程师协会）格式发送
offset time：设置SMPTE偏移。变量”time”的格式为：hh:mm:ss:ff；hh是小时，mm是分钟，ss是秒，ff是帧
output integer：设置音频输出的频道
pause timeout：设置”pause”命令的最大持续时间，单位为毫秒。0表示没有暂停
postroll duration duration：以当前时间格式设置执行一个”stop”或”pause”命令时用来中断VCR传输的时间长度
port mapper：将MIDI印射设置为接收MIDI消息的端口
port none：取消MIDI消息传送
port port_number： 将MIDI端口设置为接收MIDI消息
power on
power off：打开、关闭一个设备的电源
preroll duration duration：以当前时间格式设置用来稳定VCR输出的长度
record format SP
record format LP
record format EP：设置VCR记录模式，SP：正常播放；EP：外部播放；LP长播放
samplespersec integer：设置播放或记录的取样速度，文件即以该格式保存
seek exactly on
seek exactly off：设置两种定位模式。”seek exactly on”是指定位到指定的那一帧。”seek exactly off”是指定位到与指定帧最接近的关键帧。
slave file：设置MIDI sequencer使用文件数据作为同步源，这是默认设置
slave midi：设置MIDI sequencer使用输入的MIDI数据作为同步源。sequencer以MIDI格式识别数据
slave none：设置MIDI sequencer忽略同步源数据
slave smpte：设置MIDI sequencer使用输入的MIDI数据作为同步源。sequencer以SMPTE格式识别数据
speed factor：设置工作区音频视频回放的速度。”factor”为一比例值：1000表示正常速度播放，500表示以正常速度一半播放，2000表示以正常速度2倍播放。为0时表示在不丢音视频帧的情况下尽可能地快放
still file format format：设置”capture”命令使用的文件格式
tempo tempo_value：设置sequence速度，以当前时间格式
time format btyes：在PCM格式文件中，设置时间格式为bytes。所有的位置信息都将表示为bytes值
time format frames：设置时间格式为帧
time format hms：设置时间格式为小时，分钟，秒
time format milliseconds：设置时间格式为毫秒
time format msf：设置时间格式为分钟，秒，帧。其表示为：mm：ss：ff。mm为分钟，ss为秒，ff为帧
time format samples：设置时间格式为取样频率
time format smpte24
time format smpte25
time format smpte30：设置时间格式为SMPTE帧速度
time format smpte 30 drop：设置时间格式为SMPTE30降速（？）
time format song pointer：设置时间格式为歌曲指针
time format tmsf：设置时间格式为磁道、分钟、秒、帧形式。其表示为：tt：mm：ss：ff。tt为磁道，mm为分钟，ss为秒，ff为帧
time format track：设置位置格式为磁道
time mode counter：设置位置信息模式为使用VCR计数器
time mode detect：设置位置信息模式为基于探测磁带时间代码信息的格式
time mode timecode：设置磁带的位置信息模式为使用时间代码信息的格式
video off
video on：关闭、打开视频
Setaudio：设置音频参数（例如低音，高音，左右声道）。digital-video和VCR支持该命令。
algorithm algorithm：选择一个指定的音频压缩算法。该算法将用在”reserve”和”record”命令中。MCI定义”algorithm”为：”g711”“g721”“g722”“g728”“pcm”“cdxa”“adpcm”“adpcm4e”
alignment to integer：设置与waveform-audio设备的输入数据起始部份有关的数据块队列
bass to factor：设置音频低音值
bitspersample to bit_count：设置记录时每次取样的bit数量
bytespersec to integer：设置每秒记录的平均byte数量
clocktime：指定在”over”参数中使用的时间单位为毫秒
input：激活”bass”“treble”“volume”参数的设置。使之影响播放和记录信号。这是默认设置
left off
left on：关闭、打开左声道
left volume to factor：设置左声道的音量
monitor to type number number：控制哪个输入源会传递到VCR的输出而不改变记录源的选择。”type”可以是”output”或其它有效的输入源。如果”number”没有指定，则第一个此类型的输入会被选择
off
on：关闭、打开音频
output：激活”bass”“treble”“volume”参数的设置。使之影响播放信号，并不影响记录信号
over duration：指定如果使用”factor”变量的参数有所改变，将花多长时间。”duration”为当前时间格式，如果不指定该参数，参数变化会立即执行
quality descriptor：指定音频记录到一个文件时压缩的特征。所有设备都支持”low”“medium”“high”
record off：清除音频源选择，接下来的”record”命令不会记录音频数据
record on：打开音频数据记录选择。这是默认项
record track track_number off：清除”track_number”指定的音频源选择，接下来的”record”命令不会记录该音频数据
record track track_number on：打开”track_number”指定的音频源选择
right off
right on：关闭、打开音频右声道输出
right volume to factor：设置右声道的音量
samplespersec to integer：在”pcm”或”adpcm”算法下记录的取样频率，文件即以该格式保存
source to sourcename：设置音频输入源。”sourcename”可以”left”“right”“average”“stereo”，分别意为左，右，平均，立体声
source to type number number：选择将记录在磁带上的音频源。”type”必须”tuner”“line”“svideo”“aux”“generic”“mute”
stream to number：指定工作区回放的音频流。如果该参数没有指定，而且文件也没有定义一个默认值，则音频驱动器物理上第一遇到的音频流会被播放
track track_number off：关闭指定磁道
track track_number on：打开指定磁道
treble to factor：设置高音值
volume to factor：设置左右声道音量
据本人的经验，低音值，高音值，及音量在0至1000之间取值。关于音频还有一个重要的方面容易让人迷惑：有些朋友期望将左（右）声道关闭来禁止左（右）声道的声音，但这种结果是剩下的声道仍有些未被关闭的声道的声音。这是因为默认的音频源总是立体声的，而立体声即是在左（右）声道中掺入轻微的右（左）声道的声音，以达到立体效果。要想完全禁止某一声道的声音，请使用”source to sourcename”参数。
Setvideo：设置视频回放或捕捉的参数（例如亮度、对比度、伽马值等。）。digital-video设备支持该命令。
algorithm algorithm：指定下一个”reserve”或”record”命令使用的视频压缩算法。MCI已定义的有：”mpeg”“h261”，如果指定的算法与当前的文件格式冲突，则会使用文件默认的算法
bitsperpel to count：设置用”capture”或”record”保存数据时每像素bit数量
brightness to factor：设置视频亮度
clocktime：指定”over”参数使用的时间单位为毫秒
color to factor：设置视频饱和度（色彩）
contrast to factor：设置视频对比度
gamma to value：设置伽马修正值。”value”为2200表示伽马值为2.2，1000表示不做伽马修正，
halftone：使用halftone调色板代替默认的调色板
input：激活”brightness”“color”“contrast”“gamma”“sharpness”“tint”参数设置，使之影响输入信号和记录信号
key color to r:g:b：设置”key color”为一RGB值
key index to index：设置”key index”。”index”必须为一物理调色板的索引
monitor to type number number：控制哪个输入源会传递到VCR的输出而不改变记录源的选择。”type”
number of marks：返回最大的遮罩数量，0表示不支持遮罩
ouputs：返回输出设备的总数
seek accuracy：返回定位某帧的精确度，0表示精确定位，1表示与所要定位的帧的误差不大于1帧
slow play rate：返回慢放的播放速度，单位为帧每秒
uses files：如果复合设备使用的数据保存在文件中则返回真
uses palettes：如果设备使用调色板则返回真
windows：返回设备支持的可以同时显示的窗口数量
Capture：将帧缓冲的数据拷贝到指定的文件中。digital-video支持该命令。
at pathname：指定所捕捉的帧缓冲中的图像所要保存的路径和文件名
at rectangle：指定所捕捉的帧缓冲中的图像区域，默认为put命令的source参数指定的区域
注意：该命令可能会在播放的时候或者在需要资源的操作中失效。如果帧缓冲在实时地更新，则会暂停。
Close：关闭设备，释放内存。当一个MCI设备的所有实例或文件都关闭的时候，该MCI设备被卸载。所有设备支持该命令。
注意：如果要关闭所有的设备需如此：close all
Configure：显示一对话框，以设置设备的某些属性。digital-video支持该命令。
Copy：将数据拷贝至剪切板。digital-video支持该命令。
at rectangle：指定要拷贝的帧缓冲的区域，默认为整个帧缓冲
audio stream stream：指定该命令影响的当前工作组的音频流，如果使用了该参数，又想拷贝视频流，则必须指定”video stream”参数，默认为audio stream＋video stream
from position：指定开始记录点，默认为当前位置
to position：指定终点，该位置的视音频流不被记录，默认为当前工作组的终点
video stream stream：指定该命令影响的工作组中的视频流，如果使用了该参数，又想拷贝音频流，则必须指定”audio stream”参数
Cue：在播放或记录之前执行该命令可以加快播放或记录速度。digital-video，VCR和waveform-audio支持该命令。
from position：指定起始点
input：准备记录。digital-video可以省略
noshow：准备播放，但不先显示。
output：准备播放，如果input和output都没指定，默认为output
preroll：预滚动到下一位置
reverse：指定为倒放
to position：指定终点
注意：如果设备正在播放、记录或暂停则该命令会失败。使用了”output”参数时，再使用”play”命令的”from”、”to”或”reverse”参数则会退出该命令，使用了”input”参数时，再使用”record”命令的”from”、”to”或”initialize”参数会退出该命令。
Cut：将工作区的数据剪切到剪切板。digital-video支持该命令。
at rectangle：指定每一帧的区域。默认为整个帧。当该参数被指定时，帧并不被删除，代替原图像信息的为黑色块
audio stream stream：指定该命令影响的当前工作组的指定音频流，如果使用了该参数，又想剪切视频流，则必须指定”video stream”参数，默认为audio stream＋video stream
from position：指定开始剪切点，默认为当前位置
to position：指定终点，终点并不被剪切，默认为工作组终点
video stream stream：指定该命令影响的当前工作组的指定视频流，如果使用了该参数，又想剪切音频流，则必须指定”video stream”参数，默认为audio stream＋video stream
注意：在没有调用”save”命令前,虽然播放的时候好像”cut”命令已经成功了,但只有当”save”命令被调用后该命令所作的删除才会被写入文件
Delete：从已打开的多媒体文件中删除数据段。digital-video和waveform-audio支持该命令。
at rectangle：指定每帧删除的区域。默认为整个帧。当该参数被指定时，帧并不被删除，代替原图像信息的为黑色块
audio stream stream：指定该命令影响的当前工作组的音频流。如果使用了该参数，又想删除视频流，则必须指定”video stream”参数，默认为audio stream＋video stream
from position：指定开始位置，默认为当前位置
to position：指定终点，默认为工作组终点
video stream stream：指定该命令影响的当前工作组的视频流，如果使用了该参数，又想删除音频流，则必须指定”video stream”参数，默认为audio stream＋video stream
注意：在执行任何使用position参数的命令前，你可以使用”set”命令的”time format”参数来设定媒体的时间格式，如毫秒，帧等
Escape：将设备指定的信息传送到某设备。videodisc设备支持该命令。
Freeze：终止视频输入或输出，禁止视频流从帧缓冲中获得数据。dgital-video、video-overlay和VCR支持该命令。
at rectangle：指定区域。对于digital-video设备，在指定区域中的像素会遮罩覆盖。rectangle的格式为X1 Y1 X2 Y2。X1 Y1为左上角坐标，X2 Y2指定宽度和长度
field：冻结指定的区域，该参数为默认的
frame：冻结整个帧
input：冻结输入图像的当前帧，不管当前正在播放还是暂停
output：冻结VCR的当前帧输出。如果VCR在播放的时候执行该命令，则当前帧被冻结且VCR被暂停。如果VCE已暂停则当前帧被冻结。如果input和output都没指定，则默认为output
outside：指定被冻结的为”at”参数所定义的区域外面部分
注意：要指定一个不规则区域，可以组合使用freeze和unfreeze命令。一些video-overlay设备会限制区域的复杂度
index：控制VCR设备实屏显示。仅VCR设备支持
off：关闭实屏显示
on：打开实屏显示。显示的项目为”set”命令的”index”参数指定的信息
Info：获得设备信息，例如算法，版权，所打开的文件，UPC等等。所有MCI设备都支持该命令。
audio algorithm：返回当前音频压缩算法的名称
audio quality；返回当前音频压缩质量的描述。如果将其quality设为某一值而未使用其指定值可能会返回unknown
copyright：返回MIDI文件的版权信息
file：返回复合设备使用的文件名。如果设备没有打开一个文件而且”load”命令也没被用过，那么返回一个空字符串
info identity：为CD产生一个唯一的序列号
info upc：产生CD的UPC（Universal product Code全球产品码）
input：返回当前输入设备的描述
name：返回sequence名字
output：返回当前输出设备的描述
product：返回该设备的描述。返回信息经常包括产品名称和型号。返回信息经常是31个字节或更小
still algorithm：返回当前静态图像压缩算法名称
still quality：返回当前静态图像压缩质量描述名。如果将其quality设为某一值而未使用其指定值可能会返回unknown
usage：返回工作组中视音频数据的使用限制描述
version：返回设备驱动或硬件的版本
video algorithm：返回当前视频压缩算法名称
video quality：返回当前视频压缩质量描述名如果将其quality设为某一值而未使用其指定值可能会返回unknown
window text：返回设备使用的窗口的标题
List：返回视频和音频的数量和类型。digital-video和VCR支持该命令。
audio algorithm：返回音频压缩算法名称
audio quality algorithm algorithm：返回”algorithm”指定的压缩质量级别。如果”algorit