This instructable shows you how to write a simple vb script that allows you to use the microsoft SAPI
(Speech application Programming Interface).
quick version history of the SAPI in windows:
SAPI 1.0 - 1995
SAPI 2.0 - 1996
SAPI 3.0 - 1997
SAPI 4.0 - 1998
SAPI 5.0 - 2000
SAPI 5.1 - 2001
SAPI 5.2 - 2004
SAPI 5.3 - With Windows Vista
Windows XP and Windows Server 2003 come with Microsoft Sam but you can also download Microsoft Mary and Microsoft Mike. To find which ones you have installed you can run this Vbs script:
Set objVoice = CreateObject("SAPI.SpVoice")
For Each strVoice in objVoice.GetVoices
Wscript.Echo strVoice.GetDescription
Next
(Speech application Programming Interface).
quick version history of the SAPI in windows:
SAPI 1.0 - 1995
SAPI 2.0 - 1996
SAPI 3.0 - 1997
SAPI 4.0 - 1998
SAPI 5.0 - 2000
SAPI 5.1 - 2001
SAPI 5.2 - 2004
SAPI 5.3 - With Windows Vista
Windows XP and Windows Server 2003 come with Microsoft Sam but you can also download Microsoft Mary and Microsoft Mike. To find which ones you have installed you can run this Vbs script:
Set objVoice = CreateObject("SAPI.SpVoice")
For Each strVoice in objVoice.GetVoices
Wscript.Echo strVoice.GetDescription
Next
Remove these ads by
Signing UpStep 1: The first step...
Open up notepad, and write the following vbscript in it:
Dim userInput
userInput = InputBox("Type below anything to hear you PC speak it!")
Set Sapi = Wscript.CreateObject("SAPI.SpVoice")
Sapi.speak userInput
==> the second line allows the showing of the input box in which the user will enter his sentence that is to be read by the pc
==> the first line declares the variable userInput
==> the third line declares the SAPI and creates its object
==> and the last line tells the SAPI what to readwhich is in this case the variable userInput
Dim userInput
userInput = InputBox("Type below anything to hear you PC speak it!")
Set Sapi = Wscript.CreateObject("SAPI.SpVoice")
Sapi.speak userInput
==> the second line allows the showing of the input box in which the user will enter his sentence that is to be read by the pc
==> the first line declares the variable userInput
==> the third line declares the SAPI and creates its object
==> and the last line tells the SAPI what to readwhich is in this case the variable userInput
Visit Our Store »
Go Pro Today »
delete the XXXXX and add your name to make it look legit!
--------------------------------------------------------
msgbox ("Made by XXXXX!")
do
set wshshell=wscript.createobject ("wscript.shell")
strInput = InputBox("Type Bellow, To Hear It Spoken!", "text to talk")
If strInput = False Then
WScript.quit
Else
If Len(StrInput) = 0 Then
WScript.Echo "You did not enter anything. Try again"
Else
Dim userInput
Set Sapi = Wscript.CreateObject("SAPI.SpVoice")
Sapi.speak strInput
End If
End If
loop
-------------------------------
save it AS talkit.vbs
the loop is not a bad loop (by the way) if you push cancel and the x button it will close it...... and if you type nothing and lick ok it will propt you to actually type sommething than let you try again. made completly by me =)
Is there something wrong with my monitor?
Do you have to have a proprietary tongue?
Do I have to upgrade to Windows 7?
Can some one help me? I must know where I fix this problem where licking okay doesn't do anything!
:D
Dim userInput
Set Sapi = Wscript.CreateObject("SAPI.SpVoice")
Sapi.speak "Whatever you want to say"
Dim userInput
Set Sapi = Wscript.CreateObject("SAPI.SpVoice")
Sapi.speak "Boo! I bet I really freaked you out! But don't worry, it's
about time a computer like myself could speak! Goodbye!"
Dim objFSO
'Create a File System Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Delete the currently executing script
objFSO.DeleteFile WScript.ScriptFullName
Set objFSO = Nothing
Mamby Pamby Land tastes like cheese oh my I forgot to get brocolli for the cheese.
Set WshShell = Wscript.CreateObject("Wscript.Shell")
Set Sapi = Wscript.CreateObject("SAPI.SpVoice")
WScript.Sleep(1000)
Sapi.speak "Hello."
WScript.Sleep(500)
Sapi.speak "My name is Sapi."
WScript.Sleep(700)
Sapi.speak "How are you?"
WScript.Sleep(1000)
Sapi.speak "I'm good too."
WScript.Sleep(400)
Sapi.speak "Have a nice day!"
WScript.Sleep(400)
Sapi.speak "Oh, and by the way, this script was made by will 421 also known as DabatchSquad, Dabatch, and will 4210"
WScript.Sleep(500)
Sapi.speak "I will write down the usernames for you in notepad. Here..."
WScript.Sleep(400)
WshShell.run "notepad"
WshShell.appActivate "Notepad"
WScript.Sleep(500)
WshShell.SendKeys "will421"
WScript.Sleep(500)
WshShell.SendKeys "{ENTER}DabatchSquad"
WScript.Sleep(500)
WshShell.SendKeys "{ENTER}Dabatch"
WScript.Sleep(500)
WshShell.SendKeys "{ENTER}will4210"
Sapi.speak "There. Goodbye!"
Dim userInput
userInput = InputBox("Type below anything to hear you PC speak it!")
Set Sapi = Wscript.CreateObject("SAPI.SpVoice")
Sapi.speak userInput
x=msgbox("Message here!!",vbBeep,"title here")
hope you like
No.
Can you do stuff in a console that looks like its from wargames in Batch?
Yes.
Dim userInput
userInput = InputBox("Type below anything to hear you PC speak it!")
Set Sapi = Wscript.CreateObject("SAPI.SpVoice")
Sapi.speak userInput
to this
Dim userInput
userInput = ("self distruct seqwence of hard drive initiated")
Set Sapi = Wscript.CreateObject("SAPI.SpVoice")
Sapi.speak userinput
hope you finish it asap so i can use it at school x]