Post: CODE: Simple Text-To-Audio creator
Options
02-25-2011, 07:28 PM
#1
<Jimbo>
</Jimbo>
Simple VB code for a Text-To-Audio that, I came accross! :p
You must login or register to view this content.
I modified it a bit and then made it so it will repeat the message lots!
That say's it once! ^^
That say's it lot's! :p
So just copy and paste it into notepad and save it as .vbs file and then open it!!!
You must login or register to view this content.
I modified it a bit and then made it so it will repeat the message lots!
Dim msg, sapi
msg=InputBox("NextGenUpdate Narrator! Beta","NGU T2A jimbo_123tonka","Thank you for using this code by jimbo_123tonka! Press OK to listen!!!" )
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
That say's it once! ^^
Dim msg, sapi
msg=InputBox("NextGenUpdate Narrator! Beta","NGU T2A jimbo_123tonka","Thank you for using this code by jimbo_123tonka! Press OK to listen!!!" )
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
sapi.Speak msg
sapi.Speak msg
sapi.Speak msg
sapi.Speak msg
sapi.Speak msg
sapi.Speak msg
sapi.Speak msg
sapi.Speak msg
That say's it lot's! :p
So just copy and paste it into notepad and save it as .vbs file and then open it!!!
Last edited by
<Jimbo> ; 02-25-2011 at 07:39 PM.
The following user thanked <Jimbo> for this useful post:
. xD
02-26-2011, 08:50 PM
#3
thehardcore210
Haxor!
I paste this into notepad++ and it will work?!
Originally posted by 123tonka
Simple VB code for a Text-To-Audio that, I came accross! :p
You must login or register to view this content.
I modified it a bit and then made it so it will repeat the message lots!
That say's it once! ^^
That say's it lot's! :p
So just copy and paste it into notepad and save it as .vbs file and then open it!!!
You must login or register to view this content.
I modified it a bit and then made it so it will repeat the message lots!
Dim msg, sapi
msg=InputBox("NextGenUpdate Narrator! Beta","NGU T2A jimbo_123tonka","Thank you for using this code by jimbo_123tonka! Press OK to listen!!!" )
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
That say's it once! ^^
Dim msg, sapi
msg=InputBox("NextGenUpdate Narrator! Beta","NGU T2A jimbo_123tonka","Thank you for using this code by jimbo_123tonka! Press OK to listen!!!" )
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
sapi.Speak msg
sapi.Speak msg
sapi.Speak msg
sapi.Speak msg
sapi.Speak msg
sapi.Speak msg
sapi.Speak msg
sapi.Speak msg
That say's it lot's! :p
So just copy and paste it into notepad and save it as .vbs file and then open it!!!
Copyright © 2024, NextGenUpdate.
All Rights Reserved.
