Monday, October 10, 2022

Text to speech (.vbs)

 Text to speech (.vbs)


Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message

0 comments:

Post a Comment