[nkkin]

هذا هو الكود المستعمل

Sub translateit()

كود :

[b]
    Dim languagePair As String
                   Select Case langCombo.SelectedItem
            Case "French"
                languagePair = "en|fr"
                    End Select
        Dim input As String = transTxt.Text
        Dim url As String = [String].Format("http://www.google.com/translate_t?hl=en&ie=UTF8&text={0}&langpair={1}", input, languagePair)
        Dim webClient As New WebClient()
        webClient.Encoding = System.Text.Encoding.UTF8
        Dim result As String = webClient.DownloadString(url)
        result = result.Substring(result.IndexOf("<span title=""") + "<span title=""".Length)
        result = result.Substring(result.IndexOf(">") + 1)
        result = result.Substring(0, result.IndexOf("</span>"))
                    resultTxt.Text = WebUtility.HtmlDecode(result.Trim())
                   End Sub[/b]