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]Pegar valor de resultado

    marcelo3092
    marcelo3092
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 298
    Registrado : 19/08/2010

    [Resolvido]Pegar valor de resultado Empty [Resolvido]Pegar valor de resultado

    Mensagem  marcelo3092 10/9/2019, 04:03

    Boa noite pessoal estou aqui mais uma vez pedindo ajuda de vcs tentando pegar um valor de um resultado de consulta do site misterpost que envia sms para celulares a ideia e pegar o resultado e coloca numa variavel ou campo esse resultado traz a quantidade de saldo para envio de sms.

    com o link
    misterpostman.com.br/gateway.aspx?UserID=88010d75-e552-46a9-ac97-6349cae081c7&Token=96763998&acao=saldo
    [Resolvido]Pegar valor de resultado 0links10

    ele me retorna o resultado

    Saldo
    Créditos adquiridos : 10
    Créditos usados : 10
    Saldo : 0

     
    o suporte me oriento a usar as funções instr e mid para pegar o numero depois do saldo: porem nao sei como poderia eu fazer
    Alguém pode da uma ajuda.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3491
    Registrado : 13/12/2016

    [Resolvido]Pegar valor de resultado Empty Re: [Resolvido]Pegar valor de resultado

    Mensagem  Alexandre Fim 10/9/2019, 21:37

    Fala ai Marcelão...blza?

    A empresa Mister Postman oferece uma API par ser utilizada em sistema, mas acredito que o serviço seja pago.

    Veja no link
    misterpostman.com.br/sms-marketing/



    VEJA NOSSOS DIFERENCIAIS!
    Interface web amigável, muito fácil de usar
    Múltiplas rotas de conexão para todas as operadoras do Brasil
    Importação de arquivos em vários formatos, incluindo planilhas do Excel
    Personalização das mensagens
    Envios imediatos ou agendados na data e hora de sua escolha
    Envios automáticos na data de aniversário, ou datas de renovação de contratos
    Email marketing completo integrado no mesmo sistema
    Sistema multi usuário
    API para integração com seu próprio sistema
    Relatórios completos de utilização com gráficos
    Relatório com as respostas dos SMS enviado
    Descadastramento automático de quem pedir para sair da lista



    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Pegar valor de resultado Setinf11
    Sistemas e Tecnologia Ltda
    marcelo3092
    marcelo3092
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 298
    Registrado : 19/08/2010

    [Resolvido]Pegar valor de resultado Empty Re: [Resolvido]Pegar valor de resultado

    Mensagem  marcelo3092 11/9/2019, 15:27

    tranquilo Alexandre sim e pago mesmo to apar tem problema não cliente que coloca no sistema dele porem eu queria que antes de enviar ele fizesse essa verificação de saldo para que não envie se não tiver saldo porem precisaria da resposta pelo link e pegasse somente o valor do saldo para fazer a verificação.

    E até acessível o valor deles, consegui adaptar porem era so para poder melhor pq ele ja retorna mensagem sms não enviada mais queria que antes de enviar.
    marcelo3092
    marcelo3092
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 298
    Registrado : 19/08/2010

    [Resolvido]Pegar valor de resultado Empty Re: [Resolvido]Pegar valor de resultado

    Mensagem  marcelo3092 21/1/2020, 14:46

    Ola Pessoal Consegui Adaptar o Código para Trazes o saldo.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

    [Resolvido]Pegar valor de resultado Empty Re: [Resolvido]Pegar valor de resultado

    Mensagem  Alvaro Teixeira 21/1/2020, 14:51

    Olá a todos,

    Marcelo, tente verificar com o fornecedor se não tem na API para consultar o saldo.
    Aproveito para deixar link de como capturar (pode ser util para outros membros):
    https://www.maximoaccess.com/t33653-capturar-obter-data-e-hora-de-website

    Abraço a todos
    marcelo3092
    marcelo3092
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 298
    Registrado : 19/08/2010

    [Resolvido]Pegar valor de resultado Empty Re: [Resolvido]Pegar valor de resultado

    Mensagem  marcelo3092 21/1/2020, 14:52

    Ficou assim mais deu certo funciono
    Código:
    Private Sub saldosms()
    'On Error Resume Next

       sUserID = DLookup("SMS_USERID", "_parametros")
       sToken = DLookup("sms_token", "_parametros")
                 
       html = "http://www.misterpostman.com.br/gateway.aspx?UserID=" & sUserID & "&Token=" & sToken & "&acao=saldo"

       sBuffer = Space(1000)
       hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
       hFile = InternetOpenUrl(hOpen, html, vbNullString, ByVal 0&, INTERNET_FLAG_RELOAD, ByVal 0&)
       InternetReadFile hFile, sBuffer, 1000, Ret
       InternetCloseHandle hFile
       InternetCloseHandle hOpen
       saldo_sms = Left(sBuffer, 100)
           
       'If resp_sms = "OK" Then
       'MsgBox "Sua Mensagem Foi Encaminhada." & vbCr & "Celular: " & (rst("ddd").Value) & " - " & Format$(rst("celular1"), "0000-0000"), vbInformation, Titulo
       'Me.sbMensagem.Value = "Mensagem Enviada Com Sucesso Para: " & Format$(gCel, "0000-0000")
       'Else
       MsgBox saldo_sms, vbCritical, Titulo
    End Sub

    Conteúdo patrocinado


    [Resolvido]Pegar valor de resultado Empty Re: [Resolvido]Pegar valor de resultado

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 03:08