How To Get The Computer To Talk To You (Non-Text Version)
Open Notepad and type this in:
strText = inputbox("What should Sam say?","Sam") Set objVoice = CreateObject ("SAPI.SpVoice") ObjVoice.speak strText
save it as whatever.vbs.
strText = inputbox("What should Sam say?","Sam") Set objVoice = CreateObject ("SAPI.SpVoice") ObjVoice.speak strText
save it as whatever.vbs.
Comments
Post a Comment