Fazer Login no Site do Projeto Presença/Bolsa Família MEC

[yendorxt]

Boa Noite Pessoal!

 

Gostaria da ajuda de vocês na adaptação de um código vba excel 2010 que acesse o seguinte o site do Sistema Presença que informa a Frequência do Bolsa Família/ MEC.

Com o seguinte código abaixo:

 

Sub lsLogin()

Dim IE        As Internet Explorer

Dim lNis     As Long

Dim lUltimaLinhaAtiva     As Long

 

lUltimaLinhaAtiva = Worksheets("Plan1").Cells(Worksheets("Plan1").Rows.Count

 

Set IE= New InternetExplorer

 

IE.Visible= True

 

For 1contador = 2 To UltimaLinhaAtiva

 

IE.Navigate "http://frequenciaescolarpbf.mec.gov.br/presenca/controller/login/efetuarLogin.php"

 

While IE.ReadyState <> READYSTATE_COMPLETE

 

sng = Timer

Do While sng + 5 > Timer

Loop

 

While IE.ReadyState <> READYSTATE_COMPLETE

DoEvents:

Wend

Document.all("formLogin".Click

Document.getElementById("strCpf").Focus

Document.getElementById("strCpf").Value = "47901210231"

Document.getElementById("strPassword").Focus

Document.getElementById("strPassword").Value = "senha"

Document.all("Entrar").Click

Document.all("MENU").Click

 

For Each i In IE.Document.body.getElementsByTagName("NIS do aluno")

If InStr(i.innertext,"NIS) > 0 Then

For Each 1 In i.getElementsByTagName("tr")

If InStr(1.innertext, 1Nis) Then

Range('B" & 1contador).Value = 1.getElementsByTagName("td")(1).innertext

End If

Next 1

End If

Next i

Next 1contador

MsgBox "Concluído!"

End Sub

 

Pelo Código fonte do site encontrei os ids respectivos, porém não consigo verificar se funciona pois não consigo que o código clique em ACESSAR SISTEMA para inserir os dados para logar, já tentei de inúmeras formas com:

Internet.Document.getElementsByName("id").Item.Click

Document.getElementsbyId("id").Click

Document.getElementsByTagName("id").Click

 

utilizando (Acessar Sistema, Acessar, #acesso, login, acesso-sistema, formLogin, login span3, efetuarLogin.php#acesso) mas não obtive êxito em nenhum deles.

 

Gostaria que me ajudassem ao menos nessa parte para fazer o clique em ACESSAR SISTEMA, para que eu possa verificar se o resto do código está funcional.

 

Desde já agradeço.

Bolsa Família.rar