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

    marcelo3092
    marcelo3092
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  marcelo3092 em 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 100%

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

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

    Mensagem  Alexandre Fim em 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



    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    marcelo3092
    marcelo3092
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  marcelo3092 em 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 100%

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

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

    Mensagem  marcelo3092 em 21/1/2020, 14:46

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

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 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 100%

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

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

    Mensagem  marcelo3092 em 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

      Data/hora atual: 28/11/2020, 02:22