- 22 Jun 2019 às 14:13
#44988
Galera, boa tarde!
Sou novo no Fórum e também estou iniciando estudos com elementos para automatizar ações em páginas da Web. Criei a fórmula abaixo para efetuar login em uma página. Consigo acessar a página, incluir as informações de login porém não estou conseguindo acertar o comando para ele efetuar o click no botão. Inspecionei a página e encontrei as seguintes informações sobre o botão:
<button type="submit" class="btn btn-login">
entrar
</button>
Essa é a meu código, podem me ajudar?
Sub teste()
Dim ie As Object
Dim email As String
Dim senha As String
Dim teste As String
email = "bruno@ravi.adm.br"
senha = "bruno123"
Set ie = CreateObject("InternetExplorer.Application")
With ie
.Visible = True
.Navigate "https://www.userede.com.br/login"
Do While ie.Busy
Loop
Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 3)
ie.document.getelementbyid("email").Value = email
ie.document.getelementbyid("password").Value = senha
'Essa é a parte do código que apresenta erro.
ie.document.getelementsbyClassname("btn btn-login").Click
End With
End Sub
Obs: Além disso, se puderem me indicar algum material sobre os comandos do GetElement para que eu possa estudar.
Sou novo no Fórum e também estou iniciando estudos com elementos para automatizar ações em páginas da Web. Criei a fórmula abaixo para efetuar login em uma página. Consigo acessar a página, incluir as informações de login porém não estou conseguindo acertar o comando para ele efetuar o click no botão. Inspecionei a página e encontrei as seguintes informações sobre o botão:
<button type="submit" class="btn btn-login">
entrar
</button>
Essa é a meu código, podem me ajudar?
Sub teste()
Dim ie As Object
Dim email As String
Dim senha As String
Dim teste As String
email = "bruno@ravi.adm.br"
senha = "bruno123"
Set ie = CreateObject("InternetExplorer.Application")
With ie
.Visible = True
.Navigate "https://www.userede.com.br/login"
Do While ie.Busy
Loop
Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 3)
ie.document.getelementbyid("email").Value = email
ie.document.getelementbyid("password").Value = senha
'Essa é a parte do código que apresenta erro.
ie.document.getelementsbyClassname("btn btn-login").Click
End With
End Sub
Obs: Além disso, se puderem me indicar algum material sobre os comandos do GetElement para que eu possa estudar.
