Visualizações: 9.469 views
Fala pessoal!
Nesse artigo, vou compartilhar com vocês uma solução que busco há muito tempo como fazer, que é como enviar mensagens para contatos, grupos e listas de transmissão do Whatsapp utilizando WebRequests. Eu já havia feito algo parecido utilizando outras ferramentas, mas nunca o Whatsapp, que não possui uma API oficial e está completamente fechado quanto à isso.
Embora existam ferramentas de comunicação até melhores que o Whatsapp, como o próprio Telegram, 100 de 100 pessoas que eu conheço possuem conta no Whatsapp e a maioria não tem no Telegram, então eu acho que esse artigo pode acabar se tornando até uma utilidade pública para quem quiser criar qualquer automatização que envolva o Whatsapp.
Confira os meus artigos sobre outras ferramentas de comunicação:
- SQL Server – Como fazer uma integração do banco de dados com o Slack e enviar mensagens utilizando Python e sp_execute_external_script
- SQL Server – Como fazer uma integração do banco de dados com o Slack e enviar mensagens utilizando o CLR (C#)
- SQL Server – Como fazer uma integração do banco de dados com o Telegram e enviar mensagens utilizando o CLR (C#)
- SQL Server – Como fazer uma integração do banco de dados com o Ryver e enviar mensagens utilizando CLR (C#)
- SQL Server – Como enviar Torpedos SMS utilizando o CLR (C#) e a API da Mais Resultado (PG Soluções)
- Como utilizar a API do Pushbullet para enviar torpedos SMS no C#, PHP, Java ou pelo SQL Server (com CLR)
API de comunicação com o Whatsapp
Personagem principal esse artigo, a API da NETiZap é o que torna possível a integração fácil entre o banco de dados SQL Server e o comunicador Whatsapp, uma vez que ele não possui uma API oficial e é completamente fechado quanto à isso. Já tentei realizar algumas integrações direto com o Whatsapp e, após alguns testes, fui banido por 24h e notificado que na próxima vez, o meu número seria banido plataforma pra sempre. Depois disso, eu acabei deixando esses testes de lado.. rs
Por isso que a utilização de uma API é tão prático e seguro: O número que faz os disparos é o número da API e não o seu número pessoal/corporativo.
Para a testes dessa API, você pode utilizar a versão de demonstração, que é gratuita, mas para implantação de rotinas reais, você deve adquirir um plano pago:
| Plano | Modalidade | Quantidade de Envios | Valor |
|---|---|---|---|
| Plano Gratuito | Grátis com Finalidade de Demonstrações, Testes ou Períodos. | Personalizado | Gratuito |
| Plano Pré Pago | Pacote de Mensagens + Suporte | 100 | R$ 0,20 p/ mensagem + R$ 50,00 mensais |
| Plano Pós Pago | Mensalidade + Suporte | Ilimitado | R$ 200,00 |
| Plano Pós Pago para Revendedores | Mensalidade + Suporte | Ilimitado | R$ 130,00 (Mínimo de 5 linhas) |
Regras:
- É proibido a utilização para fins de spam
- Regras supervisionadas e aplicadas pelo whatsapp
Dentro do pacote da API, você pode utilizar o aplicativo ConsumersAPI.exe, que permite realizar testes com todos os métodos da API já com os parâmetros padrão:
Você também pode testar utilizando o Postman:
A documentação dessa API está disponível neste link aqui. Para o download do pacote de desenvolvedor da API, clique aqui neste link.
Caso você se interesse na contratação dessa API para sua empresa, entre em contato com o Thiago, desenvolvedor dessa API, no telefone +55 27 99802-2075. O número utilizado para o envio das mensagens não é fixo e pode ser alterado/escolhido pela empresa contratante.
Enviando mensagens para Whatsapp com o OLE Automation
Clique aqui para visualizar o conteúdo
Uma das formas de realizar essa comunicação do SQL Server com a API é utilizando o OLE Automation, que instancia objetos do Windows para dentro do SQL Server. Esse método já é bem antigo no SQL Server, conhecido por alguns vazamentos de memória e deve ser utilizado em último caso, pois o SQLCLR é mais seguro e flexível do que esse método (e a acentuação funciona), mas um pouco mais complicado de implementar também.
Enviando mensagens privadas pelo Whatsapp
Para enviar uma mensagem para um contato específico do Whatsapp, utilize o código abaixo:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 |
-- ALTERAR CONFORME NECESSIDADE DECLARE @Destinatario VARCHAR(30) = 'telefone_destino', -- FORMATO: ddnumero Ex: 11988543306 @Mensagem VARCHAR(MAX) = 'Teste da API', @Chave VARCHAR(100) = 'Voz5dWkr5EEhBAbYuwJ2', @Usuario VARCHAR(100) = 'user', @Senha VARCHAR(100) = 'api' -- NÃO ALTERAR DAQUI PARA BAIXO DECLARE @obj INT, @Url VARCHAR(255), @resposta VARCHAR(8000), @Parametros VARCHAR(4000), @Autorizacao VARCHAR(100), @source VARBINARY(MAX) -------------------------------------------------------------------------------- -- Habilitando o OLE Automation (Se não estiver ativado) -------------------------------------------------------------------------------- DECLARE @Fl_Ole_Automation_Ativado BIT = (SELECT (CASE WHEN CAST([value] AS VARCHAR(MAX)) = '1' THEN 1 ELSE 0 END) FROM sys.configurations WHERE [name] = 'Ole Automation Procedures') IF (@Fl_Ole_Automation_Ativado = 0) BEGIN EXECUTE sp_configure 'show advanced options', 1; RECONFIGURE WITH OVERRIDE; EXEC sp_configure 'Ole Automation Procedures', 1; RECONFIGURE WITH OVERRIDE; END -------------------------------------------------------------------------------- -- Realizando a requisição -------------------------------------------------------------------------------- SET @Url = 'http://api.meuaplicativo.vip:13005/services/message_send?line=5527981049976&destiny=55' + @Destinatario + '&reference&text=' + @Mensagem SET @Parametros = 'App=NetiZap Consumers 1.0&AccessKey=' + @Chave SET @source = CONVERT(VARBINARY(MAX), @Usuario + ':' + @Senha) SET @Autorizacao = 'Basic ' + CAST('' AS XML).value('xs:base64Binary(sql:variable("@source"))', 'varchar(max)') EXEC sys.sp_OACreate 'MSXML2.ServerXMLHTTP', @obj OUT EXEC sys.sp_OAMethod @obj, 'open', NULL, 'POST', @Url, 'FALSE' EXEC sys.sp_OAMethod @obj, 'setRequestHeader', NULL, 'Content-Type', 'application/x-www-form-urlencoded' EXEC sys.sp_OAMethod @obj, 'setRequestHeader', NULL, 'Authorization', @Autorizacao EXEC sys.sp_OAMethod @obj, 'send', NULL, @Parametros EXEC sys.sp_OAGetProperty @obj, 'responseText', @resposta OUT EXEC sys.sp_OADestroy @obj SELECT @resposta -------------------------------------------------------------------------------- -- Desabilitando o OLE Automation (Se não estiver ativado) -------------------------------------------------------------------------------- IF (@Fl_Ole_Automation_Ativado = 0) BEGIN EXECUTE sp_configure 'show advanced options', 0; RECONFIGURE WITH OVERRIDE; EXEC sp_configure 'Ole Automation Procedures', 0; RECONFIGURE WITH OVERRIDE; END |
Resultado:
Como chega no celular:
Como recuperar a lista dos grupos disponíveis
Para listar os grupos disponíveis na sua conta, você pode utilizar o script abaixo. Para enviar uma mensagem para o grupo, basta utilizar o mesmo script de envio de mensagem privada e substituir o número do telefone do destinatário pelo id do grupo retornado abaixo.
O tratamento do JSON foi feito com a função OPENJSON, disponível a partir do SQL Server 2016. Caso sua versão seja anterior a isso, pode substituir por um SELECT simples na variável e identificar manualmente o id do grupo desejado. Caso queira saber mais sobre tratamento de strings JSON, dê uma olhada no meu artigo SQL Server 2016 – Utilizando o suporte nativo a JSON (JSON_VALUE, JSON_QUERY, OPENJSON, FOR JSON, ISJSON, JSON_MODIFY).
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 |
-- ALTERAR CONFORME NECESSIDADE DECLARE @Chave VARCHAR(100) = 'Voz5dWkr5EEhBAbYuwJ2', @Usuario VARCHAR(100) = 'user', @Senha VARCHAR(100) = 'api' -- NÃO ALTERAR DAQUI PARA BAIXO DECLARE @obj INT, @Url VARCHAR(255), @resposta VARCHAR(8000), @Parametros VARCHAR(4000), @Autorizacao VARCHAR(100), @source VARBINARY(MAX) -------------------------------------------------------------------------------- -- Habilitando o OLE Automation (Se não estiver ativado) -------------------------------------------------------------------------------- DECLARE @Fl_Ole_Automation_Ativado BIT = (SELECT (CASE WHEN CAST([value] AS VARCHAR(MAX)) = '1' THEN 1 ELSE 0 END) FROM sys.configurations WHERE [name] = 'Ole Automation Procedures') IF (@Fl_Ole_Automation_Ativado = 0) BEGIN EXECUTE sp_configure 'show advanced options', 1; RECONFIGURE WITH OVERRIDE; EXEC sp_configure 'Ole Automation Procedures', 1; RECONFIGURE WITH OVERRIDE; END -------------------------------------------------------------------------------- -- Realizando a requisição -------------------------------------------------------------------------------- SET @Url = 'http://api.meuaplicativo.vip:13005/services/group_search?line=5527981049976&AccessKey=' + @Chave SET @source = CONVERT(VARBINARY(MAX), @Usuario + ':' + @Senha) SET @Autorizacao = 'Basic ' + CAST('' AS XML).value('xs:base64Binary(sql:variable("@source"))', 'varchar(max)') EXEC sys.sp_OACreate 'MSXML2.ServerXMLHTTP', @obj OUT EXEC sys.sp_OAMethod @obj, 'open', NULL, 'GET', @Url, 'FALSE' EXEC sys.sp_OAMethod @obj, 'setRequestHeader', NULL, 'Content-Type', 'application/x-www-form-urlencoded' EXEC sys.sp_OAMethod @obj, 'setRequestHeader', NULL, 'Authorization', @Autorizacao EXEC sys.sp_OAMethod @obj, 'send', NULL, @Parametros EXEC sys.sp_OAGetProperty @obj, 'responseText', @resposta OUT EXEC sys.sp_OADestroy @obj SELECT conteudo.id, conteudo.descricao FROM OPENJSON(@resposta, '$') WITH ( [root] NVARCHAR(MAX) AS JSON ) AS elemento CROSS APPLY OPENJSON(elemento.[root]) WITH( id VARCHAR(200), descricao VARCHAR(500) ) AS conteudo -------------------------------------------------------------------------------- -- Desabilitando o OLE Automation (Se não estiver ativado) -------------------------------------------------------------------------------- IF (@Fl_Ole_Automation_Ativado = 0) BEGIN EXECUTE sp_configure 'show advanced options', 0; RECONFIGURE WITH OVERRIDE; EXEC sp_configure 'Ole Automation Procedures', 0; RECONFIGURE WITH OVERRIDE; END |
Resultado:
Como enviar mensagens para um grupo do Whatsapp
Agora que demonstrei como enviar mensagem privada e como listar os grupos, vamos unir os dois e enviar mensagens para um grupo!
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 |
-- ALTERAR CONFORME NECESSIDADE DECLARE @Destino VARCHAR(50), @Mensagem VARCHAR(8000) = 'Ola! \nEsta e uma mensagem de *teste* para o ~grupo~.', @Chave VARCHAR(100) = 'Voz5dWkr5EEhBAbYuwJ2', @Usuario VARCHAR(100) = 'user', @Senha VARCHAR(100) = 'api' -- NÃO ALTERAR DAQUI PARA BAIXO DECLARE @obj INT, @Url_Mensagem NVARCHAR(4000), @Url_Grupo VARCHAR(4000) = 'http://api.meuaplicativo.vip:13005/services/group_search?line=5527981049976&AccessKey=' + @Chave, @resposta VARCHAR(8000), @Parametros VARCHAR(4000) = 'App=NetiZap Consumers 1.0&AccessKey=' + @Chave, @Autorizacao VARCHAR(100), @source VARBINARY(MAX) -------------------------------------------------------------------------------- -- Habilitando o OLE Automation (Se não estiver ativado) -------------------------------------------------------------------------------- DECLARE @Fl_Ole_Automation_Ativado BIT = (SELECT (CASE WHEN CAST([value] AS VARCHAR(MAX)) = '1' THEN 1 ELSE 0 END) FROM sys.configurations WHERE [name] = 'Ole Automation Procedures') IF (@Fl_Ole_Automation_Ativado = 0) BEGIN EXECUTE sp_configure 'show advanced options', 1; RECONFIGURE WITH OVERRIDE; EXEC sp_configure 'Ole Automation Procedures', 1; RECONFIGURE WITH OVERRIDE; END -------------------------------------------------------------------------------- -- Realizando a requisição -------------------------------------------------------------------------------- SET @source = CONVERT(VARBINARY(MAX), @Usuario + ':' + @Senha) SET @Autorizacao = 'Basic ' + CAST('' AS XML).value('xs:base64Binary(sql:variable("@source"))', 'varchar(max)') EXEC sys.sp_OACreate 'MSXML2.ServerXMLHTTP', @obj OUT EXEC sys.sp_OAMethod @obj, 'open', NULL, 'GET', @Url_Grupo, 'FALSE' EXEC sys.sp_OAMethod @obj, 'setRequestHeader', NULL, 'Content-Type', 'application/x-www-form-urlencoded' EXEC sys.sp_OAMethod @obj, 'setRequestHeader', NULL, 'Authorization', @Autorizacao EXEC sys.sp_OAMethod @obj, 'send', NULL, NULL EXEC sys.sp_OAGetProperty @obj, 'responseText', @resposta OUT EXEC sys.sp_OADestroy @obj -- Gravo a lista dos grupos numa tabela temporária IF (OBJECT_ID('tempdb..#Grupos') IS NOT NULL) DROP TABLE #Grupos SELECT conteudo.id, conteudo.descricao INTO #Grupos FROM OPENJSON(@resposta, '$') WITH ( [root] NVARCHAR(MAX) AS JSON ) AS elemento CROSS APPLY OPENJSON(elemento.[root]) WITH( id VARCHAR(200), descricao VARCHAR(500) ) AS conteudo SET @obj = NULL SET @resposta = NULL SET @Destino = (SELECT TOP(1) id FROM #Grupos WHERE descricao = 'Teste API') SET @Url_Mensagem = 'http://api.meuaplicativo.vip:13005/services/message_send?line=5527981049976&destiny=' + @Destino + '&text=' + @Mensagem EXEC sys.sp_OACreate 'MSXML2.ServerXMLHTTP', @obj OUT EXEC sys.sp_OAMethod @obj, 'open', NULL, 'POST', @Url_Mensagem, 'FALSE' EXEC sys.sp_OAMethod @obj, 'setRequestHeader', NULL, 'Content-Type', 'application/x-www-form-urlencoded; charset=utf-8' EXEC sys.sp_OAMethod @obj, 'setRequestHeader', NULL, 'Charset', 'UTF-8' EXEC sys.sp_OAMethod @obj, 'setRequestHeader', NULL, 'Authorization', @Autorizacao EXEC sys.sp_OAMethod @obj, 'send', NULL, @Parametros EXEC sys.sp_OAGetProperty @obj, 'responseText', @resposta OUT EXEC sys.sp_OADestroy @obj SELECT @resposta -------------------------------------------------------------------------------- -- Desabilitando o OLE Automation (Se não estiver ativado) -------------------------------------------------------------------------------- IF (@Fl_Ole_Automation_Ativado = 0) BEGIN EXECUTE sp_configure 'show advanced options', 0; RECONFIGURE WITH OVERRIDE; EXEC sp_configure 'Ole Automation Procedures', 0; RECONFIGURE WITH OVERRIDE; END |
Como chega no celular:
Como recuperar a lista de transmissões disponíveis para a sua conta
Quase idêntico à listagem de grupos da conta, o script abaixo permite listar as listas de transmissões disponíveis para envio através da API:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 |
-- ALTERAR CONFORME NECESSIDADE DECLARE @Chave VARCHAR(100) = 'Voz5dWkr5EEhBAbYuwJ2', @Usuario VARCHAR(100) = 'user', @Senha VARCHAR(100) = 'api' -- NÃO ALTERAR DAQUI PARA BAIXO DECLARE @obj INT, @Url VARCHAR(255), @resposta VARCHAR(8000), @Parametros VARCHAR(4000), @Autorizacao VARCHAR(100), @source VARBINARY(MAX) -------------------------------------------------------------------------------- -- Habilitando o OLE Automation (Se não estiver ativado) -------------------------------------------------------------------------------- DECLARE @Fl_Ole_Automation_Ativado BIT = (SELECT (CASE WHEN CAST([value] AS VARCHAR(MAX)) = '1' THEN 1 ELSE 0 END) FROM sys.configurations WHERE [name] = 'Ole Automation Procedures') IF (@Fl_Ole_Automation_Ativado = 0) BEGIN EXECUTE sp_configure 'show advanced options', 1; RECONFIGURE WITH OVERRIDE; EXEC sp_configure 'Ole Automation Procedures', 1; RECONFIGURE WITH OVERRIDE; END -------------------------------------------------------------------------------- -- Realizando a requisição -------------------------------------------------------------------------------- SET @Url = 'http://api.meuaplicativo.vip:13005/services/broadcast_search?line=5527981049976&AccessKey=' + @Chave SET @source = CONVERT(VARBINARY(MAX), @Usuario + ':' + @Senha) SET @Autorizacao = 'Basic ' + CAST('' AS XML).value('xs:base64Binary(sql:variable("@source"))', 'varchar(max)') EXEC sys.sp_OACreate 'MSXML2.ServerXMLHTTP', @obj OUT EXEC sys.sp_OAMethod @obj, 'open', NULL, 'GET', @Url, 'FALSE' EXEC sys.sp_OAMethod @obj, 'setRequestHeader', NULL, 'Content-Type', 'application/x-www-form-urlencoded' EXEC sys.sp_OAMethod @obj, 'setRequestHeader', NULL, 'Authorization', @Autorizacao EXEC sys.sp_OAMethod @obj, 'send', NULL, @Parametros EXEC sys.sp_OAGetProperty @obj, 'responseText', @resposta OUT EXEC sys.sp_OADestroy @obj SELECT conteudo.id, conteudo.descricao FROM OPENJSON(@resposta, '$') WITH ( [root] NVARCHAR(MAX) AS JSON ) AS elemento CROSS APPLY OPENJSON(elemento.[root]) WITH( id VARCHAR(200), descricao VARCHAR(500) ) AS conteudo -------------------------------------------------------------------------------- -- Desabilitando o OLE Automation (Se não estiver ativado) -------------------------------------------------------------------------------- IF (@Fl_Ole_Automation_Ativado = 0) BEGIN EXECUTE sp_configure 'show advanced options', 0; RECONFIGURE WITH OVERRIDE; EXEC sp_configure 'Ole Automation Procedures', 0; RECONFIGURE WITH OVERRIDE; END |
Resultado:
Como criar as bibliotecas do SQLCLR (Apenas se for utilizar o SQLCLR)
Clique aqui para visualizar o conteúdoEnviando mensagens para Whatsapp com o SQLCLR
Clique aqui para visualizar o conteúdo
Agora que já demonstrei como realizar a conexão com a API, possibilitando como enviar mensagens para o Whatsapp com qualquer linguagem de programação, vou demonstrar como podemos fazer isso pelo SQL Server. Para quem já acompanha o meu blog, sabe que existem pelo menos duas formas fáceis de se fazer isso: Utilizando SQLCLR e OLE Automation.
Enviando mensagens privadas pelo Whatsapp
O primeiro teste a ser realizado é enviando mensagens privadas para um contato. A sua utilização é bem simples:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 |
-- ALTERAR CONFORME NECESSIDADE DECLARE @Destino VARCHAR(20) = 'telefone_destino', -- FORMATO: ddnumero Ex: 11988543306 @Mensagem VARCHAR(MAX) = 'Olá! \nEsta é uma mensagem de teste.', @Chave VARCHAR(100) = 'Voz5dWkr5EEhBAbYuwJ2', @Usuario VARCHAR(100) = 'user', @Senha VARCHAR(100) = 'api' -- PARÂMETROS FIXOS DECLARE @Ds_Retorno_OUTPUT NVARCHAR(MAX), @Url VARCHAR(MAX) = 'http://api.meuaplicativo.vip:13005/services/message_send?line=5527981049976&destiny=' + @Destino + '&text=' + @Mensagem, @source VARBINARY(MAX) = CONVERT(VARBINARY(MAX), @Usuario + ':' + @Senha), @Paramatros VARCHAR(MAX) = 'App=NetiZap Consumers 1.0&AccessKey=' + @Chave, @Autorizacao VARCHAR(500), @Cabecalhos VARCHAR(MAX) -- Gero a string base64 com o usuário e senha da API SET @Autorizacao = 'Basic ' + CAST('' AS XML).value('xs:base64Binary(sql:variable("@source"))', 'varchar(max)') SET @Cabecalhos = 'Authorization:: ' + @Autorizacao -- Faço a chamada à API EXEC dbo.stpWs_Requisicao @Ds_Url = @Url, -- nvarchar(max) @Ds_Metodo = N'POST', -- nvarchar(max) @Ds_Parametros = @Paramatros, -- nvarchar(max) @Ds_Codificacao = N'utf-8', -- nvarchar(max) @Ds_Accept = N'', -- nvarchar(max) @Ds_ContentType = N'application/x-www-form-urlencoded', -- nvarchar(max) @Fl_Autentica_Proxy = 0, -- bit @Ds_Headers = @Cabecalhos, -- nvarchar(max) @Qt_Segundos_Timeout = 30, -- int @Ds_Retorno_OUTPUT = @Ds_Retorno_OUTPUT OUTPUT -- nvarchar(max) -- Mostro o retorno da requisição na tela SELECT @Ds_Retorno_OUTPUT |
Resultado:
Como chega a mensagem no celular:
Como recuperar a lista dos grupos disponíveis
Para listar os grupos disponíveis na sua conta, você pode utilizar o script abaixo. Para enviar uma mensagem para o grupo, basta utilizar o mesmo script de envio de mensagem privada e substituir o número do telefone do destinatário pelo id do grupo retornado abaixo.
O tratamento do JSON foi feito com a função OPENJSON, disponível a partir do SQL Server 2016. Caso sua versão seja anterior a isso, pode substituir por um SELECT simples na variável e identificar manualmente o id do grupo desejado. Caso queira saber mais sobre tratamento de strings JSON, dê uma olhada no meu artigo SQL Server 2016 – Utilizando o suporte nativo a JSON (JSON_VALUE, JSON_QUERY, OPENJSON, FOR JSON, ISJSON, JSON_MODIFY).
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 |
-- ALTERAR CONFORME NECESSIDADE DECLARE @Chave VARCHAR(100) = 'Voz5dWkr5EEhBAbYuwJ2', @Usuario VARCHAR(100) = 'user', @Senha VARCHAR(100) = 'api' -- PARÂMETROS FIXOS DECLARE @Ds_Retorno_OUTPUT NVARCHAR(MAX), @Url VARCHAR(MAX) = 'http://api.meuaplicativo.vip:13005/services/group_search?line=5527981049976&AccessKey=' + @Chave, @source VARBINARY(MAX) = CONVERT(VARBINARY(MAX), @Usuario + ':' + @Senha), @Autorizacao VARCHAR(500), @Cabecalhos VARCHAR(MAX) -- Gero a string base64 com o usuário e senha da API SET @Autorizacao = 'Basic ' + CAST('' AS XML).value('xs:base64Binary(sql:variable("@source"))', 'varchar(max)') SET @Cabecalhos = 'Authorization:: ' + @Autorizacao -- Lista os grupos disponíveis para a minha conta EXEC dbo.stpWs_Requisicao @Ds_Url = @Url, -- nvarchar(max) @Ds_Metodo = N'GET', -- nvarchar(max) @Ds_Parametros = NULL, -- nvarchar(max) @Ds_Codificacao = N'utf-8', -- nvarchar(max) @Ds_Accept = N'', -- nvarchar(max) @Ds_ContentType = N'application/x-www-form-urlencoded', -- nvarchar(max) @Fl_Autentica_Proxy = 0, -- bit @Ds_Headers = @Cabecalhos, -- nvarchar(max) @Qt_Segundos_Timeout = 30, -- int @Ds_Retorno_OUTPUT = @Ds_Retorno_OUTPUT OUTPUT -- nvarchar(max) SELECT conteudo.id, conteudo.descricao FROM OPENJSON(@Ds_Retorno_OUTPUT, '$') WITH ( [root] NVARCHAR(MAX) AS JSON ) AS elemento CROSS APPLY OPENJSON(elemento.[root]) WITH( id VARCHAR(200), descricao VARCHAR(500) ) AS conteudo |
Resultado:
Como enviar mensagens para um grupo do Whatsapp
Agora que demonstrei como enviar mensagem privada e como listar os grupos, vamos unir os dois e enviar mensagens para um grupo!
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 |
-- ALTERAR CONFORME NECESSIDADE DECLARE @Destino VARCHAR(50), @Mensagem VARCHAR(MAX) = 'Olá! \nEsta é uma mensagem de *teste* para o ~grupo~.', @Chave VARCHAR(100) = 'Voz5dWkr5EEhBAbYuwJ2', @Usuario VARCHAR(100) = 'user', @Senha VARCHAR(100) = 'api' -- PARÂMETROS FIXOS DECLARE @Ds_Retorno_OUTPUT NVARCHAR(MAX), @Url_Mensagem VARCHAR(MAX), @Url_Grupo VARCHAR(MAX) = 'http://api.meuaplicativo.vip:13005/services/group_search?line=5527981049976&AccessKey=' + @Chave, @source VARBINARY(MAX) = CONVERT(VARBINARY(MAX), @Usuario + ':' + @Senha), @Paramatros VARCHAR(MAX) = 'App=NetiZap Consumers 1.0&AccessKey=' + @Chave, @Autorizacao VARCHAR(500), @Cabecalhos VARCHAR(MAX) -- Gero a string base64 com o usuário e senha da API SET @Autorizacao = 'Basic ' + CAST('' AS XML).value('xs:base64Binary(sql:variable("@source"))', 'varchar(max)') SET @Cabecalhos = 'Authorization:: ' + @Autorizacao -- Faço a chamada à API para recuperar a lista dos grupos EXEC dbo.stpWs_Requisicao @Ds_Url = @Url_Grupo, -- nvarchar(max) @Ds_Metodo = N'GET', -- nvarchar(max) @Ds_Parametros = NULL, -- nvarchar(max) @Ds_Codificacao = N'utf-8', -- nvarchar(max) @Ds_Accept = N'', -- nvarchar(max) @Ds_ContentType = N'application/x-www-form-urlencoded', -- nvarchar(max) @Fl_Autentica_Proxy = 0, -- bit @Ds_Headers = @Cabecalhos, -- nvarchar(max) @Qt_Segundos_Timeout = 30, -- int @Ds_Retorno_OUTPUT = @Ds_Retorno_OUTPUT OUTPUT -- nvarchar(max) -- Gravo a lista dos grupos numa tabela temporária IF (OBJECT_ID('tempdb..#Grupos') IS NOT NULL) DROP TABLE #Grupos SELECT conteudo.id, conteudo.descricao INTO #Grupos FROM OPENJSON(@Ds_Retorno_OUTPUT, '$') WITH ( [root] NVARCHAR(MAX) AS JSON ) AS elemento CROSS APPLY OPENJSON(elemento.[root]) WITH( id VARCHAR(200), descricao VARCHAR(500) ) AS conteudo SET @Ds_Retorno_OUTPUT = NULL SET @Destino = (SELECT TOP(1) id FROM #Grupos WHERE descricao = 'Teste API') SET @Url_Mensagem = 'http://api.meuaplicativo.vip:13005/services/message_send?line=5527981049976&destiny=' + @Destino + '&text=' + @Mensagem -- Faço a chamada à API para enviar a mensagem para o grupo EXEC dbo.stpWs_Requisicao @Ds_Url = @Url_Mensagem, -- nvarchar(max) @Ds_Metodo = N'POST', -- nvarchar(max) @Ds_Parametros = @Paramatros, -- nvarchar(max) @Ds_Codificacao = N'utf-8', -- nvarchar(max) @Ds_Accept = N'', -- nvarchar(max) @Ds_ContentType = N'application/x-www-form-urlencoded', -- nvarchar(max) @Fl_Autentica_Proxy = 0, -- bit @Ds_Headers = @Cabecalhos, -- nvarchar(max) @Qt_Segundos_Timeout = 30, -- int @Ds_Retorno_OUTPUT = @Ds_Retorno_OUTPUT OUTPUT -- nvarchar(max) -- Mostro o retorno da requisição na tela SELECT @Ds_Retorno_OUTPUT |
Resultado no grupo:
Como recuperar a lista de transmissões disponíveis para a sua conta
Quase idêntico à listagem de grupos da conta, o script abaixo permite listar as listas de transmissões disponíveis para envio através da API:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 |
-- ALTERAR CONFORME NECESSIDADE DECLARE @Chave VARCHAR(100) = 'Voz5dWkr5EEhBAbYuwJ2', @Usuario VARCHAR(100) = 'user', @Senha VARCHAR(100) = 'api' -- PARÂMETROS FIXOS DECLARE @Ds_Retorno_OUTPUT NVARCHAR(MAX), @Url VARCHAR(MAX) = 'http://api.meuaplicativo.vip:13005/services/broadcast_search?line=5527981049976&AccessKey=' + @Chave, @source VARBINARY(MAX) = CONVERT(VARBINARY(MAX), @Usuario + ':' + @Senha), @Autorizacao VARCHAR(500), @Cabecalhos VARCHAR(MAX) -- Gero a string base64 com o usuário e senha da API SET @Autorizacao = 'Basic ' + CAST('' AS XML).value('xs:base64Binary(sql:variable("@source"))', 'varchar(max)') SET @Cabecalhos = 'Authorization:: ' + @Autorizacao -- Lista os grupos disponíveis para a minha conta EXEC dbo.stpWs_Requisicao @Ds_Url = @Url, -- nvarchar(max) @Ds_Metodo = N'GET', -- nvarchar(max) @Ds_Parametros = NULL, -- nvarchar(max) @Ds_Codificacao = N'utf-8', -- nvarchar(max) @Ds_Accept = N'', -- nvarchar(max) @Ds_ContentType = N'application/x-www-form-urlencoded', -- nvarchar(max) @Fl_Autentica_Proxy = 0, -- bit @Ds_Headers = @Cabecalhos, -- nvarchar(max) @Qt_Segundos_Timeout = 30, -- int @Ds_Retorno_OUTPUT = @Ds_Retorno_OUTPUT OUTPUT -- nvarchar(max) SELECT conteudo.id, conteudo.descricao FROM OPENJSON(@Ds_Retorno_OUTPUT, '$') WITH ( [root] NVARCHAR(MAX) AS JSON ) AS elemento CROSS APPLY OPENJSON(elemento.[root]) WITH( id VARCHAR(200), descricao VARCHAR(500) ) AS conteudo |
Resultado:
E aí, gostou dessa dica? Agora você já pode criar alertas, monitoramentos, enviar anexos, mensagens para grupos, listas de transmissão e até mesmo bot’s utilizando essa API e totalmente integrado ao seu banco de dados.
Grande abraço e até a próxima!
Portuguese 
English
Olá Dirceu.
Fiz o teste, porém o meu banco retornou a seguinte mensagem de erro:
Msg 6522, Nível 16, Estado 1, Procedimento stpWs_Requisicao, Linha 0 [Linha de Início do Lote 0]
Ocorreu um erro de .NET Framework durante a execução da rotina ou do agregado definido pelo utilizador “stpWs_Requisicao”:
System.ApplicationException: Unable to connect to the remote server
System.ApplicationException:
at StoredProcedures.stpWs_Requisicao(SqlString Ds_Url, SqlString Ds_Metodo, SqlString Ds_Parametros, SqlString Ds_Codificacao, SqlString Ds_Accept, SqlString Ds_ContentType, SqlBoolean Fl_Autentica_Proxy, SqlString Ds_Headers, SqlInt32 Qt_Segundos_Timeout, SqlString& Ds_Retorno_OUTPUT)
.
(1 linha afetada)
Horário de conclusão: 2024-02-08T09:56:45.7889985-03:00