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.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |