to tendando mudar o exemplo que acessa o forum pelo acess mas nao to conseguindo que ele longa sozinho
a parte do site ta no arquivo txt
to usando esse codigo
Dim ie As Object
Set ie = CreateObject("internetexplorer.application")
ie.Visible = True
apiShowWindow ie.hWnd, SW_MAXIMIZE
ie.navigate "https://www.govdigital.com.br/index.action"
While ie.Busy
DoEvents
Wend
ie.Document.all("iss_username").Value = ""
ie.Document.all("iss_password").Value = ""
ie.Document.Forms("Acessar").submit
SendKeys "{ENTER}", True
While ie.Busy
DoEvents
Wend
Set ie = Nothing
a parte do site ta no arquivo txt
to usando esse codigo
Dim ie As Object
Set ie = CreateObject("internetexplorer.application")
ie.Visible = True
apiShowWindow ie.hWnd, SW_MAXIMIZE
ie.navigate "https://www.govdigital.com.br/index.action"
While ie.Busy
DoEvents
Wend
ie.Document.all("iss_username").Value = ""
ie.Document.all("iss_password").Value = ""
ie.Document.Forms("Acessar").submit
SendKeys "{ENTER}", True
While ie.Busy
DoEvents
Wend
Set ie = Nothing
- Anexos
- login do site.txt
- Você não tem permissão para fazer download dos arquivos anexados.
- (1 Kb) Baixado 19 vez(es)