Yes !
Here the script with a longer text :
#include "Json.au3" ; (by @AspirinJunkie)
Global $sRead1 = 'This text will be translated into another language. ' & _
'The Moderation team will do their best to act in fair and reasonable manner. Sanctions will ' & _
'only be applied as a last resort and any action taken will be explained in the relevant thread. ' & _
'If you feel that you have been unfairly moderated then contact the Moderator concerned - ' & _
'using a PM or the "Report" button is preferable to opening a new thread (although new members ' & _
'may have to do this). But do be aware that the Moderation team has the final word - the rules ' & _
'are set out by the site owner and you are only welcome here if you respect his wishes.'
ConsoleWrite("+ >> ORIGINAL: " & $sRead1 & @CRLF)
ConsoleWrite("+ ------------------------------------------------------------------------------ " & @CRLF)
ConsoleWrite("> >> EN->DE : " & _GoogleAPITranslate($sRead1, "en", "de") & @CRLF)
ConsoleWrite("> >> EN->FR : " & _GoogleAPITranslate($sRead1, "en", "fr") & @CRLF)
ConsoleWrite("> >> EN->ES : " & _GoogleAPITranslate($sRead1, "en", "es") & @CRLF)
; ------------ Function : ---------------
Func _GoogleAPITranslate($sMytext, $sFrom, $sTo)
Local $sUrl, $oHTTP, $sResponse, $JSONData, $sOutput = "", $aData
$sUrl = "https://translate.googleapis.com/translate_a/single?client=gtx&sl=" & $sFrom & "&tl=" & $sTo & "&dt=t&q=" & $sMytext
$oHTTP = ObjCreate("Microsoft.XMLHTTP")
$oHTTP.Open("POST", $sUrl, False)
$oHTTP.Send()
$sResponse = $oHTTP.ResponseText
$JSONData = _JSON_Parse($sResponse)
If VarGetType($JSONData) = 'Array' Then
$aData = $JSONData[0]
If VarGetType($aData) = 'Array' Then
For $i = 0 To UBound($aData) -1 Step 1
$sOutput &= ($aData[$i])[0] ;*** & @CRLF
Next
EndIf
EndIf
Return $sOutput
EndFunc ;==>_GoogleAPITranslate
Result :