MsgBox(0, "Translate", Translate("2D profile strategy is used for cutting on waterjet, laser, and plasma cutters.", "en", "pt"))

Func Translate($text, $from, $to)
	$url = "https://translate.googleapis.com/translate_a/single?client=gtx"
	$url &= "&sl=" & $from & "&tl=" & $to & "&dt=t&q=" & $text

	$oHTTP = ObjCreate("Microsoft.XMLHTTP")
	ConsoleWrite("- " & $oHTTP & @CRLF)
	$oHTTP.Open("POST", $url, False)
	$oHTTP.Send()
	$oHTTP.Status()
	$sData = $oHTTP.ResponseText
	$sData = StringRegExpReplace($sData, '.*?\["(.*?)(?<!\\)"[^\[]*', "$1")

	Return $sData
EndFunc   ;==>Translate