MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Navegar pela internet

    Compartilhe

    biligo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 181
    Registrado : 10/04/2014

    [Resolvido]Navegar pela internet

    Mensagem  biligo em Seg 30 Nov 2015, 21:25

    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.

    biligo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 181
    Registrado : 10/04/2014

    Re: [Resolvido]Navegar pela internet

    Mensagem  biligo em Qua 02 Dez 2015, 12:09

    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.

    daniloreiis
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 315
    Registrado : 14/02/2011

    Navegar pela internet

    Mensagem  daniloreiis em Qua 02 Dez 2015, 12:28

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


    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------
    [Você precisa estar registrado e conectado para ver este link.]

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10

    biligo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 181
    Registrado : 10/04/2014

    Re: [Resolvido]Navegar pela internet

    Mensagem  biligo em Qua 02 Dez 2015, 19:41

    Boas amigo,

    Segue exemplo, Abrir NFS-e

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

    daniloreiis
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 315
    Registrado : 14/02/2011

    Navegar pela internet

    Mensagem  daniloreiis em Qua 02 Dez 2015, 21:41

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

    skype: daniloreiis


    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------
    [Você precisa estar registrado e conectado para ver este link.]

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10

    Lupércio
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1134
    Registrado : 07/05/2011

    Re: [Resolvido]Navegar pela internet

    Mensagem  Lupércio em Ter 08 Dez 2015, 20:31

    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


    .................................................................................
    Quando tua dúvida for resolvida, de o retorno de agradecimento á aqueles que gastaram seu tempo para te ajudar.
    Clique no botão “Resolvido” logo acima do botão “Enviar” ao lado direito. Todos nós agradecemos.[Você precisa estar registrado e conectado para ver esta imagem.][Você precisa estar registrado e conectado para ver esta imagem.]

    biligo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 181
    Registrado : 10/04/2014

    Re: [Resolvido]Navegar pela internet

    Mensagem  biligo em Ter 08 Dez 2015, 21:46

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

    Grato.

    biligo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 181
    Registrado : 10/04/2014

    Re: [Resolvido]Navegar pela internet

    Mensagem  biligo em Qua 09 Dez 2015, 00:32

    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.

    Lupércio
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1134
    Registrado : 07/05/2011

    Re: [Resolvido]Navegar pela internet

    Mensagem  Lupércio em Qua 09 Dez 2015, 14:05

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


    .................................................................................
    Quando tua dúvida for resolvida, de o retorno de agradecimento á aqueles que gastaram seu tempo para te ajudar.
    Clique no botão “Resolvido” logo acima do botão “Enviar” ao lado direito. Todos nós agradecemos.[Você precisa estar registrado e conectado para ver esta imagem.][Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Sab 03 Dez 2016, 04:34