论文部分内容阅读
如果你偶尔碰到一个英文句子不会读，怎么办？其实Windows XP中自带免费的英语“外教”，不妨请他示范发音。下面就是请出这个“外教”的简单方法。
第一步：启动记事本程序，输入以下代码：
Dim msg, sapi
msg=InputBox("输入文字","开口讲话")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
第二步：将以上内容存为后缀名为VBS的脚本文件，如存为test.vbs（扩展名必须是vbs）。双击运行此VBS脚本，将弹出一个对话框，在其中输入相应的英文句子（见图），单击“确定”或按回车键，便会听到纯正的美音发音了。
代码分解：上面的代码，第1行定义了msg和sapi两个变量，第2行则用变量msg来保存对话框中输入的文字。第3行Set命令，创建了Windows XP内置的语音支持对象SAPI，第4行则最为关键，调用SAPI的Speak方法来发音，它后面的msg变量的内容即取自你在对话框中的输入。其实也可以直接将msg变成要发音的英语句子，不过一定要用双引号括起来。
注意：SAPI不支持中文发音，不过我们可以用英文模拟出中文的文字读音，比如“你好”，可以转换成“Lee hall”，就可以让老外读出中文了。
第一步：启动记事本程序，输入以下代码：
Dim msg, sapi
msg=InputBox("输入文字","开口讲话")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
第二步：将以上内容存为后缀名为VBS的脚本文件，如存为test.vbs（扩展名必须是vbs）。双击运行此VBS脚本，将弹出一个对话框，在其中输入相应的英文句子（见图），单击“确定”或按回车键，便会听到纯正的美音发音了。
代码分解：上面的代码，第1行定义了msg和sapi两个变量，第2行则用变量msg来保存对话框中输入的文字。第3行Set命令，创建了Windows XP内置的语音支持对象SAPI，第4行则最为关键，调用SAPI的Speak方法来发音，它后面的msg变量的内容即取自你在对话框中的输入。其实也可以直接将msg变成要发音的英语句子，不过一定要用双引号括起来。
注意：SAPI不支持中文发音，不过我们可以用英文模拟出中文的文字读音，比如“你好”，可以转换成“Lee hall”，就可以让老外读出中文了。