Tomás Vásquez Fórum

Enviado: **Qua Jan 22, 2020 1:14 pm**

Olá, estou iniciando um projeto de interação com a Web. Meu objetivo final é extrair um relatório de um sistema Intranet da minha empresa. Porém não estou conseguindo fazer o Logon. Em algumas tentativas em uma outra oportunidade eu consegui preencher os dados, mas desta vez já gastei algumas horas tentando e não obtive sucesso.. Como o site só é acessível através do Domínio em questão, irei informar o código-fonte nas imagens em anexo.

Código: Selecionar todos

Const User = "NomeDoUsuário"


Sub LoginAtlas()
        


    Dim Obrowser As InternetExplorer
    Set Obrowser = New InternetExplorer
    With Obrowser
        .Silent = True
        .Visible = True
        .Navigate "atlas/nethome/"
        
    End With
    Do Until Obrowser.ReadyState = READYSTATE_COMPLETE
    Loop

    Obrowser.Document.all.Item("usuario").InnerText = "NomeDoUsuário"
 
'	Estas foram tentativas, sem sucesso também.
'    IE.Document.all.Frames(, 0).Item("usuario").innerText = "NomeDoUsuário"
'    IE.Document.Frames(, 0).all("usuario").innerText = "NomeDoUsuário"
'    IE.Document.all("usuario").innerText = "NomeDoUsuário"

Recebi 2 Tipos de erro:
Com o código acima:
Erro em tempo de execução '91': Váriavel do Bloco with não foi definida;

Substituindo a linha por esta tentativa:

Código: Selecionar todos

    Obrowser.Document.Frames(, 0).all("usuario").InnerText = "NomeDoUsuário"

Erro em tempo de execução '-2147467262 (80004002)': Não há suporte para esta interface.

Código Fonte abaixo:

Imagem

Enviado: **Sáb Fev 01, 2020 10:22 pm**

tenta assim:

Obrowser.Document.all("usuario").innerText = "NomeDoUsuário"

Tomás Vásquez Fórum

Preenchimento de Campo Login / Senha não funciona.

Preenchimento de Campo Login / Senha não funciona.

Re: Preenchimento de Campo Login / Senha não funciona.