Current location - Quotes Website - Personality signature - ifix如何通过事件调度实现声音报警
ifix如何通过事件调度实现声音报警
事件调度 添加你的报警标签~

脚本:

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