Como enviar SMS a partir do Visual Basic

A forma mais simples de enviar SMS a partir do Visual Basic é utilizar a API HTTP/Rest de SMS integrada do Ozeki SMS Gateway. Ao utilizar esta API, irá enviar mensagens SMS através de um pedido HTTP Post para o gateway de SMS. O pedido HTTP Post irá conter uma mensagem formatada em formato json. O gateway de SMS irá enviar este SMS para o telefone do destinatário e devolverá uma resposta HTTP 200 OK ao seu pedido.

como enviar um sms a partir do visual basic
Figura 1 - Como enviar um SMS a partir do Visual Basic

Exemplo de código para enviar SMS em Visual Basic Program.vb 
Imports Ozeki.Libs.Rest

Module Program
    Sub Main(args As String())

        Dim configuration As New Configuration
        configuration.Username = "http_user"
        configuration.Password = "qwe123"
        configuration.ApiUrl = "http://127.0.0.1:9509/api"

        Dim msg As New Message
        msg.ToAddress = "+36201111111"
        msg.Text = "Olá, Mundo!"

        Dim api = New MessageApi(configuration)

        Dim result = api.Send(msg)

        Console.WriteLine(result)
        Console.ReadKey()

    End Sub
End Module
Transferir SendSms.vb

O código fonte explicado neste artigo pode ser transferido, utilizado e modificado gratuitamente.
Transferir: SendSms.vb.zip (48.6Kb)

O que está no ficheiro SendSms.vb.zip?

O ficheiro SendSms.vb.zip contém a biblioteca Ozeki.Libs.Rest, que fornece todas as ferramentas necessárias para enviar e receber mensagens SMS. Também encontrará o projeto SendSms no zip, que contém o código de exemplo para mostrar como enviar um SMS. Este código de exemplo está listado abaixo.

Figura 2 - O que está dentro de SendSms.vb.zip

Como enviar SMS a partir do Visual Basic (Passos rápidos)

Para enviar SMS a partir do Visual Basic:

  1. Instale o Ozeki SMS Gateway
  2. Ligue o Ozeki SMS Gateway à rede móvel
  3. Envie um SMS de teste a partir da interface gráfica do Ozeki
  4. Crie um utilizador de API HTTP para SMS
  5. Inicie o Visual Studio
  6. Crie uma solução chamada Send-SMS.sln
  7. Adicione um projeto de consola em Visual Basic: Send-SMS.vbproj
  8. Coloque o código em Program.vb ou Send-SMS.vb
  9. Crie uma função em Visual Basic chamada Send_SMS
  10. Crie os dados Json para o SMS
  11. Crie um pedido HTTP para enviar o SMS
  12. Leia a resposta HTTP
  13. Escreva a resposta na consola
  14. Verifique os registos no gateway de SMS
Instale o Ozeki SMS Gateway e crie um utilizador de API HTTP

Para poder enviar SMS a partir do Visual Basic, primeiro precisa de instalar o Ozeki SMS Gateway. O gateway de SMS pode ser instalado no mesmo computador onde desenvolve o seu código em Visual Basic no Visual Studio. Após a instalação, o próximo passo é ligar o Ozeki SMS Gateway à rede móvel. Pode enviar um SMS de teste a partir da interface gráfica do Ozeki para verificar se a sua ligação à rede móvel está a funcionar. O passo final para preparar o seu ambiente é criar um utilizador de API HTTP para SMS. Crie um utilizador com o nome de utilizador "http_user" e com a palavra-passe "qwe123" para fazer o exemplo funcionar sem modificações.

Após o ambiente estar configurado, pode executar o seu código em Visual Basic.

URL da API HTTP para enviar SMS a partir do Visual Basic

Para enviar SMS a partir do Visual Basic, o seu Visual Basic terá de fazer um pedido HTTP para o gateway de SMS. O URL da API é mostrado abaixo. Note que o endereço IP (127.0.0.1) deve ser substituído pelo endereço IP do seu gateway de SMS. Se o Ozeki SMS Gateway estiver instalado no mesmo computador onde a aplicação de SMS em Visual Basic está a ser executada, pode ser 127.0.0.1. Se estiver instalado num computador diferente, deve ser o endereço IP desse computador. 

http://127.0.0.1:9509/api?action=rest
Autenticação HTTP para enviar SMS a partir do Visual Basic

Para autenticar o cliente de SMS em Visual Basic, precisa de enviar o nome de utilizador e a palavra-passe numa string codificada em base64 para o servidor num pedido HTTP. O formato utilizado é: base64(nome de utilizador+":"+palavra-passe). Em C# pode utilizar o seguinte código para fazer esta codificação: 

var encoding = Encoding.GetEncoding("iso-8859-1");
var usernamePassword = username + ":" + password;
var usernamePasswordEncoded = Convert.ToBase64String(encoding.GetBytes(usernamePassword));

Por exemplo, se codificar o nome de utilizador 'http_user' e a palavra-passe 'qwe123', irá obter a seguinte string codificada em base64: aHR0cF91c2VyOnF3ZTEyMw==. Para enviar

Cabeçalho do pedido HTTP para enviar SMS a partir do Visual Basic

Para enviar as mensagens SMS, precisa de incluir as seguintes linhas como cabeçalhos no pedido HTTP. Note que incluímos um cabeçalho de tipo de conteúdo e um cabeçalho de Autorização. 

Content-Type: application/json
Authorization: Basic QWxhZGRpbjpvcGVuIHNlc2FtZQ==

Solicitação HTTP para enviar SMS do Visual Basic

Para enviar o SMS, sua aplicação em Visual Basic enviará uma solicitação HTTP semelhante à mostrada abaixo. Observe que esta solicitação contém uma parte de cabeçalho HTTP e uma parte de corpo HTTP. O corpo HTTP é uma string de dados codificada em JSON. Ela contém o número do destinatário e o texto da mensagem. 

POST /api?action=sendmsg HTTP/1.1
Connection: Keep-Alive
Content-Length: 336
Content-Type: application/json
Authorization: Basic aHR0cF91c2VyOnF3ZTEyMw==
Host: 127.0.0.1:9509

{
  "messages": [
    {
      "message_id": "4b486234-1dde-4975-b233-47267e988287",
      "to_address": "+36201111111",
      "text": "Olá, Mundo!",
      "create_date": "2021-06-11 14:19:47",
      "valid_until": "2021-06-18 14:19:47",
      "time_to_send": "2021-06-11 14:19:47",
      "submit_report_requested": true,
      "delivery_report_requested": true,
      "view_report_requested": true,
      "tags": []
    }
  ]
}

Resposta HTTP recebida pelo exemplo de SMS em Visual Basic

Assim que o gateway de SMS receber esta solicitação, ele gerará uma resposta HTTP. A resposta HTTP conterá um código de status, para indicar se a solicitação de envio de SMS foi bem-sucedida ou não. Ela também retornará uma estrutura codificada em JSON para fornecer detalhes úteis sobre o envio da mensagem. 

HTTP/1.1 200 OK
User-Agent: OZEKI 10.3.118 (www.myozeki.com)
Content-Type: application/json; charset=utf8
Last-Modified: Fri, 11 Jun 2021 08:44:45 GMT
Server: 10/10.3.118
Transfer-Encoding: chunked

{
  "http_code": 200,
  "response_code": "SUCCESS",
  "response_msg": "Mensagens enfileiradas para entrega.",
  "data": {
    "total_count": 1,
    "success_count": 1,
    "failed_count": 0,
    "messages": [
      {
        "message_id": "7e4fa89b-df8a-4267-afe3-da348bf200ef",
        "from_station": "%",
        "to_address": "+36201111111",
        "to_station": "%",
        "text": "Olá, Mundo!",
        "create_date": "2021-06-11 14:19:47",
        "valid_until": "2021-06-18 14:19:47",
        "time_to_send": "2021-06-11 14:19:47",
        "submit_report_requested": true,
        "delivery_report_requested": true,
        "view_report_requested": false,
        "tags": [
          {
            "name": "Type",
            "value": "SMS:TEXT"
          }
        ],
        "status": "SUCCESS"
      }
    ]
  }
}

Como enviar SMS do Visual Basic (Tutorial em vídeo)

Este vídeo mostra como criar um novo projeto de console .Net core no Visual Studio, como nomeá-lo para Send-SMS.sln. Uma vez que a solução é criada, você pode notar que um Send-SMS.vbproj é adicionado à solução, e por padrão o arquivo Program.cs é aberto. Você pode renomear o Program.vb para Send-SMS.vb se desejar. Você também verá no vídeo como o código de exemplo abaixo pode ser copiado para o arquivo Send-SMS.vb, e como ele pode ser compilado e executado.

Vídeo 1 - Como baixar e abrir a solução (Tutorial em vídeo)

SendSms.sln

O código de exemplo abaixo faz parte da Solução do Visual Studio SendSms.sln. Uma solução do Visual Studio pode conter múltiplos projetos e múltiplos arquivos. Nesta solução há apenas dois projetos: SendSms.vbproj, Ozeki.Libs.Rest.csproj, e um arquivo: Program.vb.

Figura 3 - SendSms.sln

Como verificar se o SMS foi aceito pelo usuário HTTP

Após o SMS ter sido enviado, é uma boa ideia verificar seu gateway de SMS, para ver o que foi recebido. Você pode verificar o log abrindo os detalhes do usuário HTTP no console de gerenciamento do Ozeki SMS Gateway. O vídeo a seguir mostra o que procurar.

Vídeo 2 - Como enviar SMS com o código em Visual Basic acima (Tutorial em vídeo)

Como verificar se o SMS foi enviado para a rede móvel

O passo final para verificar o procedimento é dar uma olhada nos logs da conexão com a rede móvel. Você pode precisar ativar o registro na configuração da conexão antes de enviar a mensagem para ver os logs. Se o registro estiver ativado, você verá o número de telefone e o texto da mensagem que você enviou.

Vídeo 3 - Como ativar o registro no Ozeki SMS Gateway (Tutorial em vídeo)

Executando o exemplo de SMS em Visual Basic no Windows

Quando você usa o Windows para executar este exemplo de SMS escrito em Visual Basic, você notará que obtém um desempenho ligeiramente melhor do que quando o executa no Linux. Para entender por que isso acontece, você deve lembrar que o Visual Basic usa o framework .NET para execução de código. Isso ocorre porque a implementação do .NET no Windows é otimizada para desempenho, enquanto o mono, a implementação do .NET no Linux, ainda tem um caminho a percorrer nesse campo.

Resumo

O guia acima explicou os passos para envio de SMS a partir do Visual Basic. Ozeki fornece todo o conhecimento e ferramentas para facilitar o seu trabalho. Se os passos foram seguidos cuidadosamente, enviar mensagens para clientes móveis a partir do VB com a ajuda do Ozeki SMS Gateway não deve ser complicado. O alto desempenho do Ozeki SMS Gateway permite enviar até 1000 SMS por segundo.

Certifique-se de continuar lendo na página de tutoriais da Ozeki, onde há informações sobre tópicos similares, como recebimento no VB.

A próxima coisa a fazer é baixar o Ozeki SMS Gateway e começar a trabalhar!

More information