自动朗读VBS脚本

Dim msg, sapi
msg=InputBox("Enter your text","Talk it")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg

你可能感兴趣的:(自动朗读VBS脚本)