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
ronaldojr1
guaro
=>Nois
7 participantes

    Dúvida exemplo envio de mensagem pelo api da whatsapp

    avatar
    guaro
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2
    Registrado : 14/12/2012

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  guaro 11/9/2018, 11:41

    Topico origem da dúvida

    Bom dia,

    O código corre bem só que abre o seguinte link
    Código:
    https://api.whatsapp.com/send?phone=919177019text=%22OLA%22
    e fica a espera de qualquer coisa e a mensagem não segue

    tenho que ativar alguma coisa para que a mensagem siga de forma automática ?

    obrigado
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 962
    Registrado : 09/11/2012

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Re: Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  =>Nois 11/9/2018, 16:31

    postei passo a passo neste exemplo

    maximoaccess.com/t34002-enviar-mensagens-via-whatsapp


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    avatar
    guaro
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2
    Registrado : 14/12/2012

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  guaro 11/9/2018, 16:38

    Copiei religiosamente o seu exemplo .. só que não envia a mensagem ... não terei que ativar outra coisa qualquer ?
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 962
    Registrado : 09/11/2012

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Re: Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  =>Nois 11/9/2018, 20:41

    a estrutura precisa

    codigo pais
    ddd
    numero celular

    a mensagem a cada espaço entre os textos deve conter %20

    Código:
    dim contacts, textEnviar as text

    contacts = 5531996598767
    textEnviar = Ola%20isso%20e%20um%20teste

    https://api.whatsapp.com/send?phone=" & Contatcs & "&text=" & textEnviar


    poste uma parte do seu bd caso não tenha conseguido


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    ronaldojr1
    ronaldojr1
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 01/08/2011

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Re: Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  ronaldojr1 11/9/2018, 21:22

    eu tb estou testando e não está indo. o codigo nao aperta o botao enviar automaticamente.
    ronaldojr1
    ronaldojr1
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 01/08/2011

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Re: Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  ronaldojr1 11/9/2018, 22:56

    apos algumas horas de teste
    consegui enviar, mas seria interessante
    o codigo fechar a guia em questao. essa parte nao consegui.
    se alguem souber como fazer compartilha ai. vlw

    segue codigo
    Código:
    'texto ao ser enviado, os espaços são substituidos por %20
    textEnviar = Replace(msgZap, " ", "%20")
      
    linkZap = "https://api.whatsapp.com/send?phone=" & contatoZap & "&text=" & textEnviar
    Application.FollowHyperlink linkZap
        
    'Pagina 1
    Sleep (5000)
    SendKeys "{TAB}", True
    SendKeys "{TAB}", True
    SendKeys "{ENTER}", True
    'SendKeys " ", True

    'faz uma espera de 15 segundos para o navegador
    'carregar a conversa com o contato e apos isso
    'apertar o botao enter
    Sleep (15000)
    SendKeys "{ENTER}", True
    Sleep (2000)

    'aqui seria para fechar a guia do chrome
    'mas nao esta funcionando, quem achar uma solucao compartilha ai

    'SendKeys ("^w")
    'Sleep (2000)
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 962
    Registrado : 09/11/2012

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Re: Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  =>Nois 13/9/2018, 12:11

    eu fiz o teste aqui e funcionou utilizando seu exemplo para fechar o navegador apos enviar

    comando ctrl+w fecha o navegador


    Código:

    SendKeys ("^w")
    Sleep (2000)


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    ronaldojr1
    ronaldojr1
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 01/08/2011

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Re: Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  ronaldojr1 13/9/2018, 14:02

    bom dia,
    então, aqui tb fecha o navegador, mas esse não é o resultado esperado.
    o comando deveria fechar apenas a guia ativa do navegador e não o navegado todo.

    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 962
    Registrado : 09/11/2012

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Re: Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  =>Nois 13/9/2018, 14:19

    entendi vamos testar os atalhos do chrome:


    Alt + F: abre a pasta de ferramentas;
    Ctrl + Enter: adiciona “www.” e “.com” ao endereço digitado;
    Ctrl + T: abre uma nova aba;
    Ctrl + Shift + T: reabre a última aba fechada;
    Ctrl + N: abre uma nova janela;
    Ctrl + Tab: alterna para a aba seguinte;
    Ctrl + Shift + Tab: alterna para a aba anterior;
    Ctrl + F4: fecha a aba ativa;
    Alt + F4: fecha a janela ativa;
    Ctrl + N: abre uma nova janela;
    Ctrl + Shift + N: abre uma nova janela anônima;
    Ctrl + Shift + B: ativa ou desativa a barra de favoritos;
    Ctrl + D: adiciona a página atual aos favoritos;
    Ctrl + Shift + D: adiciona todas as abas abertas em uma pasta de favoritos;
    Ctrl + K: insere um campo de busca ao final do endereço ativo;
    Ctrl + J: abre a aba de downloads;
    Ctrl + H: abre a aba de histórico;
    Ctrl + P: imprime a página atual;
    Shift + Esc: abre o gerenciador de tarefas do navegador;
    Ctrl + Shift + J: ativa ou desativa o gerenciador para desenvolvedores;
    Ctrl + L: seleciona o endereço da aba ativa;
    Ctrl + Backspace: deleta a parte do endereço que estiver à esquerda da seleção;
    Ctrl + F: busca algum termo na página;
    Ctrl + G: busca o termo seguinte na mesma pesquisa;
    Ctrl + Shift + G: busca o termo anterior;
    Ctrl + U: mostra o código-fonte da página ativa;
    Ctrl + R: atualiza a página (o mesmo que o F5);
    Ctrl + (1,2,3, ..., 9): abre a aba ordenada pelo algarismo;
    Ctrl + clique: abre link em uma nova aba;
    Shift + Clique: abre link em uma nova janela;
    Ctrl + “+”: aumenta o texto da página;
    Ctrl + “-”: diminui o texto da página;
    Ctrl + 0 (zero): retorna o texto para o tamanho padrão;
    Ctrl+ O (letra O): abre um arquivo do computador no Google Chrome;
    Backspace: retorna a página para o endereço anterior;
    F1: abre a aba de ajuda do navegador;
    F11: ativa ou desativa o modo Tela Cheia.


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 962
    Registrado : 09/11/2012

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Re: Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  =>Nois 13/9/2018, 14:32

    aqui deu certo

    SendKeys ("^{F4}")


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    ronaldojr1
    ronaldojr1
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 01/08/2011

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Re: Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  ronaldojr1 13/9/2018, 15:09

    cheers
    ai sim, agora foi. obrigado pela lista de atalhos do chrome.
    sucesso
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 962
    Registrado : 09/11/2012

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Re: Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  =>Nois 21/9/2018, 03:44

    e ai guaro resolveu? falai e fecha o topico.


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    avatar
    fazerbem
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 439
    Registrado : 05/03/2017

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Re: Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  fazerbem 13/3/2019, 16:49

    aqui deu erro

    em Sleep

    Sub ou Funcao nao definida
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 962
    Registrado : 09/11/2012

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Re: Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  =>Nois 13/3/2019, 18:57

    No vba logo no topo coloque assim

    Option Compare Database
    Option Explicit
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    avatar
    fazerbem
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 439
    Registrado : 05/03/2017

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Re: Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  fazerbem 14/3/2019, 11:59

    aqui deu certo agora e tive que criar tb 2 DIM

    Código:
    Dim TextEnviar, LinkZap
    'texto ao ser enviado, os espaços são substituidos por %20
    TextEnviar = Replace(Me.texto.Caption, " ", "%20")
     
    'LinkZap = "https://api.whatsapp.com/send?phone=" & Me.MZap.Value & "&text=" & TextEnviar
    LinkZap = "https://api.whatsapp.com/send?l=pt_br&phone=55" & Me.Zap.Value & "&text=" & TextEnviar
    Application.FollowHyperlink LinkZap
       
    'Pagina 1
    Sleep (5000)
    SendKeys "{TAB}", True
        SendKeys "{TAB}", True
        SendKeys "{ENTER}", True
    'SendKeys " ", True

    'faz uma espera de 15 segundos para o navegador
    'carregar a conversa com o contato e apos isso
    'apertar o botao enter

    Sleep (15000)
    SendKeys "{ENTER}", True

    Sleep (2000)

    'aqui seria para fechar a guia do chrome
    'mas nao esta funcionando, quem achar uma solucao compartilha ai

    'SendKeys ("^w")
    'SendKeys ("^{F4}")
    'Sleep (2000)

    O problema é o seguinte:

    Ao abrir no navegador esta solicitando pra eu escolher o contato, mas o contato ainda nao existe, apesar de ser um numero Zap.
    Em outro codigo que tenho ele abre uma api em que posso enviar mesmo se nao estiver em meus conatos;

    FollowHyperlink "https://api.whatsapp.com/send?l=pt_br&phone=55" & Me.Zap.Value ' ( Me.Zap= 21+numeroZap )

    Desta maneira que eu queria, pois a ideia aqui e toda venda emitir um recibo via zap para clientes diversos.

    Outra coisa que eu gostaria de fazer, é apos inserir o texto na mensagem, incluir tb ja automaticamente o Relatorio onde esta o Recibo da venda.

    DoCmd.OpenReport "rel_Recibo_Venda_PDV", acViewPreview
    Pois da forma que se encontra meu codigo abaixo, eu tenho que ir neste Relatorio que ja estara aberto, usar a ferramenta de captura do Windos e colar a mesma na mensagem, queria que tudo fosse de forma automatica pela VBA.

    Grato se puder ajudar

    Meu codigo usado e assim:

    Código:
    If Me.Ref = 2 Then
     DoCmd.OpenReport "rel_Recibo_Venda_PDV", acViewPreview
      If Me.zap2 > 0 Then
    Me!MZap2.Value = Replace(Replace(Replace(Replace(Me!MZap2.Value, " ", ""), "-", ""), "(", ""), ")", "")
    FollowHyperlink "https://api.whatsapp.com/send?l=pt_br&phone=55" & Me.MZap2.Value
      Else
    Me!MZap.Value = Replace(Replace(Replace(Replace(Me!Zap.Value, " ", ""), "-", ""), "(", ""), ")", "")
    FollowHyperlink "https://api.whatsapp.com/send?l=pt_br&phone=55" & Me.MZap.Value
    End If



    avatar
    fazerbem
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 439
    Registrado : 05/03/2017

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Re: Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  fazerbem 14/3/2019, 13:11

    Olá , Gracas a um amigo aqui deste forum , cheguei perto da perfeica com a adica deste topico aqui.

    Segue meu codigo ja atuando perfeitamente:

    Código:


    Option Compare Database
    Option Explicit
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

    Private Sub imprimir_Click()

    Dim TextEnviar, LinkZap
    'texto ao ser enviado, os espaços são substituidos por %20
    TextEnviar = Replace(Me.texto.Caption, " ", "%20")

    If Me.Ref = 2 Then

    DoCmd.OpenReport "rel_Recibo_Venda_PDV", acViewPreview
     
      If Me.zap2 > 0 Then
    Me!MZap2.Value = Replace(Replace(Replace(Replace(Me!MZap2.Value, " ", ""), "-", ""), "(", ""), ")", "")
    FollowHyperlink "https://api.whatsapp.com/send?l=pt_br&phone=55" & Me.MZap2.Value
      Else
    Me!Zap.Value = Replace(Replace(Replace(Replace(Me!Zap.Value, " ", ""), "-", ""), "(", ""), ")", "")
    FollowHyperlink "https://api.whatsapp.com/send?l=pt_br&phone=55" & Me.Zap.Value & "&text=" & TextEnviar  '

    Sleep (5000) 'aguarda carregar
    SendKeys "{TAB}", True 'tab1
        SendKeys "{TAB}", True 'tab2
        SendKeys "{ENTER}", True 'enter
    Sleep (15000) '15 segundos pra carregar
    SendKeys "{ENTER}", True 'enter

    End If

    Else
     MsgBox "Preparar mandar por Email"
      'https://www.usandoaccess.com.br/tutoriais/gerar-relatorios-em-pdf-e-enviar-por-email.asp

      Dim strArquivo As String
      Dim strLocal As String
     
      strArquivo = "Recibo" & Me!Recibo & ".pdf"
      strLocal = CurrentProject.Path & "\Som\Envio\" & strArquivo
     
    'Abre o relatório devidamente filtrado e oculto
    DoCmd.OpenReport "rel_Recibo_Venda_PDV", acViewPreview, , "idVenda=" & Me!Recibo, acHidden
     
    'Gera arquivo pdf do relatório previamente aberto e filtrado.
    DoCmd.OutputTo acOutputReport, "rel_Recibo_Venda_PDV", acFormatPDF, strLocal
     
    'Fecha o relatório
    DoCmd.Close acReport, "rel_Recibo_Venda_PDV"

        Call enviapedido
        Kill "C:\Gerencia\SysVendas\Som\Envio\" & strArquivo
    End If

    CurrentDb.Execute "Delete * from Tbl_Recibo WHERE Recibo =" & Me.Recibo

    Lista29.Requery
    Me.imprimir.Visible = False
    Me.email.Enabled = False
    Me.zap2.Enabled = False
    Me.zap2.Visible = False
    Me.Rótulo21.Visible = False
    Me.Nome = Null
    Me.Zap = Null
    Me.zap2 = Null
    Me.Recibo = Null
    Me.MZap = Null
    Me.MZap2 = Null
    Me.email = Null
    End Sub


    Porem eu precisava agora , como podem ver eu solicito o Preview de um Relatorio e;

    If Me.Ref = 2 Then

    DoCmd.OpenReport "rel_Recibo_Venda_PDV", acViewPreview

    Desta forma eu queria colar tb na mensagem que esta sendo enviada a imagem deste relatorio, ou, arquivar em PDF este relatorio apos ser aberto, e na mensagema ser enviada , colar o anexo deste pdf criado.

    Da forma que esta ai acima, eu tenho que usar a ferramenta de captura do windows copiar e colar na mensagem do whatsZap. Queria que fosse feito tudo de forma automatica.

    Alguem teria uma solucao a isso ?

    No meu sistema aqui, apos processar uma venda eu posso escolher se quero enviar o recibo via ZAp ou Email, entendem ?

    Grato

    Andre


    avatar
    fazerbem
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 439
    Registrado : 05/03/2017

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Re: Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  fazerbem 14/3/2019, 14:55

    fora a minha duvida acima, que tb espero ser respondida, queria saber como fazer a quebra de linha no navegador Zap ao envia a mensagem


    De:

    FollowHyperlink "https://api.whatsapp.com/send?l=pt_br&phone=55" & Me.MZap2.Value & "&text=" & TextEnviar & texto1 & texto2 & texto3

    Obrigado por sua visita e volte sempre. Atenciosamente Andre Luiz.

    para:

    Obrigado por sua visita e volte sempre.
    Atenciosamente Andre Luiz.

    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8272
    Registrado : 05/11/2009

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Re: Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  Alexandre Neves 15/3/2019, 16:40

    Boa tarde,
    Sobre o anexo pdf, crie relatorio em formato pdf e anexe-o à mensagem


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 962
    Registrado : 09/11/2012

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Re: Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  =>Nois 15/3/2019, 17:33

    Boa tarde

    abra um novo topico com suas duvidas


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    ronaldojr1
    ronaldojr1
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 01/08/2011

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Re: Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  ronaldojr1 18/3/2019, 16:06

    Boa tarde senhores,

    Pelo que eu pude ver para anexar documentos na mensagem, o nosso amigo devera usar a API do whatsapp businness.
    é isso mesmo?
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2377
    Registrado : 23/01/2018

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Re: Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  crysostomo 18/3/2019, 16:19

    caraca , amigos podem me dar esse arquivo, não estou conseguindo


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    adm.nneto
    adm.nneto
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 69
    Registrado : 28/11/2012

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Re: Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  adm.nneto 6/8/2020, 16:16

    crysostomo gosta desta mensagem


      Data/hora atual: 26/1/2023, 22:00