Jump to content

_Talk this function speaks text to you

erifash

By erifash,
in AutoIt Example Scripts

 Share

Recommended Posts

erifash Universalist

erifash

Posted
  • Author
Posted

You are more than welcome to the credit. I sometimes think that it would be best if people put their names at the top of their scripts so that it is easier to remember who did them.

That's a great idea! I might start doing that from now on... B)
My UDFs:_FilePrint() | _ProcessGetName() | _Degree() and _Radian()My Scripts:Drive Lock - Computer Lock Using a Flash DriveAU3Chat - Simple Multiuser TCP ChatroomStringChunk - Split a String Into Equal PartsAutoProxy - Custom Webserver
Link to comment
Share on other sites
MHz Universalist

MHz

Posted
Posted

Hmmm... It looks like it should work but it doesn't on this computer because I only have Microsoft Sam. Can anyone else test this out?

Mike and Mary (or was it michelle?) can be installed from Office XP if you have it. Should be under excel section of addons. You do not need the large SDK 5.1 if you have Win XP.
Link to comment
Share on other sites
erifash Universalist

erifash

Posted
  • Author
Posted

Mike and Mary (or was it michelle?) can be installed from Office XP if you have it. Should be under excel section of addons. You do not need the large SDK 5.1 if you have Win XP.

Oh, my computer didn't come with Office XP. I guess that was part of the problem! B)
My UDFs:_FilePrint() | _ProcessGetName() | _Degree() and _Radian()My Scripts:Drive Lock - Computer Lock Using a Flash DriveAU3Chat - Simple Multiuser TCP ChatroomStringChunk - Split a String Into Equal PartsAutoProxy - Custom Webserver
Link to comment
Share on other sites
  • 5 months later...
thefluxster Seeker

thefluxster

Posted
Posted

Anyone know of an easy way to install Microsoft Anna without having Vista? I know if you install MS Streets and Trips 2006 with voice support, she gets installed. In fact, I can currently activate her using AutoIT scripts. But that's only because I've installed MS Streets and Trips 2006.

Pity there isn't a simple install proggy out there that would just add that voice/functionality to WinXP without having to add some other piece of software in the process. Or is there? :think:

“Efficiency is doing things right; effectiveness is doing the right things.”-Peter F. Drucker

Link to comment
Share on other sites
RazerM Universalist

RazerM

Posted
Posted

here is a program i made, it lists every voice installed on your computer

#NoTrayIcon
#include <GUIConstants.au3>
Dim $voice = ObjCreate("Sapi.SpVoice")
$Error = ObjEvent("AutoIt.Error", "ErrFunc")
GUICreate("Talker", 600, 280)
$text = GUICtrlCreateInput("Text to speak", 10, 10, 580, 50, $ES_MULTILINE)
$speak = GUICtrlCreateButton("Speak", 10, 65, -1, -1, $BS_DEFPUSHBUTTON)
GUICtrlCreateGroup("Options", 10, 100, 580, 170)
$rate = GUICtrlCreateSlider(20, 150, 280, 30, $TBS_TOP + $TBS_AUTOTICKS)
GUICtrlSetLimit($rate, 50, -50)
GUICtrlSetData($rate, 0)
$volume = GUICtrlCreateSlider(300, 150, 280, 30, $TBS_TOP + $TBS_AUTOTICKS)
GUICtrlSetLimit($volume, 100, 1)
GUICtrlSetData($volume, 100)
GUICtrlCreateLabel("Slow", 20, 185)
GUICtrlCreateLabel("Normal", 140, 185)
GUICtrlCreateLabel("Fast", 270, 185)
GUICtrlCreateLabel("Quiet", 310, 185)
GUICtrlCreateLabel("Loud", 550, 185)
GUICtrlCreateLabel("Voice:", 20, 233)
$voiceC = GUICtrlCreateCombo("Microsoft Sam", 60, 230, 100)
Dim $SOTokens = $voice.GetVoices('', '')
For $Token In $SOTokens
    GUICtrlSetData($voiceC, $Token.GetDescription)
Next
;~ GUICtrlSetData($voiceC, "Microsoft Mike|Microsoft Mary|LH Michael|LH Michelle")
GUISetState()

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $speak
            Speak(GUICtrlRead($text), GUICtrlRead($voiceC), GUICtrlRead($rate) / 10, GUICtrlRead($volume))
    EndSwitch
WEnd

Func Speak($text, $SapiVoice, $rate = 1, $Vol = 100)
    $voice.Rate = $rate
    If @error Then Return
    $voice.Volume = $Vol
    If @error Then Return
    Local $t_voice = $voice.GetVoices ("Name=" & $SapiVoice, "Language=409").Item (0)
    If @error Then Return
    $voice.Voice = $t_voice
    If Not @error Then $voice.Speak ($text)
EndFunc ;==>Speak

Func ErrFunc()
    MsgBox(48, "Error", "This machine doesn't have " & GUICtrlRead($voiceC) & " installed")
    SetError(1)
EndFunc ;==>ErrFunc

My Programs:AInstall - Create a standalone installer for your programUnit Converter - Converts Length, Area, Volume, Weight, Temperature and Pressure to different unitsBinary Clock - Hours, minutes and seconds have 10 columns each to display timeAutoIt Editor - Code Editor with Syntax Highlighting.Laserix Editor & Player - Create, Edit and Play Laserix LevelsLyric Syncer - Create and use Synchronised Lyrics.Connect 4 - 2 Player Connect 4 Game (Local or Online!, Formatted Chat!!)MD5, SHA-1, SHA-256, Tiger and Whirlpool Hash Finder - Dictionary and Brute Force FindCool Text Client - Create Rendered ImageMy UDF's:GUI Enhance - Enhance your GUIs visually.IDEA File Encryption - Encrypt and decrypt files easily! File Rename - Rename files easilyRC4 Text Encryption - Encrypt text using the RC4 AlgorithmPrime Number - Check if a number is primeString Remove - remove lots of strings at onceProgress Bar - made easySound UDF - Play, Pause, Resume, Seek and Stop.
Link to comment
Share on other sites
RazerM Universalist

RazerM

Posted
Posted

why is there 2 topics on this now?

My Programs:AInstall - Create a standalone installer for your programUnit Converter - Converts Length, Area, Volume, Weight, Temperature and Pressure to different unitsBinary Clock - Hours, minutes and seconds have 10 columns each to display timeAutoIt Editor - Code Editor with Syntax Highlighting.Laserix Editor & Player - Create, Edit and Play Laserix LevelsLyric Syncer - Create and use Synchronised Lyrics.Connect 4 - 2 Player Connect 4 Game (Local or Online!, Formatted Chat!!)MD5, SHA-1, SHA-256, Tiger and Whirlpool Hash Finder - Dictionary and Brute Force FindCool Text Client - Create Rendered ImageMy UDF's:GUI Enhance - Enhance your GUIs visually.IDEA File Encryption - Encrypt and decrypt files easily! File Rename - Rename files easilyRC4 Text Encryption - Encrypt text using the RC4 AlgorithmPrime Number - Check if a number is primeString Remove - remove lots of strings at onceProgress Bar - made easySound UDF - Play, Pause, Resume, Seek and Stop.
Link to comment
Share on other sites
  • 9 months later...
Ktulu789 Wayfarer

Ktulu789

Posted
Posted

Is it here a way to change other attributes of the voice such as the pitch, the mood or to make it sound like a robot or a boy?

I have a little proggy from MS, I think its name is TalkIt and it's funny. But it would be nice to know how it works. Cheers. Lucas.

AutoIt is a blessing, I don't know how I was able to use my computer before [Auto]It :-S

Link to comment
Share on other sites
_Kurt Universalist

_Kurt

Posted
Posted

I remember someone did a really cool speaking function. I forget the members name, and most of the information, but i remember it accessed a site on the internet and it had many voices to choose from.

Kurt

Awaiting Diablo III..

Link to comment
Share on other sites
NELyon Universalist

NELyon

Posted
Posted

I remember someone did a really cool speaking function. I forget the members name, and most of the information, but i remember it accessed a site on the internet and it had many voices to choose from.

Kurt

Was it CyberZeroCool?

Link to comment
Share on other sites
Lakes Universalist

Lakes

Posted
Posted

I did a script for the Willow speech talker program, (the program itself is no longer supported and is free to download) that had quite a few cool voices.

Of course, I can`t find it in the forums now, if its ok by the Mods here I`ll put it on my website and post the links.

I remember the post about the website, it was one where you could demo the voices by typing text into it, sorry one I did`nt save, you`ll have to search the forums..

2015 - Still no flying cars, instead blankets with sleeves.

Link to comment
Share on other sites
leecole Wayfarer

leecole

Posted
Posted

Hmmm... It looks like it should work but it doesn't on this computer because I only have Microsoft Sam. Can anyone else test this out?

http://www.bytecool.com/voices.htm

Talking Clockhttp://www.autoitscript.com/forum/index.php?showtopic=20751Talking Headlineshttp://www.autoitscript.com/forum/index.php?showtopic=20655Sometimes, I sits and thinkssometimes, I just sits

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...