Friday 17 February 2012

Voice Text Application (in urdu)


Name: Test note paid.gif views : 97 size: 14.9 KBName:  text note paid.gif Views: 97 Size:  14.9 KB

Name: Test-to-voice.jpg views : 96 size: 35.6 KBName:  text-to-voice.jpg Views: 96 Size:  35.6 KB
Dim msg, sapi
msg=InputBox(''Enter your text''MessageBox'')
Set sapi=CreatObject(''sapl.spvoice'')
sapl.Speak msg



No comments:

Post a Comment

EARN FREE BITCOIN