MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Apertar um botão Site

    Compartilhe
    avatar
    Curty123
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]Apertar um botão Site

    Mensagem  Curty123 em 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)
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Apertar um botão Site

    Mensagem  IvanJr. em 8/1/2019, 21:51



    .................................................................................
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Sempre tente entender o código, não somente copie e cole.
    avatar
    Curty123
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: [Resolvido]Apertar um botão Site

    Mensagem  Curty123 em 9/1/2019, 10:19

    Link está indisponível, porém conseguir resolver, obrigado.
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Apertar um botão Site

    Mensagem  IvanJr. em 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


    .................................................................................
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Sempre tente entender o código, não somente copie e cole.
    avatar
    Curty123
    Novato
    Novato

    Respeito às Regras 100%

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

    Codigo certo

    Mensagem  Curty123 em 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.
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Apertar um botão Site

    Mensagem  IvanJr. em 9/1/2019, 16:59

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


    .................................................................................
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Sempre tente entender o código, não somente copie e cole.

      Data/hora atual: 23/3/2019, 11:22