Estoy haciendo un traductor usando el traductor de google pero tengo problemas para sacar el texto traducido , en lugar de texto traducido solo me muestra parte del codigo fuente
Código
Public Class Form1 Private Sub Traductor_Button_Click(sender As Object, e As EventArgs) Handles Traductor_Button.Click Try Dim MIHTML As String = WebBrowser1.DocumentText Dim Traduccion As String = WebUtility.HtmlDecode(MIHTML) 'PARA EVITAR PROBLEMAS CON LOS ACUTE,TILDE, ETC. Traduccion = Traduccion.Remove(0, Traduccion.IndexOf("class" & """" & "hps") + 10) Traduccion = Traduccion.Substring(0, Traduccion.IndexOf("</span")) TextBox2.Text = Traduccion Catch ex As Exception MsgBox(ex.Message) End Try WebBrowser1.Navigate("https://translate.google.com/#auto/es" & TextBox1.Text) End Sub Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged End Sub Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click WebBrowser1.Document.GetElementById("source").SetAttribute("value", TextBox1.Text) End Sub Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged End Sub End Class
Tmbn tengo este problema, algunas veces funciona normal y otras me sale este error
Citar