Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Internet Controls - Clicar em imagem src

A Web está aí, não há como negar. Ela é onipresente em praticamente toda operação eletrônica realizada nos dias de hoje. Como não podia ser diferente, o Excel, ferramenta máxima para analistas e profissionais das mais diversas áreas do mercado precisa estar alinhado com esta necesssidade. E ele está! Neste forum, o debate é focado em expor dúvidas, sugestões, modelos de código e exemplos de uso do Excel na Integração com tecnologias Web.
Vladimir
Acabou de chegar
Acabou de chegar
Mensagens: 5
Registrado em: Seg Set 09, 2019 4:57 pm

Internet Controls - Clicar em imagem src

Mensagem por Vladimir »

Boa noite a todos!
Sou novo aqui no fórum e estou tentando desenvolver uma automação para emissão de nfse na Pref. Itu, mas me deparei com uma imagem na qual consigo montar o código.click para avançar na emissão. segue abaixo as informações.
Site http://itu.ginfes.com.br/
código <img src="imgs/0001.gif" class="imagem1" alt="Acesso Exclusivo Prestador" id="ext-gen327"> ==$0
Por favor, alguém poderia me ajudar, dando uma orientação de como clicar na imagem e seguir adiante.
Obs. a id ext-gen327 é gerada aleatoriamente pelo site.
Obrigado.
Vladimir


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Internet Controls - Clicar em imagem src

Mensagem por webmaster »

Selenium? IE? Tem o código de exemplo?


Vladimir
Acabou de chegar
Acabou de chegar
Mensagens: 5
Registrado em: Seg Set 09, 2019 4:57 pm

Re: Internet Controls - Clicar em imagem src

Mensagem por Vladimir »

Boa tarde!
estou fazendo com IE. Segue abaixo o código
Modulo 1
Dim oIE As InternetExplorer
Dim doc As MSHTML.HTMLDocument

Sub ConsultaNfe()
Set oIE = CreateObject("internetexplorer.application")
With oIE

.Visible = True
.Navigate sUrl

Call WaitingLoad(2)

With .Document
Set doc = oIE.Document
.getElementById(sImagem).Click

'Set oIE = Nothing

End Sub

Modulo 2
Public Function WaitingLoad(ByVal pSeconds As Integer) As Boolean
Dim Start As Double
Start = VBA.Timer
Do While Timer < Start + pSeconds: DoEvents: Loop
WaitingLoad = True
End Function

Modulo 3
Public Const sUrl As String = "http://itu.ginfes.com.br"

Public Const sImagem As String = "ext-gen142"


Vladimir
Acabou de chegar
Acabou de chegar
Mensagens: 5
Registrado em: Seg Set 09, 2019 4:57 pm

Re: Internet Controls - Clicar em imagem src

Mensagem por Vladimir »

Boa noite!
Alguém pode me ajudar no tópico acima?
At
Vladimir


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder