[原创代码]调用GOOGLE语音朗读进行程序交互

HYY514

GOOGLE的在线翻译中有个很强大的功能,就是能将翻译后的内容生成音频文件进行朗读,
某天突发奇想,我能不能在线调用他来为我们朗读自已想要的内容呢?
调试了一下,是可以成功的.朗读的语音有点象外国人说中文,呵呵...
觉得挺有趣的,发上来共享一下,写成了函数,如下:

代码:

'************************************************ '*函数功能:调用GOOGLE进行中文语言朗读 '*函数无返回要朗读的中文以字符串传入参数sWord '*by:hyy514_2011.09 '************************************************ Private Declare Function mciExecute Lib "winmm.dll" ( ByVal lpstrcommand As String ) As Long Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" ( ByVal pCaller As Long ,  ByVal szURL As String ,  ByVal szFileName As String ,  ByVal dwReserved As Long ,  ByVal lpfnCB As Long ) As Long Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" ( ByVal nBufferLength As Long ,  ByVal lpBuffer As String ) As Long Private mciID As Integer Function GoogleSay( ByVal sWord As String )     Dim objJs    As Object     Dim sFile    As String     Dim sTmpPath As String         sTmpPath = Space(255)     GetTempPath 255, sTmpPath     sTmpPath = Left(sTmpPath, InStr(sTmpPath, Chr(0)) - 1)     sFile = sTmpPath & mciID Mod 2 & ".mp3"     mciID = mciID + 1     Set objJs = CreateObject("MSScriptControl.ScriptControl")     objJs.Language = "JavaScript"     sWord = objJs.Eval("encodeURI('" & Replace(sWord, "'", "\'") & "');")     URLDownloadToFile 0, "http://translate.google.cn/translate_tts?ie=UTF-8&q=" & sWord & "&tl=zh-CN&prev=input", sFile, 0, 0     mciExecute "play " & sFile End Function

可以这样调用:

代码:

Sub t() GoogleSay "本程序来自EXCEL精英培训网：飞翔_HYY5_1_4" End Sub

示例文件:
googleSay.rar (8.31 KB, 下载次数: 134)

2011-9-23 19:21 上传

点击文件名下载附件

HYY514

打开音箱或戴上耳机,运行看看

mxg825

很好很强大..食头痰汤

mxg825

比EXCEL 自带的语音(朗读) 功能 生动多了!

mxg825

无网络里(关闭网络联接)......好像就只会读最后调用的两句...

HYY514

mxg825 发表于 2011-9-23 19:46
无网络里(关闭网络联接)......好像就只会读最后调用的两句...

程序是在线获得语言的,无联网当然不行了

mxg825

加判定 是否有网络联接。。。
如 无，返回 提示"当前网络不通或缓慢 无法进入语音功能
"

gdgzlyh

{:35:}{:25:}

mxg825

sTmpPath = Space(255)
    GetTempPath 255, sTmpPath
    sTmpPath = Left(sTmpPath, InStr(sTmpPath, Chr(0)) - 1)
      Set objJs = CreateObject("MSScriptControl.ScriptControl")
    objJs.Language = "JavaScript"
    sWord = objJs.Eval("encodeURI('" & Replace(sWord, "'", "\'") & "');")

飞翔兄：以上几句不太明白 请求注解一下！谢谢

wayy

谢谢分享。