MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Navegar pela internet

    Compartilhe
    avatar
    biligo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    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.
    avatar
    biligo
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Navegar pela internet

    Mensagem  biligo em Qua 2 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.
    avatar
    daniloreiis
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Navegar pela internet

    Mensagem  daniloreiis em Qua 2 Dez 2015 - 12:28

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


    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10
    avatar
    biligo
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Navegar pela internet

    Mensagem  biligo em Qua 2 Dez 2015 - 19:41

    Boas amigo,

    Segue exemplo, [Você precisa estar registrado e conectado para ver este link.]

    Infelizmente não posso lhe liberar o login e senha.
    Grato.
    avatar
    daniloreiis
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Navegar pela internet

    Mensagem  daniloreiis em Qua 2 Dez 2015 - 21:41

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

    skype: daniloreiis


    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10
    avatar
    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 8 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.]
    avatar
    biligo
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Navegar pela internet

    Mensagem  biligo em Ter 8 Dez 2015 - 21:46

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

    Grato.
    avatar
    biligo
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Navegar pela internet

    Mensagem  biligo em Qua 9 Dez 2015 - 0: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.
    avatar
    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 9 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: Qui 19 Out 2017 - 8:21