emoyasha Posted January 30, 2008 Share Posted January 30, 2008 (edited) here ya go $txt = InputBox("text", "text to say") $TEMPFILE = "TALK.vbs" FileDelete("talk.bat") FileDelete($TEMPFILE) FileWriteLine($TEMPFILE, "Dim Talk") FileWriteLine($TEMPFILE, 'Set Talk = WScript.CreateObject("SAPI.SpVoice")') FileWriteLine($TEMPFILE, 'Talk.Speak ' & '"' & $txt & '"') Sleep(1000) FileWriteLine("talk.bat", "@ talk.vbs") Sleep(1000) Run("talk.bat") Sleep(3000) FileDelete("talk.bat") FileDelete($TEMPFILE) Edited January 30, 2008 by emoyasha Spoiler Admin Of:http://notmyspace.info [Under Development, looking for volunteers to help improve]http://PSNetCards.co.ukhttp://ZacnAndLindsey.com [Under development, not quite sure what to do with it yet]http://revelm.com------------------------------------Radio Streams:http://75.185.53.88:8000 [128kb/s 44kHz]http://75.185.53.88:8002 [22kb/s 22kHz](works on mobile phones)-----------------------------------My Server:Owned By: http://jumpline.comIP:66.84.19.220Bandwidth:200GBStorage Space:1TBNetwork Connection: 1GB/S[up and down]Operating System: Red Hat LinuxInstalled Apps:Webmail, phpBB, Majordomo, phpMyAdmin, MySQL, Active Server Pages, FrontPage Extensions 2002, GraphicsMagick, Mod Perl, Perl, PHP: Hypertext Preprocessor, Python(want cheap good webhosting, or need a place to park your domain? contact me)----------------------------------- Link to comment Share on other sites More sharing options...
emoyasha Posted January 30, 2008 Author Share Posted January 30, 2008 how would i add a gui to thios, im nto farmiliar with how to save gui data to variables i mean i know how to make the controls and associate themt o variables, just not how to submit the data so it becomes the variable Spoiler Admin Of:http://notmyspace.info [Under Development, looking for volunteers to help improve]http://PSNetCards.co.ukhttp://ZacnAndLindsey.com [Under development, not quite sure what to do with it yet]http://revelm.com------------------------------------Radio Streams:http://75.185.53.88:8000 [128kb/s 44kHz]http://75.185.53.88:8002 [22kb/s 22kHz](works on mobile phones)-----------------------------------My Server:Owned By: http://jumpline.comIP:66.84.19.220Bandwidth:200GBStorage Space:1TBNetwork Connection: 1GB/S[up and down]Operating System: Red Hat LinuxInstalled Apps:Webmail, phpBB, Majordomo, phpMyAdmin, MySQL, Active Server Pages, FrontPage Extensions 2002, GraphicsMagick, Mod Perl, Perl, PHP: Hypertext Preprocessor, Python(want cheap good webhosting, or need a place to park your domain? contact me)----------------------------------- Link to comment Share on other sites More sharing options...
emoyasha Posted January 30, 2008 Author Share Posted January 30, 2008 (edited) _speak() func _speak($txt) $TEMPFILE = "TALK.vbs" FileDelete("talk.bat") FileDelete($TEMPFILE) FileWriteLine($TEMPFILE, "Dim Talk") FileWriteLine($TEMPFILE, 'Set Talk = WScript.CreateObject("SAPI.SpVoice")') FileWriteLine($TEMPFILE, 'Talk.Speak ' & '"' & $txt & '"') Sleep(1000) FileWriteLine("talk.bat", "@ talk.vbs") Sleep(1000) Run("talk.bat") sleep(200) WinSetState ( "C:\Windows\system32\cmd.exe", "", @SW_HIDE ) Sleep(3000) FileDelete("talk.bat") FileDelete($TEMPFILE) endfuncoÝ÷ Ù«¢+Ø¥¹±ÕÅÕ½ÐíÍÁ¬¹ÔÌÅÕ½Ðì( ÅÕ½Ðíݱ½µÑ¼µäÁɽɴÅÕ½Ðì i know this might not be very usefull, but it uses much less cpu then dll calls and things of that nature Edited January 30, 2008 by emoyasha Spoiler Admin Of:http://notmyspace.info [Under Development, looking for volunteers to help improve]http://PSNetCards.co.ukhttp://ZacnAndLindsey.com [Under development, not quite sure what to do with it yet]http://revelm.com------------------------------------Radio Streams:http://75.185.53.88:8000 [128kb/s 44kHz]http://75.185.53.88:8002 [22kb/s 22kHz](works on mobile phones)-----------------------------------My Server:Owned By: http://jumpline.comIP:66.84.19.220Bandwidth:200GBStorage Space:1TBNetwork Connection: 1GB/S[up and down]Operating System: Red Hat LinuxInstalled Apps:Webmail, phpBB, Majordomo, phpMyAdmin, MySQL, Active Server Pages, FrontPage Extensions 2002, GraphicsMagick, Mod Perl, Perl, PHP: Hypertext Preprocessor, Python(want cheap good webhosting, or need a place to park your domain? contact me)----------------------------------- Link to comment Share on other sites More sharing options...
emoyasha Posted January 30, 2008 Author Share Posted January 30, 2008 sorry this thing is messing up with weird letters and stuff so i cant edit but ("welcome to my program") is supposed to be _speak("welcome to my program") Spoiler Admin Of:http://notmyspace.info [Under Development, looking for volunteers to help improve]http://PSNetCards.co.ukhttp://ZacnAndLindsey.com [Under development, not quite sure what to do with it yet]http://revelm.com------------------------------------Radio Streams:http://75.185.53.88:8000 [128kb/s 44kHz]http://75.185.53.88:8002 [22kb/s 22kHz](works on mobile phones)-----------------------------------My Server:Owned By: http://jumpline.comIP:66.84.19.220Bandwidth:200GBStorage Space:1TBNetwork Connection: 1GB/S[up and down]Operating System: Red Hat LinuxInstalled Apps:Webmail, phpBB, Majordomo, phpMyAdmin, MySQL, Active Server Pages, FrontPage Extensions 2002, GraphicsMagick, Mod Perl, Perl, PHP: Hypertext Preprocessor, Python(want cheap good webhosting, or need a place to park your domain? contact me)----------------------------------- Link to comment Share on other sites More sharing options...
NewBe Posted January 30, 2008 Share Posted January 30, 2008 Global $voice = ObjCreate("Sapi.SpVoice") While 1 Speak(InputBox("" , "" , "" , "") , 1 , 100) WEnd Func Speak($text, $Rate, $Volme) If IsObj($voice) Then $voice.Rate = $Rate $voice.Volume = $Volme $voice.Speak($text) EndIf EndFunc ;==>Speak Link to comment Share on other sites More sharing options...
LIMITER Posted January 30, 2008 Share Posted January 30, 2008 Global $voice = ObjCreate("Sapi.SpVoice") While 1 $text = InputBox("" , "" , "" , "") If @error = 1 Then ExitLoop Speak($text,1,100) WEnd Func Speak($text, $Rate, $Volme) If IsObj($voice) Then $voice.Rate = $Rate $voice.Volume = $Volme $voice.Speak($text) EndIf EndFunc ;==>Speak Better version of NewBe ... now with the posibility to close the script by pressing cancel in the inputbox Link to comment Share on other sites More sharing options...
NewBe Posted January 30, 2008 Share Posted January 30, 2008 Global $voice = ObjCreate("Sapi.SpVoice") While 1 $text = InputBox("" , "" , "" , "") If @error = 1 Then ExitLoop Speak($text,1,100) WEnd Func Speak($text, $Rate, $Volme) If IsObj($voice) Then $voice.Rate = $Rate $voice.Volume = $Volme $voice.Speak($text) EndIf EndFunc ;==>Speak Better version of NewBe ... now with the posibility to close the script by pressing cancel in the inputbox Shorter Global $voice = ObjCreate("Sapi.SpVoice") While 1 Speak(InputBox("" , "" , "" , "") ,1,100) If @error = 1 Then ExitLoop WEnd Func Speak($text, $Rate, $Volme) If IsObj($voice) Then $voice.Rate = $Rate $voice.Volume = $Volme $voice.Speak($text) EndIf EndFunc ;==>Speak I used that when I was bored didn't want to keep running the script. Link to comment Share on other sites More sharing options...
weaponx Posted January 30, 2008 Share Posted January 30, 2008 Congratulations, you failed to realize there are 100 other examples of this already posted.http://www.autoitscript.com/forum/index.ph...mp;#entry221015 Link to comment Share on other sites More sharing options...
emoyasha Posted January 30, 2008 Author Share Posted January 30, 2008 sorry that i was learning jerk Spoiler Admin Of:http://notmyspace.info [Under Development, looking for volunteers to help improve]http://PSNetCards.co.ukhttp://ZacnAndLindsey.com [Under development, not quite sure what to do with it yet]http://revelm.com------------------------------------Radio Streams:http://75.185.53.88:8000 [128kb/s 44kHz]http://75.185.53.88:8002 [22kb/s 22kHz](works on mobile phones)-----------------------------------My Server:Owned By: http://jumpline.comIP:66.84.19.220Bandwidth:200GBStorage Space:1TBNetwork Connection: 1GB/S[up and down]Operating System: Red Hat LinuxInstalled Apps:Webmail, phpBB, Majordomo, phpMyAdmin, MySQL, Active Server Pages, FrontPage Extensions 2002, GraphicsMagick, Mod Perl, Perl, PHP: Hypertext Preprocessor, Python(want cheap good webhosting, or need a place to park your domain? contact me)----------------------------------- Link to comment Share on other sites More sharing options...
BillLuvsU Posted January 31, 2008 Share Posted January 31, 2008 lol... weapon got called a jerk :giggle: [center][/center]Working on the next big thing.Currently Playing: Halo 4, League of LegendsXBL GT: iRememberYhslaw Link to comment Share on other sites More sharing options...
JustinReno Posted January 31, 2008 Share Posted January 31, 2008 Here is an easy way also, but nice script! $Speak = ObjCreate("Sapi.SPVoice") $Speak.Speak("Hello!!") To add more lines just $Speak.Speak("Text Here"). Link to comment Share on other sites More sharing options...
Achilles Posted January 31, 2008 Share Posted January 31, 2008 (edited) Here is an easy way also, but nice script! $Speak = ObjCreate("Sapi.SPVoice") $Speak.Speak("Hello!!") To add more lines just $Speak.Speak("Text Here"). Were you paying attention to any of the posts in this topic? Edit: Grammatical typo Edited January 31, 2008 by Piano_Man My Programs[list][*]Knight Media Player[*]Multiple Desktops[*]Daily Comics[*]Journal[/list] Link to comment Share on other sites More sharing options...
emoyasha Posted January 31, 2008 Author Share Posted January 31, 2008 thanks i was going to try to directly do it, but i didnt know that autoit parsed vb commands but yeah this is my first script i pu ton here. Spoiler Admin Of:http://notmyspace.info [Under Development, looking for volunteers to help improve]http://PSNetCards.co.ukhttp://ZacnAndLindsey.com [Under development, not quite sure what to do with it yet]http://revelm.com------------------------------------Radio Streams:http://75.185.53.88:8000 [128kb/s 44kHz]http://75.185.53.88:8002 [22kb/s 22kHz](works on mobile phones)-----------------------------------My Server:Owned By: http://jumpline.comIP:66.84.19.220Bandwidth:200GBStorage Space:1TBNetwork Connection: 1GB/S[up and down]Operating System: Red Hat LinuxInstalled Apps:Webmail, phpBB, Majordomo, phpMyAdmin, MySQL, Active Server Pages, FrontPage Extensions 2002, GraphicsMagick, Mod Perl, Perl, PHP: Hypertext Preprocessor, Python(want cheap good webhosting, or need a place to park your domain? contact me)----------------------------------- Link to comment Share on other sites More sharing options...
JustinReno Posted January 31, 2008 Share Posted January 31, 2008 We're you paying attention to any of the posts in this topic?Hippocrite, if you were, you would notice the word also in my post, and mine was simpler. Link to comment Share on other sites More sharing options...
Achilles Posted January 31, 2008 Share Posted January 31, 2008 (edited) HippocriteAd hominem.if you were, you would notice the word also in my postI did.mine was simpler.Yours was the exact same command as the one that NewBe posted just that NewBe's is more customizable.My last words concerning this in order to not hi-jack the post.@emoyasha: Your approach (for not knowing what AutoIt could do) was very well done... Edited January 31, 2008 by Piano_Man My Programs[list][*]Knight Media Player[*]Multiple Desktops[*]Daily Comics[*]Journal[/list] Link to comment Share on other sites More sharing options...
JustinReno Posted January 31, 2008 Share Posted January 31, 2008 I did.Then there was no need for your post.Yours was the exact same command as the one that NewBe posted just that NewBe's is more customizable.Thats the POINT, simpler. 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