James Posted June 15, 2007 Author Share Posted June 15, 2007 Lol, its ok Cyber, advertise EVERYTHING.. BE MY GUEST. hehe.. i543, drop it, its CHAT FORUM. Blog - Seriously epic web hosting - Twitter - GitHub - Cachet HQ Link to comment Share on other sites More sharing options...
i542 Posted June 15, 2007 Share Posted June 15, 2007 Lol, its ok Cyber, advertise EVERYTHING.. BE MY GUEST. hehe..i543, drop it, its CHAT FORUM.But it is always better to post in a existing thread than making a new one I can do signature me. Link to comment Share on other sites More sharing options...
ConsultingJoe Posted June 15, 2007 Share Posted June 15, 2007 (edited) wow, cool your jets guys, sorry to cause all the cammotion.Did you know that you can also use tags in the speech?http://msdn.microsoft.com/library/default....TS_Tutorial.aspand you can save the speech to a file like this:;By: SolidSnake _SpeakToWAV("hello",@ScriptDir&"\TEST.wav") Func _SpeakToWAV($sText,$sFile) $ObjVoice=ObjCreate("Sapi.SpVoice") $ObjFile=ObjCreate("SAPI.SpFileStream.1") $objFile.Open($sFile,3) $objVoice.AudioOutputStream = $objFile $objVoice.Speak ($sText) EndFunc Edited June 15, 2007 by CyberZeroCool [center]AutoIT + Finger Print Reader/Scanner = COOL STUFF -> Check Out Topic![/center][center][font=Arial Black]Check out ConsultingJoe.com[/font][/center][center]My Scripts~~~~~~~~~~~~~~Web Protocol Managing - Simple WiFi Scanner - AutoTunes - Remote PC Control V2 - Audio SpectrascopePie Chart UDF - At&t's TTS - Custom Progress Bar - Windows Media Player Embed[/center] Link to comment Share on other sites More sharing options...
James Posted June 15, 2007 Author Share Posted June 15, 2007 That's cool.. I knew you could save spoken text to a .wav file thanks to SolidSnake. Blog - Seriously epic web hosting - Twitter - GitHub - Cachet HQ Link to comment Share on other sites More sharing options...
i542 Posted June 15, 2007 Share Posted June 15, 2007 cool I can do signature me. Link to comment Share on other sites More sharing options...
zfisherdrums Posted June 16, 2007 Share Posted June 16, 2007 (edited) Great find. I'm going to implement this into LazyReader with creds to all y'all! Edited June 16, 2007 by zfisherdrums Identify .NET controls by their design time namesLazyReader© could have read all this for you. Unit Testing for AutoItFolder WatcherWord Doc ComparisonThis here blog... Link to comment Share on other sites More sharing options...
zfisherdrums Posted June 16, 2007 Share Posted June 16, 2007 (edited) Added functions to Pause and Resume. expandcollapse popup#include <Misc.au3> HotKeySet("^t", "_Talk") HotKeySet("^e", "_Exit") HotKeySet("^+{PAUSE}", "_Pause") HotKeySet("^r", "_Resume") HotKeySet("^s", "_Stop") Global $voice = ObjCreate("Sapi.SpVoice") Local $Talk = 0 While 1 Sleep(100) WEnd Func _Talk() $Clip = ClipGet() Do Speak($Clip, 0, 100) $Talk = 1 Until $Talk = 1 Or _IsPressed(12) & _IsPressed(53) EndFunc ;==>_Talk Func _Stop() $voice = ObjCreate("Sapi.SpVoice") EndFunc Func _Pause() $voice.Pause EndFunc Func _Resume() $voice.Resume() Endfunc Func Speak($text, $Rate, $Volme) Local Const $SVSFlagsAsync = 1 If IsObj($voice) Then $voice.Voice = $voice.GetVoices("Name=Microsoft Sam", "Language=409").Item(0) $voice.Rate = $Rate $voice.Volume = $Volme $voice.Speak ($text, $SVSFlagsAsync) EndIf EndFunc ;==>Speak Func _Exit() Exit EndFunc ;==>_Exit Edited June 16, 2007 by zfisherdrums Identify .NET controls by their design time namesLazyReader© could have read all this for you. Unit Testing for AutoItFolder WatcherWord Doc ComparisonThis here blog... Link to comment Share on other sites More sharing options...
i542 Posted June 16, 2007 Share Posted June 16, 2007 thats great I can do signature me. Link to comment Share on other sites More sharing options...
James Posted June 16, 2007 Author Share Posted June 16, 2007 Cool, thanks zfisherdrums Blog - Seriously epic web hosting - Twitter - GitHub - Cachet HQ Link to comment Share on other sites More sharing options...
James Posted June 16, 2007 Author Share Posted June 16, 2007 By the way, do any of you know how you can find the different voices currently installed on the system? Blog - Seriously epic web hosting - Twitter - GitHub - Cachet HQ Link to comment Share on other sites More sharing options...
zfisherdrums Posted June 16, 2007 Share Posted June 16, 2007 Cool, thanks zfisherdrums Hey, I know I mentioned that my script was meant as more of a joke/commentary on the marketing of useless software - but could I use part of your script in my re-write of LazyReader? I would of course credit you, CyberZeroCool, i542, SolidSnake, et al. Identify .NET controls by their design time namesLazyReader© could have read all this for you. Unit Testing for AutoItFolder WatcherWord Doc ComparisonThis here blog... Link to comment Share on other sites More sharing options...
James Posted June 16, 2007 Author Share Posted June 16, 2007 Yeah sure. Anytime. Blog - Seriously epic web hosting - Twitter - GitHub - Cachet HQ Link to comment Share on other sites More sharing options...
i542 Posted June 16, 2007 Share Posted June 16, 2007 (edited) By the way, do any of you know how you can find the different voices currently installed on the system?Look at my very first (or it was second ) topic here and gafrosts answer here. It uses $oMyError = ObjEvent("AutoIt.Error","MyErrFunc"); Install a custom error handler _TalkOBJ('This is auto it beta speaking.', 1) _TalkOBJ('This is auto it beta speaking.', 2) _TalkOBJ('This is auto it beta speaking.', 3) ;voice params: ; ;1 - Microsoft Mary ;1 - Microsoft Sam ;3 - Microsoft Mike Func _TalkOBJ($s_text, $s_voice = 3) Local $o_speech = ObjCreate ("SAPI.SpVoice") Select Case $s_voice == 1 $o_speech.Voice = $o_speech.GetVoices("Name=Microsoft Mary", "Language=409").Item(0) Case $s_voice == 2 $o_speech.Voice = $o_speech.GetVoices("Name=Microsoft Mike", "Language=409").Item(0) Case $s_voice == 3 $o_speech.Voice = $o_speech.GetVoices("Name=Microsoft Sam", "Language=409").Item(0) EndSelect $o_speech.Speak ($s_text) $o_speech = "" EndFunc ;==>_TalkOBJ ; This is my custom error handler Func MyErrFunc() $HexNumber=hex($oMyError.number,8) Msgbox(0,"","We intercepted a COM Error !" & @CRLF & _ "Number is: " & $HexNumber & @CRLF & _ "Windescription is: " & $oMyError.windescription ) SetError(1); something to check for when this function returns Endfunc Hey, I know I mentioned that my script was meant as more of a joke/commentary on the marketing of useless software - but could I use part of your script in my re-write of LazyReader? I would of course credit you, CyberZeroCool, i542, SolidSnake, et al.no problems at all Edited June 16, 2007 by i542 I can do signature me. Link to comment Share on other sites More sharing options...
James Posted June 16, 2007 Author Share Posted June 16, 2007 No, I mean is there away to determine what voices have been installed. That just lets you pick a voice. Blog - Seriously epic web hosting - Twitter - GitHub - Cachet HQ Link to comment Share on other sites More sharing options...
i542 Posted June 16, 2007 Share Posted June 16, 2007 No, I mean is there away to determine what voices have been installed. That just lets you pick a voice.AFAIK, no I can do signature me. Link to comment Share on other sites More sharing options...
James Posted June 16, 2007 Author Share Posted June 16, 2007 Time to look in the registry. Blog - Seriously epic web hosting - Twitter - GitHub - Cachet HQ Link to comment Share on other sites More sharing options...
Skrip Posted June 16, 2007 Share Posted June 16, 2007 What happends if you copy an image? [left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left] Link to comment Share on other sites More sharing options...
James Posted June 16, 2007 Author Share Posted June 16, 2007 (edited) Yeah, I'm gonna need to make an error function to determine that.Edit: Dont need to. It doesnt do anything when an image is in the clipboard. Edited June 16, 2007 by Secure_ICT Blog - Seriously epic web hosting - Twitter - GitHub - Cachet HQ Link to comment Share on other sites More sharing options...
lordofthestrings Posted June 16, 2007 Share Posted June 16, 2007 dear SecureICT: $objVoice = ObjCreate("SAPI.SpVoice") For $strVoice in $objVoice.GetVoices msgbox(0, "", $strVoice.GetDescription, 10) Next Link to comment Share on other sites More sharing options...
James Posted June 16, 2007 Author Share Posted June 16, 2007 Well, I could Return the values and then Array them. I needed to put them in a Combo Box. Blog - Seriously epic web hosting - Twitter - GitHub - Cachet HQ Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now