MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Apertar um botão Site

    avatar
    Curty123
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 25
    Registrado : 02/01/2019

    [Resolvido]Apertar um botão Site Empty [Resolvido]Apertar um botão Site

    Mensagem  Curty123 8/1/2019, 20:52

    Prezados, boa noite!

        Estou acessando um site através do VBA e efetuando login, consegui realizar a parte de entrar no site e digitar login e senha, porém tem um botão "login" para clicar, do qual não consegui achar o código certo, tentei vários.

    Codigo:
    Código:
    Sub Comando2_Click()
    Dim Nomeusuario As String
    Dim Senhausuario As String
    Dim Ambienteusuario As String
    Dim Dc_URL As String
    Dim objIE As New InternetExplorer ' Referencie "Microsoft internet controla"


    'Abre o IE
    objIE.Visible = True

    Nomeusuario = "Usuário"
    Senhausuario = "Senha"
    Dc_URL = "https:"

    objIE.Navigate2 Dc_URL

    Do Until objIE.ReadyState = READYSTATE_COMPLETE
       DoEvents
    Loop

    objIE.Document.all("chave").innerText = Nomeusuario
    objIE.Document.all("password").innerText = Senhausuario
    objIE.Document.all.Item("ambiente").selectedIndex = "2"

    Set objIE = Nothing

    End Sub


    Última edição por Curty123 em 9/1/2019, 19:32, editado 1 vez(es)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2892
    Registrado : 22/11/2016

    [Resolvido]Apertar um botão Site Empty Re: [Resolvido]Apertar um botão Site

    Mensagem  DamascenoJr. 8/1/2019, 21:51



    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    Curty123
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 25
    Registrado : 02/01/2019

    [Resolvido]Apertar um botão Site Empty Re: [Resolvido]Apertar um botão Site

    Mensagem  Curty123 9/1/2019, 10:19

    Link está indisponível, porém conseguir resolver, obrigado.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2892
    Registrado : 22/11/2016

    [Resolvido]Apertar um botão Site Empty Re: [Resolvido]Apertar um botão Site

    Mensagem  DamascenoJr. 9/1/2019, 10:47

    Tem como mostrar como foi feito? Assim os próximos usuários que precisarem saberão também como resolver


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    Curty123
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 25
    Registrado : 02/01/2019

    [Resolvido]Apertar um botão Site Empty Codigo certo

    Mensagem  Curty123 9/1/2019, 16:37

    Verdade Ivan.


    Adicionei o código =

    objIE.Document.Forms.Item("form-login").submit


    Peguei esse form-login nos códigos fonte da página.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2892
    Registrado : 22/11/2016

    [Resolvido]Apertar um botão Site Empty Re: [Resolvido]Apertar um botão Site

    Mensagem  DamascenoJr. 9/1/2019, 16:59

    Obrigado pelo retorno. Faltou só resolvido do tópico. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 25/7/2021, 04:18