脚本:
同步函数为: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来进行连续多个语音文件的播放。