Protected Function GetTranslation(ByVal key As String, ByVal source As String, ByVal target As String, ByVal Text As String) As String
Dim TranslatedString
As String =
""
Text =
"q=" + Text
Dim TranslateRequest
As New Uri(
String.Format(
"https://www.googleapis.com/language/translate/v2?key={0}&source={1}&target={2}&format=html", key, source, target))
Dim Req
As WebRequest =
WebRequest.Create(TranslateRequest)
Req.Method =
"POST"
Req.Headers.Add(
"X-https-Method-Override",
"GET")
Req.ContentType =
"application/x-www-form-urlencoded"
Using wriream
As Stream = Req.GetRequestStream()
Dim encoding
As New UTF8Encoding()
Dim bytes
As Byte() = encoding.GetBytes(Text)
wriream.Write(bytes, 0, bytes.Length)
End Using
Dim ReturnStr
As String
Using sr =
New StreamReader(Req.GetResponse.GetResponseStream)
ReturnStr = sr.ReadToEnd()
End Using
Dim Reader
As New JavaScriptSerializer
Dim TranslateJSON
As Dictionary(
Of String,
Object) = Reader.DeserializeObject(ReturnStr)
Dim TranslateData
As Dictionary(
Of String,
Object)
If TranslateJSON.ContainsKey(
"data")
Then
TranslateData = TranslateJSON(
"data")
If TranslateData.ContainsKey(
"translations")
Then
For Each pair
In TranslateData.Item(
"translations")(0)
TranslatedString = pair.Value.ToString()
Next
End If
End If
Return TranslatedString
End Function
