[求助]百度AI通用翻译 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

全局代码

Public Function EncryptString(ByVal str As String) As String

Dim md5 = System.Security.Cryptography.MD5.Create()

Dim byteOld As Byte() = Encoding.UTF8.GetBytes(str)

Dim byteNew As Byte() = md5.ComputeHash(byteOld)

Dim sb As New StringBuilder()

For Each b As Byte In byteNew

sb.Append(b.ToString("x2"))

Return sb.ToString()

End Function

调用

Dim q As String = "apple"

Dim from As String = "en"

Dim [To] As String = "zh"

Dim appId As String = "2015063000000001"

Dim rd As Random = New Random()

Dim salt As String = Rand.Next(100000).ToString()

Dim secretKey As String = "12345678"

Dim sign As String = EncryptString(appId & q & salt & secretKey)

Dim url As String = "http://api.fanyi.baidu.com/api/trans/vip/translate"

Dim hc As New HttpClient(url )

hc.ContentType = "application/x-www-form-urlencoded"

hc.FormData.Add("q",UrlEncode(q))

hc.FormData.Add("from",from)

hc.FormData.Add("to",[To])

hc.FormData.Add("appid",appid)

hc.FormData.Add("salt",salt)

hc.FormData.Add("sign",sign)

hc.Timeout = 6000

Dim ret As String = hc.GetData

msgbox(ret)

主题：[求助]百度AI通用翻译