vbsでしゃべる

google翻訳を使ってたら、発音を喋る機能が気になったので。
googleさんのお力を借りて、文章をmp3に変換してしゃべっちゃうvbscriptです。拡張子を.vbsにして保存・実行。

set she = createobject("wscript.shell")
set fso = createobject("scripting.filesystemobject")
Set js = CreateObject("ScriptControl")
js.Language = "JScript"

saveFilePath = fso.GetSpecialFolder(2) & "\" & fso.GetTempName() & ".mp3"

word = InputBox("しゃべることば")
word = js.CodeObject.encodeURI(word)
url = "http://translate.google.com/translate_tts?tl=ja&q=" & word

Set http = CreateObject("MSXML2.ServerXMLHTTP.6.0")
HTTP.Open "GET", url, False
HTTP.setRequestHeader "User-Agent","Mozilla/5.0"
HTTP.Send

'結果を取得
res = HTTP.responseBody

'取得した内容をファイルに保存する
set ADO = CreateObject("ADODB.Stream")

ADO.Type = 1 'バイナリ
ADO.Open()
ADO.Write res

ADO.SaveToFile saveFilePath, 2 	'2:上書き保存
ADO.Close

she.run saveFilePath