How to change text to voice without software

1:-Open Notepad and copy and paste the following code in notepad.


Dim message, sapi
message=InputBox("Enter the Character for Speaking?","Text To Voice Changer")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message





2:-Now save the notepad file with the name speak.vbs on your desktop(.vbs Extension must)


3:-Now double click on speak.vbs type in the box and then click ok and computer speak now.