CODES FOR CREATING A PRONOUNCE WITH NOTEPAD IN 4 LINES
open notepad, and paste this code into new notepad
Dim message, Speak
message=InputBox("enter a message","Speak")
Set Speak=CreateObject("sapi.spvoice")
Speak.Speak message
Dim message, Speak
message=InputBox("enter a message","Speak")
Set Speak=CreateObject("sapi.spvoice")
Speak.Speak message
Comments
Post a Comment