vbs调用系统接口，可直接文字转语音

Create（“SAPI.SpVoice”）.speak 期望朗读的文字

Dim msg,msg1

msg = "baiLove is more than a word，it says so much.When I see these four letters,I almost feel your touch.This is only happened sinceIfell，in love with you.Why this word does this,I haven't got a clue."

CreateObject("SAPI.SpVoice").speak msg



msg1 ="爱不单是一个字，它还代表了许多意涵，当我看到这四个字母的时候,我几乎能感受到你内心的感动,但是这只是发生在，我爱上你之后，为何这个字有如此的魔力，"

CreateObject("SAPI.SpVoice").speak msg1

（注意：文字部分是以字符串（String) 的形式赋值给 msg 变量的，所以在这里必须保证双引号是在同一行的！）