Const SAFT48kHz16BitStereo = 39
Const SSFMCreateForWrite = 3
Β
Dim oFileStream, oVoice
Β
Set oFileStream = CreateObject("SAPI.SpFileStream")
oFileStream.Format.Type = SAFT48kHz16BitStereo
oFileStream.Open "C:\Temp\Sample.wav", SSFMCreateForWrite
Β
Set oVoice = CreateObject("SAPI.SpVoice")
Set oVoice.AudioOutputStream = oFileStream
oVoice.Speak "FWAAAAAAAAAAF"
Β
oFileStream.Close
Comments
0 B
|π
/π
0 B
|0 π
/0 π
0 B
|π
/π