Discussion :

[wallace1]

Allez en faisant une petite recherche sur le net voilà ce que j'ai trouvé (car les Webbrowser j'accroche vraiment pas ..).... :

Ne pas oublié d'ajouter la référence à la librairie System.Web.dll dans le projet et ensuite d'importer les espaces de noms suivants :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Imports System.Web
Imports System.Net

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
        Dim inputString$ = "Good Morning"
        Dim outputString$ = String.Empty
        Dim inputLang$ = "en"
        Dim outputLang$ = "fr"
 
        Dim url$ = String.Format("http://www.google.com/translate_t?hl=en&ie=UTF8&text={0}&langpair={1}", inputString, inputLang & "|" & outputLang)
        Using wc As New WebClient
            With wc
                .Encoding = System.Text.Encoding.UTF8
                outputString = .DownloadString(url)
                outputString = outputString.Substring(outputString.IndexOf("<span title=""") + "<span title=""".Length)
                outputString = outputString.Substring(outputString.IndexOf(">") + 1)
                outputString = outputString.Substring(0, outputString.IndexOf("</span>"))
                outputString = HttpUtility.HtmlDecode(outputString.Trim())
            End With
        End Using
        MessageBox.Show(outputString)

Source

A+

[haxball47]

Ce n'est pas moi qui ai mis le doigt dessus mais ACIVE_CS

Exact, désolé un coup de fatigue

Wallace, un énorme merci à toi, j'ai du changer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

outputString = HttpUtility.HtmlDecode(outputString.Trim())

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

outputString = WebUtility.HtmlDecode(outputString.Trim())

mais ca fonctionne très bien, moi qui commencer à déprimer ^^

Merci encore à tous ceux qui on participer, et grâce à qui j'ai pu mettre de coté quelques snippets intéressants qui vont surement me servir pour le web-développement .