_Talk, this function speaks text to u! :D

[El-Trucha]

Here's my script:

#cs
Name: _Talk 1.0
Author: El-Trucha <eltrucha14@gmail.com>
Date|Time: 2/25/05 | 10:44 PM
Dev Tool: AutoIt v3.1.0
Requirements: WSH 5.6 ENABLED!!
Description: This function speaks whatever 
    string you specify in $sText
#ce

Func _Talk($sText)
    $tempFile = @TempDir & '\talktemp.vbs'  ; Set the temp file
    FileWriteLine($tempFile, 'Dim Talk' & @CRLF & _
    'Set Talk = WScript.CreateObject("SAPI.SpVoice")' & _
    @CRLF & 'Talk.Speak "' & $sText & '"'); Add contents to the temp file
    RunWait('Wscript.exe talktemp.vbs', @TempDir); Run the VBScript
    FileDelete($tempFile)
EndFunc

I made a program that uses this script...I'll upload it 2 www.truchasoft.tk soon!!

Hope u like it!!

[Holger]

:)

Extremly funny

Small but great....thanks

Could maybe used for informing/warning messages like a countdown

edit: here is what I mean:

#cs
Name: _Talk 1.0
Author: El-Trucha <eltrucha14@gmail.com>
Date|Time: 2/25/05 | 10:44 PM
Dev Tool: AutoIt v3.1.0
Requirements: WSH 5.6 ENABLED!!
Description: This function speaks whatever
    string you specify in $sText
#ce
For $i = 10 To 0 Step -1
    _Talk($i)
    Sleep(750)
Next

_Talk("Start the engines")

Exit

Func _Talk($sText)
    $tempFile = @TempDir & '\talktemp.vbs'   ; Set the temp file
    FileWriteLine($tempFile, 'Dim Talk' & @CRLF & _
    'Set Talk = WScript.CreateObject("SAPI.SpVoice")' & _
    @CRLF & 'Talk.Speak "' & $sText & '"'); Add contents to the temp file
    RunWait('Wscript.exe talktemp.vbs', @TempDir); Run the VBScript
    FileDelete($tempFile)
EndFunc

Thanks a lot EL

Edited February 26, 2005 by Holger

[Guest Guidosoft]

_Talk("Hello. This is the computer GOD. I am taking over your computer now.")

[Insolence]

HAH!

Excellent, this is amazing. Thanks a ton.

[layer]

now thats pretty neat!

[Encryption]

Wow, very nice. This has given me an idea lol.

[El-Trucha]

Glad y'all liked it!

[buzz44]

lol .. very funny .. is it possible to change it to the female voice ?

Edited February 27, 2005 by burrup

[Coffee]

should be your default voice, female on mine.

[buzz44]

wel its male on mine lol.... on my old comp if u click on speech on control panel i could choose 2 different ones .. female or male .. but i think it mighta been an addon from "XP Plus"

[DirtyBanditos]

Here's my script:

#cs
Name: _Talk 1.0
Author: El-Trucha <eltrucha14@gmail.com>
Date|Time: 2/25/05 | 10:44 PM
Dev Tool: AutoIt v3.1.0
Requirements: WSH 5.6 ENABLED!!
Description: This function speaks whatever 
    string you specify in $sText
#ce

Func _Talk($sText)
    $tempFile = @TempDir & '\talktemp.vbs'    ; Set the temp file
    FileWriteLine($tempFile, 'Dim Talk' & @CRLF & _
    'Set Talk = WScript.CreateObject("SAPI.SpVoice")' & _
    @CRLF & 'Talk.Speak "' & $sText & '"'); Add contents to the temp file
    RunWait('Wscript.exe talktemp.vbs', @TempDir); Run the VBScript
    FileDelete($tempFile)
EndFunc

I made a program that uses this script...I'll upload it 2 www.truchasoft.tk soon!!

Hope u like it!!

<{POST_SNAPBACK}>

huhu El-Trucha funny great job and your SimpleDragonFightin 1.1 is cool

Thx dudu

[Roger]

I found some code on the internet that will allow you to change to whatever voice you want. I have the AT&T Natural voices installed, so I will include the code to call for the female voice, crystal16, if you have it. To change the voice, just uncomment the line for the voice you want. If a voice is not installed, you will receive an error. Here goes...

' Declaring variable to hold SAPI object.
Dim voic 

' Creating SAPI object using spvoice.
Set voic = Wscript.CreateObject("SAPI.SpVoice")

' If you want to change the voice then uncomment any of the following 4 lines.

'Set voic.voice = voic.GetVoices("Name=Microsoft mary", "Language=409").Item(0)
'Set voic.voice = voic.GetVoices("Name=Microsoft mike", "Language=409").Item(0)
'Set voic.voice = voic.GetVoices("Name=Microsoft sam", "Language=409").Item(0)
'Set voic.voice = voic.GetVoices("Name=crystal16", "Language=409").Item(0)

' you can set other parameters and properties like voice pitch, speed etc.   

' Using speak function of SpVoice to speak a string.
voic.Speak("Welcome To My First Speech Enabled ASP Page, Have a nice day!")

' Destroying SAPI.spvoice object.
Set voic = nothing

Edited March 1, 2005 by Roger

[jdickens]

I will put this in our inventory tracking system so the guys in the warehouse don't have to look at the computer screen to verify that they put something in right. I will need a volume control because maybe it will get annoying! Hope it works in W2000...

J

[pcdestroyer]

real nice el-trucha i like it a lot lol reminds me of ventrilo lol

it's the same voice

[sir_bob]

real nice el-trucha i like it a lot lol reminds me of ventrilo lol

it's the same voice

<{POST_SNAPBACK}>

I'm not sure what I am missing here, but I have tried running this script and I get the following errors:

Title: Windows Cript Host

Error: Name Redefined.

Code: 800A0411

Source: VBScript compilation error.

The next error is:

Could not laocate automation class named "SAPI.SpVoice"

Source: WScript.CreateObject.

Can someone give me an idea of what I may be missing.

Thanks

[jdickens]

Hi Sir_Bob:

Which OS are you running?

When you go to Control Panel do you have a Speech item?

There is a Microsoft dl, which I understand is required for speech recognition, but I do not know if that applies here or not.

J

[Roger]

The script only runs on Windows XP. In order for you to run it on Windows 2000 or below, you have to download SDK 5.1 from microsoft and make sure you have the microsoft voices installed and text to speach engine installed.

[sir_bob]

Thanks Guys, that would probably be the problem. I tried it on Win2K, I'll give it a run on XP today.

Thanks for the replies, Appreciated.

[Alterego]

this is neat

[Dr Rave]

Tried it and liked it. Cheers!