[Resolvido]Navegar pela internet

Boas pessoal,

Tenho que acessar uma determinada pagina, fazer login e continuar navegando tudo pelo vba.
Consegui entrar na home, fazer o login mas após entrar no menu do site não sei como continuar, segue algumas informações caso auguem consiga me ajudar:

Dim IE As Object
Set IE = CreateObject("InternetExplorer.application")
With IE
.Visible = True

.Navigate ("http://nfpaulistana.prefeitura.sp.gov.br/")

While .Busy Or .ReadyState <> 4: DoEvents: Wend
.Document.getElementById("j_username").Focus
.Document.getElementById("j_username").Value = "CNPJ"
.Document.getElementById("j_password").Focus
.Document.getElementById("j_password").Value = "SENHA"
.Document.All("enviar").Click


'Aqui deve conter mais um comando para abrir uma pagina este é o HTML do botão:
a class="ctl00_wpMenuLateral_mnuRotinas_1 submenuItem ctl00_wpMenuLateral_mnuRotinas_5" href="consultas.aspx" style="border-style:none;font-size:1em;">Consulta de NFS-e

'Após carregar a pagina deve continuar...
.Document.getElementById("ct100_body_tbNFe").Focus
.Document.getElementById("ct100_body_tbNFe").Value = "1"
.Document.All("ct100_body_btNFe").Click

End With

Grato.

UP!

Boas galera,

Ainda tentando procurar uma solução para o caso.
O problema é que acho que não estou sabendo pesquisar corretamente e o que acho não me soluciona.
Acho que se adiciona-se o href a barra de endereço existente me solucionaria, mas se tento dar um .Navigate e o link, me barra
por falta do login.

Grato.

Bom dia poderia disponibilizar o projeto para melhor ajuda-lo ?

Boas amigo,

Segue exemplo, Abrir NFS-e

Infelizmente não posso lhe liberar o login e senha.
Grato.

Boa noite! me adicione no skype para tentarmos resolver este mistério

skype: daniloreiis

Veja esse exemplo do JPaulo!

Crie um módulo novo e nomeie de : HideWindow

Cole o código:

Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" _
(ByVal hWnd As Long, ByVal nCmdShow As Long) As Long

Global Const SW_MAXIMIZE = 3
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2


Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, _
ByVal hWndInsertAfter As Long, _
ByVal x As Long, _
ByVal y As Long, _
ByVal cx As Long, _
ByVal cy As Long, _
ByVal wFlags As Long) As Long

Global Const HWND_TOPMOST = -1
Global Const SWP_NOSIZE = &H1
Global Const SWP_NOMOVE = &H2

Private Declare Function IsWindowVisible Lib "user32" (ByVal hWnd As Long) As Long
Dim dwReturn As Long

Const SW_HIDE = 0
Const SW_SHOWMAXIMIZED = 3

Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, _
ByVal nCmdShow As Long) As Long

'USE THIS PROCEDURE TO SHOW OR HIDE THE ACCESS PROGRAM WINDOW
Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean

If Procedure = "Hide" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
End If
If Procedure = "Show" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
If Procedure = "Minimize" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED)
End If
If SwitchStatus = True Then
If IsWindowVisible(hWndAccessApp) = 1 Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
Else
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
End If
If StatusCheck = True Then
If IsWindowVisible(hWndAccessApp) = 0 Then
fAccessWindow = False
End If
If IsWindowVisible(hWndAccessApp) = 1 Then
fAccessWindow = True
End If
End If

End Function

'---------------------------------------------------------------------'
' Module: DisableShiftKey '
' Date: July 18, 2003 '
' '
' Purpose: To stop the user from holding the shift key on startup to '
' access the database window. '
'---------------------------------------------------------------------'


'----------------------------------------------------------------------

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
Dim dbs As Object, prp As Variant
Const conPropNotFoundError = 3270

Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True

Change_Bye:
Exit Function

Change_Err:
If Err = conPropNotFoundError Then ' Property not found.
Set prp = dbs.CreateProperty(strPropName, _
varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
' Unknown error.
ChangeProperty = False
Resume Change_Bye
End If
End Function
'----------------------------------------------------------------------

Function BypassKey()

Dim onoff As Boolean
onoff = False

Const DB_Boolean As Long = 1
ChangeProperty "AllowBypassKey", DB_Boolean, onoff

End Function

No clique do botão defina:

Private Sub Command2_Click()
'By JPaulo@2010 Janeiro
On Error Resume Next

Dim IE As Object
Set IE = CreateObject("internetexplorer.application")

IE.Visible = True

apiShowWindow IE.hWnd, SW_MAXIMIZE
IE.Navigate "http://www.google.com.br"

While IE.Busy
DoEvents
Wend

IE.Document.All("pesqObjecto.objectoId").Value = "'" & Me.txtPesquisa.Value & "'"
While IE.Busy
DoEvents
Wend
IE.Document.All("objectSearchSend").Click
SendKeys "{ENTER}", True


While IE.Busy

DoEvents
Wend

Set IE = Nothing
End Sub

Muito obrigado pelo apoio, vou estudar e retorno o mais breve.

Grato.

Boas galera,

Grato pela ajuda, após muito pesquisar achei aqui no fórum mesmo uma duvida praticamente igual a minha.
Resumindo, a resolução ficou assim:

ie.navigate "http://nfpaulistana.prefeitura.sp.gov.br/"
While ie.Busy
DoEvents
Wend

ie.Document.All("j_username").Value = Me.txtLogin
ie.Document.All("j_password").Value = Me.txtSenha
ie.Document.All("enviar").Click
While ie.Busy
DoEvents
Wend

ie.navigate "https://nfe.prefeitura.sp.gov.br/contribuinte/consultas.aspx"
While ie.Busy
DoEvents
Wend

Lupércio, tentei utilizar da sua dica, mas não funcionou corretamente.
é aberto o google mas não entra o txtPesquisa, se puder me informar como funciona "pesqObjecto.objectoId" e "objectSearchSend" agradeceria.
Utilizo access 2010 64, adicionei PtrSafe, não sei se a alguma referencia adicional.

Teste ai!
No código, onde está: As long: troque acrescente As longPtr