Enviando mensagens no WhatsApp via Elipse E3/Power.

Este artigo demonstra como configurar e efetuar o envio de mensagens do aplicativo WhatsApp via aplicação Elipse E3/Power.

Primeiramente, é necessário saber que aplicativo para envio de mensagens WhatsApp disponibiliza uma API REST com formato de dados em JSON; isso, por sua vez, permite receber e enviar mensagens através da sua conta do WhatsApp.

A API segue o modelo HTTP padrão, baseado em solicitação e resposta.

API do WhatsApp

1. Primeiramente, é necessário obter o acesso ao WhatsApp API conectando o telefone ao serviço:

Este acesso é fornecido gratuitamente por 3 dias. Depois deste prazo de avaliação, é necessário contratar um plano.

2. Logo após, crie sua conta e realize login:

3. No painel do Chat API, será necessário autorizar o uso da API via WhatsApp Web. Para isso, você receberá um código QR na página principal da sua conta pessoal.

Então, seguindo as instruções, abra o WhatsApp no ​​seu celular, vá para «Configurações» -> WhatsApp Web -> Digitalizar código QR:

4. Após realizar a leitura do código QR, o status de autenticação aparecerá como “autenticado”, e será fornecido o URL e token da API para utilização no Elipse E3.

5. Para envio de uma mensagem de teste, acesse a opção API Docs do painel de administração e selecione “POST /sendMessage Send a message to a new or existing chat”. Em seguida, clique em “phone”, preencha os parâmetros phone * e body *, e então clique em SEND. O campo Request URL possui a url que deverá ser usada no pedido http (POST) via Elipse E3.

 

6. Em seguida, é informada a resposta de envio da requisição realizada:

 

Utilizando o WhatsApp com o Elipse E3/Power

1. Para realizar a escrita na API, utilizamos o objeto ServerXMLHTTP, que fornece métodos e propriedades que permitem estabelecer uma conexão HTTP entre arquivos ou objetos em diferentes servidores web. O script abaixo foi utilizado para enviar a mensagem ao telefone desejado:

Sub CommandButton1_Click()
  ''' The first parameter is the recipient's number, including the country code.
  ''' The second paramter is the content of the message.
  number = Screen.Item("spNumber").Value
  msg = Screen.Item("spMessage").Value

  WhatsAppMessage_Send number, msg   
End Sub

function WhatsAppMessage_Send(strNumber, strMessage)
  
 API_URL = "https://api.chat-api.com/instanceXXXXX/sendMessage?token=1cwm5fzehdrmvowc"
 strJson = "{""phone"": """ & strNumber & """, ""body"": """ & strMessage & """}"
    
   Set oHttp = CreateObject("Msxml2.ServerXMLHTTP")
   oHttp.Open "POST", API_URL, False
   oHttp.setRequestHeader "Content-type", "application/json"
   oHttp.Send strJson

  sHTML = oHttp.ResponseText
  MsgBox sHTML	
  end function

Sub Vazia()
End Sub

2. Após a solicitação de envio da mensagem, a seguinte resposta será exibida:

Utilizando o WhatsApp com o Elipse E3/Power via driver VBScript

1. Por questões de performance, podemos implementar o envio das mensagens utilizando o driver VBScript com a estrutura JSON, acrescentando as linhas abaixo:

DIM strMessage, strNumber, sHTML 

Sub OnWrite_Number(r, v)
strNumber = v.Value
End Sub

Sub OnRead_Number(r, v)
 v.Value = strNumber 
End Sub

Sub OnWrite_Message(r, v)
strMessage  = v.Value
End Sub

Sub OnRead_Message(r, v)
 v.Value = strMessage  
End Sub

Sub OnRead_Response(r, v)
v.Value = sHTML 
End Sub

Sub OnWrite_Send(r, v)
 API_URL = "https://api.chat-api.com/instanceXXXXX/sendMessage?token=1cwm5fzehdrmvowc"
 strJson = "{""phone"": """ & strNumber & """, ""body"": """ & strMessage & """}"
    
   Set oHttp = CreateObject("Msxml2.ServerXMLHTTP")
   oHttp.Open "POST", API_URL, False
   oHttp.setRequestHeader "Content-type", "application/json"
   oHttp.Send strJson

  sHTML = oHttp.ResponseText
End Sub

2. Então, crie quatro tags no Driver e configure-os através da coluna Item (propriedade ParamItem), conforme a figura abaixo:

 

Em conclusão, você encontrará no anexo deste artigo uma aplicação exemplo que foi desenvolvida no Elipse E3 v5.0.437.

Artigos Relacionados

---

• Enviando mensagens no Telegram via Elipse E3/Elipse Power.
• Consumindo e enviando dados de um Webservice que utiliza o formato JSON.

Anexos:

WhatsAppElipse.zip