условия наличия WEB элемента

#include <IE.au3>
#include <Array.au3>
#include <String.au3>
#include <file.au3>
#include <date.au3>

$url = 'yarp-online.ru' ;сайт

Local $oIE = _IECreate($url,1,1) ;

;тут ручная авторизация

$clip1 = ClipGet()
While 1
  $clip2 = ClipGet()
  If @error = 0 And $clip1 <> $clip2 Then
   $clip1 = $clip2
   OnClipCopy($clip2)
EndIf
  Sleep(10)
WEnd
Func OnClipCopy($sClipStr)

$JP = ClipGet()  ; оригинал текста

Local $oCom = _IEGetObjById($oIE, "src")

_IEPropertySet($oCom, "innertext", $JP)
$oForm = _IEFormGetCollection($oIE, 0)

$oInputs=_IETagNameGetCollection($oIE, 'input')
If Not @error Then
    For $oInput In $oInputs
        $sPropInp=_IEPropertyGet($oInput, 'outerhtml')
        If Not @error Then
            If StringInStr($sPropInp, 'Перевести') And StringInStr($sPropInp, 'submit') Then ; текст кнопки
                _IEAction($oInput, 'click') ; нажать кнопку
                ExitLoop
            EndIf
        EndIf
    Next
 EndIf
_IELoadWait($oIE)


$oDiv=_IEGetObjById($oIE, "result") ; перевод текста

$text = $oDiv.innertext
$result = StringRegExpReplace ($text, '' ,'') ; для заменны текстов(в будущем)
MsgBox(0, "Text", ($result ))
EndFunc

While 1
$oDiv=_IEGetObjById($oIE, "result") ; перевод текста
If IsObj($oDiv) Then ExitLoop
Sleep(1000)
WEnd

For $k = 1 To 20
$oDiv=_IEGetObjById($oIE, "result") ; перевод текста
If IsObj($oDiv) Then ExitLoop
Sleep(1000)
Next
If Not IsObj($oDiv) Then Exit MsgBox(16, "error", "error")

$oDiv=_IEGetObjById($oIE, "result") ; перевод текста

#include <IE.au3>
#include <Array.au3>
#include <String.au3>
#include <file.au3>
#include <date.au3>
#include <Misc.au3>

$url = 'yarp-online.ru' ;сайт

Local $oIE = _IECreate($url,1,1) ;

;тут ручная авторизация

$clip1 = ClipGet()
While 1
  $clip2 = ClipGet()
  If @error = 0 And $clip1 <> $clip2 Then
   $clip1 = $clip2
   OnClipCopy($clip2)
EndIf
  Sleep(10)
WEnd
Func OnClipCopy($sClipStr)

$JP = ClipGet()  ; оригинал текста

Local $oCom = _IEGetObjById($oIE, "src")

_IEPropertySet($oCom, "innertext", $JP)
$oForm = _IEFormGetCollection($oIE, 0)

$oInputs=_IETagNameGetCollection($oIE, 'input')
If Not @error Then
    For $oInput In $oInputs
        $sPropInp=_IEPropertyGet($oInput, 'outerhtml')
        If Not @error Then
            If StringInStr($sPropInp, 'Перевести') And StringInStr($sPropInp, 'submit') Then ; текст кнопки
                _IEAction($oInput, 'click') ; нажать кнопку
                ExitLoop
            EndIf
        EndIf
    Next
 EndIf
_IELoadWait($oIE)

If @error Then
    MsgBox(16, 'Error', '_IECreate')
    Exit
EndIf
$fText = _Check_Text($oIE, 'Разбор текста')
If @error Then
    MsgBox(16, 'Error', '_Check_Text')
Else
    If $fText Then
        $oDiv=_IEGetObjById($oIE, "result") ; перевод текста
		$text = $oDiv.innertext
$result = StringRegExpReplace ($text, '' ,'') ; для заменны текстов(в будущем)
MsgBox(0, "Text", ($result ))

    Else

    EndIf
EndIf

EndFunc

Func _Check_Text($o_Obj, $s_Text)
    Local $s_BodyText
    If Not IsObj($o_Obj) Then Return SetError(1)
    If Not $s_Text Then Return SetError(1)
    $s_BodyText = _IEBodyReadText($o_Obj)
    If @error Then Return SetError(1)
    Return SetError(0, 0, StringInStr($s_BodyText, $s_Text) <> 0)
EndFunc   ;==>_Check_Text

_IECreate