Mark 百度翻译API
http://developer.baidu.com/wiki/index.php?title=%E5%B8%AE%E5%8A%A9%E6%96%87%E6%A1%A3%E9%A6%96%E9%A1%B5/%E7%99%BE%E5%BA%A6%E7%BF%BB%E8%AF%91/%E7%BF%BB%E8%AF%91API
Dim text As String = "Use pixels to express measurements for padding and margins."
Dim client_id As String = "hAaa2NLELKdAIfMhMjnuEgi1"
Dim from As String = "auto"
Dim [To] As String = "auto"
Dim ScriptControl As Object, data As Object, JscriptCode As String
JscriptCode = "function toUrl() {return encodeURI('" & text & "')}"
ScriptControl = CreateObject("MSScriptControl.ScriptControl")
With ScriptControl
.Language = "Javascript"
.Timeout = -1
.AddCode(JscriptCode)
text = .Run("toUrl")
End With
Dim url As String= "http://openapi.baidu.com/public/2.0/bmt/translate?client_id=" & client_id & "&q=" & text & "&from=" & from & "&to=" & [To]
Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)
Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse
Dim stm As System.IO.Stream = rsps.GetResponseStream()
Dim reader As New System.IO.StreamReader(stm)
Dim str As String = reader.ReadToEnd
rsps.Close
stm.Close
reader.close
JscriptCode = "function toObject(json) {eval(""var o=""+json);return o;}"
ScriptControl = CreateObject("MSScriptControl.ScriptControl")
With ScriptControl
.Language = "Javascript"
.Timeout = -1
.AddCode(JscriptCode)
data = .Run("toObject", str)
End With
output.show(str)
For Each o As object In data.trans_result
output.show(o.src)
output.show(o.dst)
Next
加好友 
发短信
Post By：2015/9/10 17:15:00 [只看该作者]
