MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


3 participantes

    [Resolvido]Navegar pela internet

    biligo
    biligo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Navegar pela internet Empty [Resolvido]Navegar pela internet

    Mensagem  biligo 30/11/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
    biligo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Navegar pela internet Empty Re: [Resolvido]Navegar pela internet

    Mensagem  biligo 2/12/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
    daniloreiis
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Navegar pela internet Empty Navegar pela internet

    Mensagem  daniloreiis 2/12/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
    biligo
    biligo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Navegar pela internet Empty Re: [Resolvido]Navegar pela internet

    Mensagem  biligo 2/12/2015, 19:41

    Boas amigo,

    Segue exemplo, Abrir NFS-e

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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Navegar pela internet Empty Navegar pela internet

    Mensagem  daniloreiis 2/12/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
    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Navegar pela internet Empty Re: [Resolvido]Navegar pela internet

    Mensagem  Lupércio 8/12/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.lol!Rolling Eyes
    biligo
    biligo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Navegar pela internet Empty Re: [Resolvido]Navegar pela internet

    Mensagem  biligo 8/12/2015, 21:46

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

    Grato.
    biligo
    biligo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Navegar pela internet Empty Re: [Resolvido]Navegar pela internet

    Mensagem  biligo 9/12/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
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Navegar pela internet Empty Re: [Resolvido]Navegar pela internet

    Mensagem  Lupércio 9/12/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.lol!Rolling Eyes

    Conteúdo patrocinado


    [Resolvido]Navegar pela internet Empty Re: [Resolvido]Navegar pela internet

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 05:22