¿Cómo obtener resultados del Traductor de Google en vb2010?
Tenga en cuenta que primero debe hacer referencia al espacio de nombres system.web (es decir, hacer clic con el botón derecho en el administrador de soluciones-agregar componente de red de referencia Haga clic para agregar).
¿Importado? sistema. ¿Importación neta? System.Net
¿Público? ¿clase? Formulario 1
¿Oscuro? l1? ¿Como? ¿Nuevo? ¿Etiqueta? ¿Qué usar? {.¿Arriba? =?10,?. ¿izquierda? =?10,?. ¿Palabra? =?"Idioma de origen:" }
¿Oscuro? l2? ¿Como? ¿Nuevo? ¿Etiqueta? ¿Qué usar? {.¿Arriba? =?10,?. ¿izquierda? =?220,?. ¿Palabra? =?"Idioma de destino:" }
¿Atenuado? txt¿Sorce? ¿Como? ¿Nuevo? ¿Cuadro de texto? ¿Qué usar? {.¿Arriba? =?30,?. ¿izquierda? =?0,?. ¿Varias líneas? =?¿En serio? . ¿Barra de desplazamiento? =?Barra de desplazamiento. vertical,? . ¿ancho? =?200,?. ¿altura? =?100}
¿Atenuado? txtDesc? ¿Como? ¿Nuevo? ¿Cuadro de texto? ¿Qué usar? {.¿Arriba? =?30,?. ¿izquierda? =?220,?. ¿Varias líneas? =?¿En serio? . ¿Barra de desplazamiento? =?Barra de desplazamiento. vertical,? . ¿ancho? =?200,?. ¿altura? =?100}
¿Atenuado? cmbTransMode? ¿Como? ¿Nuevo? ¿Cuadro combinado? ¿Qué usar? {.¿Arriba? =?150,?. ¿izquierda? =?20,?. ¿Estilo desplegable? =?ComboBoxStyle. DropDownList}
¿Atenuado? ¿ConEventos? btnTrans? ¿Como? ¿Nuevo? ¿Botón? ¿Qué usar? {.¿Arriba? =?150,?. ¿izquierda? =?150,?. ¿Palabra? =?"Traducción"}
¿Privado? ¿Sub? Form1_Load(ByVal?Sender?As?System.Object,?ByVal?e?As?System.EventArgs)? ¿manejar? mi base. Cargar
CmbTransMode. Items.Add("Traducción inglés-chino")
CmbTransMode. Items.Add("Traducción chino-inglés")
cmbTransMode. ¿Índice seleccionado? =?0
Yo. controles . Agregar(fuente de texto)
i. Controles.Add(txtDesc)
i. Control.Add(l1)
i. control.add(l2)
i. control.add(btnTrans)
i. Controls.Add(cmbTransMode)
¿Fin? Submarino
Iniciar traducción
¿Privado? ¿Sub? traducir()? ¿manejar? btnTrans. Haga clic en
¿Atenuar? cadena? ¿Como? ¿Cadena? =?propiedad. UrlEncode(fuente de texto. texto. recorte)
¿Atenuado? URL? ¿Como? ¿Cadena? =?"/translate_a/t?"
¿Oscuro? ¿Ntochi? ¿Como? ¿Cadena? =?“& ampsl = es & amp& amptl=zh-CN "
¿Dim? ¿ChToen? ¿Como? ¿Cadena? =?"& ampsl = zh-CN & tl=es "
¿Dirección web? +=?"& ampclient=t "
¿Dirección web? +=?"&text= "? +?Reactor térmico submarino (abreviatura de reactor térmico submarino)
Dirección del sitio web? +=?“&hl=zh-CN "
¿Y si? cmbTransMode.
¿Índice seleccionado? =?0?Entonces
¿URL? +=?Entoch
Otro
¿Dirección web? +=?Hiton
¿El final? Si
¿URL? +=?"&ie= "? +?"UTF nº 8"
¿URL? +=?"&oe= "? +?"UTF No. 8"
Depurar. Imprimir(url)
¿Oscuro? ¿preguntar? ¿Como? Solicitud HttpWeb? =?HttpWebRequest. crear(url)
¿Atenuado? ¿respuesta? ¿Como? ¿Respuesta HttpWeb? =?Solicitud. GetResponse
¿Atenuado? ¿s? ¿Como? OÍ. ¿arroyo? =?Respuesta. GetResponseStream
¿Atenuado? señor? ¿Como? ¿Nuevo? OÍ. StreamReader
¿Atenuado? primero? ¿Como? ¿Cadena? =?Fin de la lectura avanzada
Extraiga la primera posición de comilla abierta del json a continuación.
¿Oscuro? tmp()? ¿Como? ¿Cadena? =?rslt. Split(Chr(34))
txtDesc. ¿Palabra? =?tmp(1)
¿Fin? Submarino
¿Fin? Clase