Set oIE = WScript.CreateObject("InternetExplorer. Set ISpeechVoice = CreateObject("SAPI.SpVoice") Run, WSCRIPT.EXE "%A_ScriptDir%\SpeechMe.vbs", WSCRIPT_PID If you use Windows 2000/XP, most likely, your system already has the necessary components.įileAppend, Set ISpeechVoice `= CreateObject`(`"SAPI.SpVoice`"`)`n, %A_ScriptDir%\SpeechMe.vbsįileAppend, Set oIE `= WScript.CreateObject`(`"InternetExplorer.Application`"`)`n, %A_ScriptDir%\SpeechMe.vbsįileAppend, oIE.navigate `"about`:blank`"`n, %A_ScriptDir%\SpeechMe.vbsįileAppend, ISpeechVoice.Speak .getData`(`"text`"`)`, SPF_DEFAULT`n, %A_ScriptDir%\SpeechMe.vbsįileAppend, Set oIE = Nothing, %A_ScriptDir%\SpeechMe.vbsĬlipboard = The text to speech not found! Please select some text and retry. Here is my code: set voice CreateObject('SAPI.SpVoice') set voice.Voice (1) voice.Rate 1 voice.Volume. The problem I'm having is that I can only select between 3 voices. Uses Microsoft Speech API and any Speech Engine registered in the Windows Registry. Hey guys, I'm trying to create a text to speech vbscript. The script creates temporary VBScript and hidden IE window. A simple script which speaks the selected text with artificial voice.
0 kommentar(er)
