WEBHOOK

JHUAN 24/07/2023 17:07:59
#501605
oLA, trabalho com vb6 , e agora preciso ler um webhook de uma api

consigo mandar requisições , ler os retornos, mas esse "escutador de webhook" nao consegui encontrar.

Alguem pode me socorrer ?
SINCLAIR 24/07/2023 18:10:17
#501606
Alterado em 24/07/2023 18:10:51 Olá, Colega.

Se você consegue fazer as requisições e pegar as respostas, creio que você já tenha o que precisa. E imagino que tenha usado algo como CreateObject("WinHttp.WinHttpRequest.5.1").

Não entendi o que você quis dizer com "escutador de webhook", se detalhar melhor o que está tentando fazer, será mais fácil ajudar.
JHUAN 24/07/2023 18:16:09
#501607
Alterado em 24/07/2023 18:17:16 é uma api de whatsapp ( https://api.whatsgo.net.br/documentacao-api-whatsgo/ )
eu consigo mandar os comandos , mas tenho que ler esse webhook com as respostas e coisas que eles mandam automaticamente .
preciso criar uma rotina pra ficar lendo esse webhook

Aparentemente tenho que baixar o conteudo do webhook em um arquivo json , algo assim
SINCLAIR 25/07/2023 08:54:30
#501609
Colega, sobre metodologia: pelo que consegui ler da API, você deve fazer uma chamada à API, dentro um um loop, ao receber mensagem, saia do loop, proceda as tarefas que deve realizar com a mensagem recebida e volte ao loop.
É igual à consulta de PIX dinâmico, apenas que no caso do PIX dinâmico não se deve voltar para o loop.
FUTURA 26/07/2023 08:18:55
#501612
Jhuan, posta aqui pra gente, exemplo de como vc esta consumindo com vb6.
JHUAN 27/07/2023 09:53:58
#501613
essa é a minha rotina pra setar o webhook
ela retorna o sucesso da requisição, mas nao esta retornando a resposta de dentro do webhook
fiz um webhook dentro de um site e nele consigo ver os retornos la dentro, reparei que vem dentro da parte "RAW", sera que tem algo a ver ?
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

 Dim X As String
Dim contentType As String
2

X = "{" & Chr(34) & "cmd" & Chr(34) & ":" & Chr(34) & "hook" & Chr(34) & "," & _
 Chr(34) & "value" & Chr(34) & ":" & Chr(34) & "https://webhook.site/b921f106-da7e-411a-bedb-9521f17d7694" & Chr(34) & _
"}"

txtOutput = X
8
DoEvents
contentType = "application/json;charset=UTF-8"

    Dim objXmlHttp As Object
    
81    Set objDom = CreateObject("MSXML2.DOMDocument")
    Set objXmlHttp = CreateObject("MSXML2.XMLHTTP")
    
        objXmlHttp.open "POST", "https://app.whatsgo.net.br/proxy/cgi/whatsapp/whatsgo.js", False
        
       objXmlHttp.setRequestHeader "Content-type", contentType
       objXmlHttp.setRequestHeader "hostid", "8c92160e-5701-4948-b006-d05099f80c64"
       objXmlHttp.setRequestHeader "TOKEN", "270238865394"
              
9    objXmlHttp.send (X)

    strret = objXmlHttp.responseText
    
    txtOutput = txtOutput & Chr(13) & strret

DoEvents

    Set objXmlHttp = Nothing
    Set objDom = Nothing
LUIZCOMINO 08/08/2023 16:23:34
#501644
Você precisa criar uma aplicação web onde receba a resposta do webhook
JHUAN 09/08/2023 02:43:05
#501645
Pode me ajudar ?
MILTONFILHO 16/08/2023 16:33:13
#501655
O problema é realmente o que o Luiz comentou, vc precisa de uma aplicação web rodando em algum servidor com URL publica para que os servidores do whatsApp te acionem todas as vezes q tiver mensagens novas, vc tem conhecimento de desenvolvimento web? creio q o menor caminho pra vc utilizar isso integrado com o vb6 seria uma pagina web simples feita em php ou qualquer outra tecnologia q armazene kd nova mensagem recebida no banco de dados e vc pelo vb ficar olhando pro banco e processando as novidades
SINCLAIR 16/08/2023 18:22:12
#501656
Colega, tente algo assim:

  Dim objHTTP As Object
Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")

Dim url As String
url = "URL_DO_WEBHOOK_AQUI"

objHTTP.Open "POST", url, False
objHTTP.setRequestHeader "Content-Type", "application/json"

Dim requestBody As String
requestBody = "{""key"": ""value""}" ' Substitua com os dados que você deseja enviar

objHTTP.send requestBody

Dim responseText As String
responseText = objHTTP.responseText

' Faça algo com a resposta (responseText) do webhook, se necessário

Set objHTTP = Nothing
Página 1 de 2 [13 registro(s)]
Faça seu login para responder
Voltar