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
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Internet Controls - Clicar em imagem src
Re: Internet Controls - Clicar em imagem src
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"
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
Boa noite!
Alguém pode me ajudar no tópico acima?
At
Vladimir
Alguém pode me ajudar no tópico acima?
At
Vladimir