vb2010 Cómo obtener resultados de traducción de Google

Por cierto, esto también se adoptó. Me tomó mucho tiempo escribirlo.

"Tenga en cuenta que antes de esto, primero debe hacer referencia al espacio de nombres system.Web (. es decir, al resolver Haga clic derecho en el administrador de soluciones-agregar componente de red de referencia)

¿Importa?espacio de nombres web (es decir, haga clic derecho en el administrador de soluciones-agregar componente de red de referencia)

Importar System.Web

Importar System.Net

Public.Class.Form1

Dim.l1.As.New.Label.With .{.Top .=?10,.Left.=?10,.Text.=?Idioma de origen: Idioma de destino: "}

Dim?l2?As?New?Etiqueta?Con?{. ¿Top?=? 10,? .Left?=?220,? .Text?=?"Idioma de destino:"}

Dim?txtSorce?As?New?TextBox?With?{.Top?= ?30, .Izquierda?=?0, .Multilínea?=?True, .ScrollBars?=?ScrollBars..Width?=?200, .Height?=?100}

Dim?txtDesc?As ?Nuevo?TextBox ?Con?{.Top?=?30, .Left?=?220, .Multiline?=?True, .ScrollBars?=?ScrollBars.Vertical, .Width?=?200, .Height?=? 100}

Dim?cmbTransMode?As?New?ComboBox?With?{.Top?=?150, .Left?=?DropDownStyle?=?ComboBoxStyle.DropDownList}

Dim ?WithEvents?btnTrans ?Como?Nuevo?Botón?Con?{.Top?=?150, .Left?=?150, .Text?=?Translation"}

Privado?Sub?Form1_Load(ByVal ?remitente?As ?System.Object,ByVal?e?As?System.EventArgs)?Handles?MyBase.Load

cmbTransMode.Items.Add("Inglés a chino")

cmbTransMode.Items .Add("Chino a Inglés")

cmbTransMode.SelectedIndex?=?0

Me.Controls.Add(txtSorce)

Yo .Controls.Add (txtDesc)

Me.Controls.Add (l1)

Me.Controls.Add (l2)

Me.Controls.Add ( btnTrans)

Me.Controls.Add(cmbTransMode.SelectedIndex? Controls.Add(cmbTransMode)

Fin?Sub

'Iniciar traducción

Privado?Sub?Translate()?Handles?btnTrans.Click

Dim?str?As?String?=?HttpUtility.UrlEncode(txtSorce.Text

.Trim)

Dim?url?As?/translate_a/t?"

Dim?enToch?As?String?=?" &sl=en&&tl=zh-CN" p>

Dim?chToen?As?String?=?" &sl=zh-CN&tl=en"

url?+=?" &client=t"

¿url? +=?" &text="?+?str

url?+=?" &hl=zh-CN"

If?cmbTransMode.SelectedIndex?=?0?Entonces

url?+=?enToch

Else

url?+=?enToch

Else

url ?+ =?chToen

End?If

url?+=?" &ie="?+?"UTF-8"

url?+= ?" &oe="?+?"UTF-8"

Debug.Print(url)

Dim?request?As?HttpWebRequest?=?HttpWebRequest.Create(url)

¿Atenuar?response?As?HttpWebResponse?=?request.GetResponse

¿Atenuar?s?As?IO.Stream?=?response.GetResponseStream

¿Atenuar? sr?As?New?IO.StreamReader(s)

Dim?rslt?As?String?=?sr.ReadToEnd

Dim?ReadToEnd

' Extraído a continuación La primera posición de comilla abierta de json

Dim?tmp()?As?String?=?rslt.Split(Chr(34))

txtDesc.Text?=? tmp (1)

¿Fin?Sub

¿Fin?