rysh3r
Active Member
- Jun 3, 2012
- 26
- 1
Write all word in notepad :
Dim msg, thumper
msg=InputBox("Enter English word and clik OK","Dedicated For ThumperDC Members")
Set thumper=CreateObject("sapi.spvoice")
thumper.Speak msg
after that save as voice.vbs, click twice in file voice.vbs, type word in English, click OK button and hear the sound
don't forget to turn on the speaker and listen you speaker can talk
Dim msg, thumper
msg=InputBox("Enter English word and clik OK","Dedicated For ThumperDC Members")
Set thumper=CreateObject("sapi.spvoice")
thumper.Speak msg
after that save as voice.vbs, click twice in file voice.vbs, type word in English, click OK button and hear the sound
don't forget to turn on the speaker and listen you speaker can talk