'*** 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 )