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.
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.
0 comments:
Post a Comment