'Use Google Free google API translate for translate
'Call Translate Sub to translate a word from sourcelang to destlang (see lang codes at Google)
Translate(wordtotranslate,sourcelangname,destlangname)
'Translate Sub
Sub Translate (jobnamekey As String,sourcelang As String,destlang As String)
Dim job As HttpJob
job.Initialize(jobnamekey,Me)
job.Tag = counttrans
'Use Google Free google API translate
job.PostString($"https://Translate.googleapis.com/translate_a/single?client=gtx&sl=${sourcelangname}&tl=${destlangname}&dt=t&q=${jobnamekey}"$,"")
job.GetRequest.SetHeader("Content-Type", "application/json")
job.GetRequest.SetHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.3; rv:36.0) Gecko/20100101 Firefox/36.0")
job.GetRequest.SetContentType("application/json")
job.GetRequest.SetContentEncoding("text/plain")
End Sub
'Gets the Translate query result from Google
Sub JobDone(Job As HttpJob)
If Job.Success Then
Dim translatedword as string=Job.GetString
Else
LblStatus.Text="Error Translating : Aborting Translate...."
End If
Job.release
End Sub