Página 1 de 1

Internet Controls - Clicar em imagem src

Enviado: Dom Set 22, 2019 10:30 pm
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

Re: Internet Controls - Clicar em imagem src

Enviado: Seg Set 23, 2019 11:37 am
por webmaster
Selenium? IE? Tem o código de exemplo?

Re: Internet Controls - Clicar em imagem src

Enviado: Seg Set 23, 2019 2:49 pm
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"

Re: Internet Controls - Clicar em imagem src

Enviado: Ter Set 24, 2019 8:44 pm
por Vladimir
Boa noite!
Alguém pode me ajudar no tópico acima?
At
Vladimir