To create one such talk script, follow the steps given below:-
Steps
1. Open Notepad.
2. Copy and paste the exact code given below.
Dim Message, Speak
Message=InputBox("Enter text","Speak")
Set Speak=CreateObject("sapi.spvoice")
Speak.Speak Message
Message=InputBox("Enter text","Speak")
Set Speak=CreateObject("sapi.spvoice")
Speak.Speak Message
3. Click on File Menu, Save As, select All Types in Save as Type option, and save the file as Speak.vbs or "*.vbs".
4. Double click on the saved file, a window will open like the one in the image. Enter some text in enter text column and click OK.
No comments:
Post a Comment