VB.net使用谷歌翻译

Question

我试图 “测试” 一词翻译，
我的代码：

Imports Google.API.Translate 

Public Class Form1 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
     TextBox1.Text = "test" 
     Dim gtras As New TranslateClient("MY API KEY") 
     Label1.Text = gtras.Translate(TextBox1.Text, Language.English, Language.Hebrew, TranslateFormat.Text) 

    End Sub 
End Class 

的例外是：

Attempt by method 'Google_Translator.Form1.Button1_Click(System.Object, System.EventArgs)' to access method 'Google.API.Enumeration.op_Implicit(Google.API.Enumeration)' failed. 

Answer 1

此问题已得到修复在更高版本的API（0.3.1似乎工作）：

http://code.google.com/p/google-api-for-dotnet/issues/detail?id=43

Answer 2

此代码的工作非常好：

Imports Newtonsoft.Json 
Imports Newtonsoft.Json.Linq 
Imports System 
Imports System.Net 
Imports System.Text 
Imports System.Web 
Public Class Form1 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
    MsgBox(gtranslate(TextBox1.Text, "it", "en"))'From italian to english, of course you can change it 
End Sub 

Public Shared Function gtranslate(ByVal inputtext As String, ByVal fromlangid As String, ByVal tolangid As String) As String 
    inputtext = HttpUtility.HtmlAttributeEncode(inputtext) 
    Dim step1 As New WebClient 
    Dim step2 As String = step1.DownloadString("https://translate.googleapis.com/translate_a/single?client=gtx&sl=auto&tl=" & tolangid & "&hl=" & fromlangid & "&dt=t&dt=bd&dj=1&source=icon&q=" & inputtext) 
    Dim step3 As Newtonsoft.Json.Linq.JObject = JObject.Parse(step2) 
    Dim step4 As String = step3.SelectToken("sentences[0]").SelectToken("trans").ToString() 
    Return step4 
End Function 
End Class 

DLL库“Newtonsoft.JSON”可从their website，如果你得到一些错误，以“HttpUtility”，在添加添加引用“的System.Web”参考窗口 - > .net选项卡