MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Problema com hiperlink no Chrome

    annissima
    annissima
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 146
    Registrado : 24/10/2017

    [Resolvido]Problema com hiperlink no Chrome Empty [Resolvido]Problema com hiperlink no Chrome

    Mensagem  annissima em 26/3/2020, 13:52

    Olá,

    Tenho um problema com links no chrome.

    Tenho um form que ao clicar em "Send WPP" ele abre o chrome e envia o whats... mas ele está dando uma mensagem de erro...

    Código do botão de Whats:

    Código:
    Private Sub Comando205_Click()
       
        'copia mensagem por defeito
        Me.SMSmessage = Texto199
        'copia numero celular
        Me.SMSphone = Texto86
        'atualiza link wpp
        Me.linkwpp = Texto93
       
       

    Dim GC As Object
    Dim WebUrl As String
    Dim NavigatorAddress As String

        Let NavigatorAddress = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
        Set GC = CreateObject("InternetExplorer.Application")
         
    '''
    Let WebUrl = [linkwpp].value
        Shell (NavigatorAddress & " -url " & WebUrl)
        Sleep (2500)
       
         
        SendKeys "{TAB}"
        Call Sleep(100)
       
        SendKeys "{TAB}"
        Call Sleep(100)
       
        SendKeys "{TAB}"
        Call Sleep(100)
     
        SendKeys "{TAB}"
        Call Sleep(100)
       
        SendKeys "{TAB}"
        Call Sleep(100)
       
        SendKeys "{TAB}"
        Call Sleep(100)
       
        SendKeys "{TAB}"
        Call Sleep(100)
     

       
        SendKeys "~"
        Call Sleep(2000)
       
       
        SendKeys "{TAB}"
        Call Sleep(100)
       
        SendKeys "{TAB}"
        Call Sleep(100)
       
        SendKeys "~"

        Call Sleep(5000)
       
     
        SendKeys "~"
           
        Call Sleep(1000)
       
        End Sub


    O outro form tem um botão "Login Esaj" que abre o site esaj do tjsp e loga.. nao está abrindo.. e dá esse erro 3201.

    Código desse botão:

    Código:
    Public Function FazerLoginEsaj()

    Dim chromePath As String
    chromePath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
    Shell (chromePath & " -url https://google.com")

    Dim GC As Object
    Dim WebUrl As String
    Dim NavigatorAddress As String

        Let NavigatorAddress = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
        Set GC = CreateObject("InternetExplorer.Application")
         
    'Fazer Login no Esaj

        Let NavigatorAddress = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
        Set GC = CreateObject("InternetExplorer.Application")
        Let WebUrl = "https://esaj.tjsp.jus.br/sajcas/login?service=https%3A%2F%2Fesaj.tjsp.jus.br%2Fesaj%2Fj_spring_cas_security_check"

        Shell (NavigatorAddress & " -url " & WebUrl)

    Call Sleep(3000)

        SendKeys "~"
       
    Call Sleep(10000)

    End Function






    Isso começou depois de muito tentar testar o WPP, que acho que bloqueou por segurança links do access...

    Alguma sugestão?

    Imagens:

    [Resolvido]Problema com hiperlink no Chrome Whats

    [Resolvido]Problema com hiperlink no Chrome Login
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4637
    Registrado : 20/04/2011

    [Resolvido]Problema com hiperlink no Chrome Empty Re: [Resolvido]Problema com hiperlink no Chrome

    Mensagem  Silvio em 26/3/2020, 16:35

    Boas...

    Tente pelo Mozila Firefox o acesso ao TJ-SP


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    annissima
    annissima
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 146
    Registrado : 24/10/2017

    [Resolvido]Problema com hiperlink no Chrome Empty Re: [Resolvido]Problema com hiperlink no Chrome

    Mensagem  annissima em 28/3/2020, 13:22

    Não sei como aconteceu, mas resolvi reinstalando o office rs... vou marcar como resolvido

      Data/hora atual: 3/12/2020, 15:58