innerText, $AttributeValue ) > 0 Then $GetObj = $aTag ExitLoop EndIf ElseIf StringLower ( $Attribute ) = 'class' Or StringLower ( $Attribute ) = 'classname' Then If StringInStr ( $aTag. quit Return $TranslateFromGGL EndFunc Func GetObj ( $Tag, $Attribute, $AttributeValue, $oIE = $oIE ) $aTags = _IETagNameGetCollection ( $oIE, $Tag ) For $aTag In $aTags If StringLower ( $Attribute ) = 'innertext' Then If StringInStr ( $aTag. innerText If Then $TranslateFromGGL = 'It was not able to trasnlate your request!' Else $TranslateFromGGL = $html EndIf $oIE. quit $TranslateFromGGL = 'It was not able to translate your request' Exit EndIf Local $html = $oTranslated. Expand collapse popup #include $translateText = clipget ( ) $textResault = TranslateFromGGL ( $translateText, 'bg' ) ConsoleWrite ( $textResault ) Func TranslateFromGGL ( $sTextToTranslate, $ToLanguageCode ) $URL = '' & $ToLanguageCode & '&text=' & $sTextToTranslate Global $oIE = _IECreate ( $URL, 0, 0, 1 ) $oTranslated = GetObj ( 'span', 'class', 'tlid-translation translation', $oIE ) If Then $oIE.
