[VBS] MicroShaft SAM

[Kulverstukas]

I was cleaning my desktop just now and noticed this script. Where did I get it - this I can't remember
This script works with MS Sam, you input some text and Sam says it
To close is just enter a space and press enter.

Code: [Select]

Dim msg, sapi
Do
msg=InputBox("Enter your text and press 'ENTER' to make MicroShafts SaM talk","MicroShaft Sam")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
loop until msg = " "

[Zesh]

Do Loop? Pretty poor..I have this:

Code: [Select]

Dim userInput

userInput = InputBox("Type below anything to hear you PC speak it!")

Set Sapi = Wscript.CreateObject("SAPI.SpVoice")

Sapi.speak userInput

lol

[Kulverstukas]

Do Loop? Pretty poor..I have this:

Code: [Select]

Dim userInput

userInput = InputBox("Type below anything to hear you PC speak it!")

Set Sapi = Wscript.CreateObject("SAPI.SpVoice")

Sapi.speak userInput

lol

lol hey I didn't write this

[Zesh]

Yea I know I just didn't like the Do Loop