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選項卡