Jump to content
Sign in to follow this  
raphaeljr

_IEAttach Access Denied Error

Recommended Posts

raphaeljr

Hi all

I have a AutoIt script to manipulate a IE page and I got an Access Denied Error every time when I use IsObj() function (If (Not IsObj($oIE)) Then)

Follows part of my code

WinActivate("[CLASS:TForm_AgentToolbar]", "")

Local $aIE[1]
$aIE[0] = 0
Local $i = 1, $oIE
While 1
    $oIE = _IEAttach("[CLASS:TForm_AgentToolbar; TITLE:AgentToolbar]", "embedded", $i)

    If @error = 0 Then
        if (StringMid(_IEPropertyGet($oIE, "locationurl"),1,StringLen("https://XXXXX/XXXXX/")) = "https://XXXXX/XXXXX/") Then
            CW("Usuário se encontra na aba 'XXX' no ToolBar. Encerrando o Loop",1)
            ExitLoop
        EndIf
    ElseIf @error = $_IEStatus_NoMatch Then ;7 ($_IEStatus_NoMatch) = No Match
        CW("Erro ao manipular o objeto IE - @error: " & @error, 1)
        ExitLoop
    ElseIf @error <> 0 or @error = $_IEStatus_InvalidValue Then ;5 ($_IEStatus_InvalidValue) = Invalid Value / @error <> 0 - demais erros desconhecidos
        CW("Erro ao manipular o objeto IE - @error: " & @error, 1)
        ReDim $aIE[$i + 1]
        $aIE[$i] = $oIE
        $aIE[0] = $i
        $i += 1
        ContinueLoop
    EndIf

    ReDim $aIE[$i + 1]
    $aIE[$i] = $oIE
    $aIE[0] = $i
    $i += 1
WEnd

If (@error) Then
    CW("Erro ao manipular o objeto IE: "&@error,1) ;5 ($_IEStatus_InvalidValue) = Invalid Value / 7 ($_IEStatus_NoMatch) = No Match
    LogBoundaries("      Término da Execução!      ")
    MyErrFunc("Erro ao manipular o objeto IE")
    Exit
EndIf

If (Not IsObj($oIE)) Then
    CW("Objeto IE não é válido",1)
    LogBoundaries("      Término da Execução!      ")
    MyErrFunc("Objeto IE não é válido")
    Exit
Else
    CW("A página 'XXXXX' está aberta no Internet Explorer.",1)

    if (StringMid(_IEPropertyGet($oIE, "locationurl"),1,StringLen("https://XXXXX/XXXXX/")) <> "https://XXXXX/XXXXX/") Then
        MsgBox(4096, $versaoScript, "Favor selecionar a aba 'XXX' no ToolBar.")
        CW("Usuário não se encontra na aba 'XXX' no ToolBar. Encerrando o script.",1)
        LogBoundaries("      Término da Execução!      ")
        Exit
    EndIf
EndIf

erro_01.png erro_02.png

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×