'*** v8.3 *** www.dieseyer.de ******************************* 

' 

' Datei:  sound-text-ausgabe.vbs 

' Autor:  dieseyer@gmx.de 

' Auf:    www.dieseyer.de 

' 

' Prozedur TextSprechenVbs( Txt ) 

'	Sprechen eines Textes 

' 

' Prozedur PlayWaveVbs( WaveDatei ) 

'	Wave-Datei ohne Player abspielen 

' 

'************************************************************ 

 

Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl 

 

  PlayWaveVbs "C:\Windows\Media\ringin.wav" 

 

  WSCript.Sleep 3*1000 

 

  TextSprechenVbs( "Ish bin fettich." ) 

 

WScript.Quit 

 

 

 

'*** v8.3 *** www.dieseyer.de ******************************* 

Sub PlayWaveVbs( WaveDatei ) 

'************************************************************ 

' Wave-Datei ohne Player abspielen 

  Dim objFile 

  Set objFile = CreateObject("SAPI.SpFileStream.1") 

  objFile.Open WaveDatei 

  CreateObject("SAPI.SpVoice").Speakstream objFile 

  Set objFile = nothing 

End Sub ' PlayWaveVbs( WaveDatei ) 

 

 

 

'*** v8.3 *** www.dieseyer.de ******************************* 

Sub TextSprechenVbs( Txt ) 

'************************************************************ 

' Sprechen eines Textes 

 

  Createobject("sapi.spvoice").speak( Txt ) 

 

End Sub ' TextSprechenVbs( Txt )