From:

 BT

Subject:

 Re: Window-Eyes Script Writing

Date:

 Sat, Aug 21, 2010 11:02:10 pm

charset="iso-8859-1"

Tom,

Below is a Sapi 5 VB script example which will allow you to have speech
and write vb script files and not use html at all. As long as you computer
allows you to run VB script all you have to do is have a file with the
extension .VBS.
You can copy the stuff below or save the attachment and make sure the
file ends with .vbs. This will allow you to test most of your vb examples if
you want. The stuff below uses the class method and after you reach the
class end statement you get into the body of the vb script. There you can
note the formats used to just do a test run of voices.

The .vbs file can be opened up in Notepad and you can make any kind of
file you want while you are learning.
Using the class method below and the format in the body beneath the
class to have any prompt messages sepak. Then you can teach yourself all
about .VBS. or scripting. Then get into the Windoweyes scripting after you
have mastered VB scripting.
See the attached if it gets posted along with this email.

Bruce



'MODIFIED JUNE 30 2010 FOR voicelist redim, tts4 and tts5!
'JUNE 29 2010 FOR CLASS METHOD OF SAPI 5!
'JUNE 26 FOR ALL SPEECH METHODS!
Class createSapiObject
Private tts5
Private tts4
Private sapiQ
Private voices5count
Private voices4count
Private voice5list()
Private voice4list()
Private defaultspeed
Private pitch
Private defaultvolume
Private default_spk
Private sync
Private async
Private xml
Private isfile
Private no_xml
Private punc

Private Sub Class_Initialize
dim i
Set tts5 = CreateObject("sapi.spvoice")
tts5.Speak("")
Set tts4 = CreateObject("ActiveVoice.ActiveVoice")
tts4.Speak("")
sapiMode = 5
voices5count = tts5.GetVoices.Count
voices4count = tts4.CountEngines
if voices4count