脚本:

同步函数为:mciSendString

使用时首先要声明:声明函数mciSendString Lib " winmm . dll " Alias " mciSendStringA "

(ByVal lpstrCommand为String，ByVal lpstrReturnString为String，ByVal uReturnLength为Long，ByVal hwndCallback为Long

用法:

Dim文件名为字符串

Dim cmd为字符串

filename = " test . wav " cmd = " open " & amp；文件名& amp" type wave audio alias MyWav " Call mciSendString(cmd，，，)

Call mciSendString(" play MyWav "，，，)

异步函数为:mciSendString

使用时首先要声明:将函数sndPlaySound Lib " winmm . dll " Alias " sndPlaySoundA "

(ByVal lpszSoundName为String，ByVal uFlags为Long)声明为Long

用法:

Dim filename as String

filename = " test . wav "

调用sndPlaySound(filename，SND_SYNC)

可以连续调用sndPlaySound来进行连续多个语音文件的播放。