VB .NET - Enviando SMS usando o serviço ViaNett


 Neste artigo vou mostrar como enviar SMS em uma aplicação VB .NET.

Existem diversos tipos de aplicativos que enviam SMS sendo os mais comuns. Alguns exemplos comuns são apresentados abaixo:

Além disso o SMS é uma tecnologia muito adequada para a entrega de alertas e notificações de eventos importantes podendo ser usada também como ferramenta de marketing.

Em geral, existem duas maneiras de você enviar mensagens SMS de um computador/PC para um telefone celular:

  1. Conectar um celular ou modem GSM/GPRS a um computador/PC. Em seguida, usar os comandos AT para instruir o celular ou modem GSM/GPRS a enviar mensagens SMS;
     
  2. Conectar o computador/PC a uma central de serviços SMS ou ao gateway SMS de uma operadora de telefonia móvel ou a  um provedor de serviços SMS. Em seguida, envie mensagens SMS usando um protocolo/interface suportado pelo serviço, provedor ou operadora.

Neste artigo eu vou usar a segunda opção e para iniciar vamos selecionar o serviço a ViaNett.

Para poder usar o serviço acesse o link  https://www.vianett.com/en/free-demonstration-account e fazer o cadastro preenchendo o formulário conforme mostra a figura abaixo:

Voce vai receber a sua senha de acesso na sua conta de email e terá cinco SMS para testar o serviço.

Com a sua conta configurada vamos testar o serviço no VB .NET.

Para ver o código de exemplo de utilização da API acesse esse link: http://www.vianett.com/en/developers/api-code-examples/vb-net

No exemplo deste artigo eu vou usar o Web Service SOAP cuja documentação você pode consultar nesta página : http://www.vianett.com/en/developers/api-documentation/web-services-soap-api

Nessa abordagem temos apenas que adicionar uma referência de serviço(add service reference) no nosso projeto apontando para a URL:  http://smsc.vianett.no/v3/cpa/cpawebservice.asmx

Recursos Usados:

Criando o projeto Windows Forms no VS Community 2017

Abra o VS 2017 Community e crie um projeto usando a opção : Visual Basic -> Windows Classic Desktop e selecione o template Windows Forms App (.NET Framework);

Informe o nome Vbnet_EnviaSMS1 e clique em OK.

No formulário Form1.vb inclua a partir da ToolBox os controles :

Disponha os controles conforme o leiaute da figura abaixo:

A seguir vamos incluir a referência ao serviço SOAP em nosso projeto. Vamos usar o serviço descrito neste link: http://smsc.vianett.no/v3/cpa/cpawebservice.asmx?op=SendSMS_Simple1

Clique com o botão direito do mouse sobre o nome do projeto e a seguir clique em Add Service Reference;

A seguir informe o endereço : http://smsc.vianett.no/v3/cpa/cpawebservice.asmx na janela Add Service Reference e clique no botão OK;

Pronto ! já podemos usar o serviço no projeto.

A seguir no evento Click do botão btnEnviarSMS inclua o código abaixo :

   Private Sub btnEnviarSMS_Click(sender As Object, e As EventArgs) Handles btnEnviarSMS.Click
        If String.IsNullOrEmpty(txtTelefone.Text) And String.IsNullOrEmpty(txtMensagem.Text) Then
            Try
                Using ViaNettClient = New ViaNett.CPAWebServiceSoapClient("CPAWebServiceSoap12")
                    Dim Resultado = ViaNettClient.SendSMS_Simple1("seu_usuario", "sua_senha", Convert.ToInt64(txtTelefone.Text.Replace("+", String.Empty)), txtMensagem.Text)
                End Using
                MessageBox.Show("Mensagem enviada para  : " & txtTelefone.Text)
            Catch ex As Exception
                MessageBox.Show("Erro : " & ex.Message)
            End Try
        End If
    End Sub

Como você pode conferir o código é bem simples. Apenas criamos uma instância do serviço e usamos o método SendSMS_Simple1.

Executando o projeto e informando o número do telefone e a mensagem e clicando no botão Enviar SMS:resultado:

Teremos a mensagem abaixo recebida no meu telefone indicado (o meu Celular) :

Testando mais uma vez só para conferir:

Tenho agora duas mensagens recebidas no meu celular conforme figura abaixo:

Como diria Sherlock Homes : "Elementar meu caro Watson !!!..."

Nota: O serviço não fica disponível 24 h.

Nosso exemplo é funcional, mas fere as boas práticas, e, na próxima parte do artigo vamos aplicar as boas práticas para tornar nosso projeto mais robusto de forma a no futuro podermos usar outros serviços para enviar SMS.

(Disse Jesus) O meu mandamento é este: Que vos ameis uns aos outros, assim como eu vos amei. 
João 15:12

Veja os Destaques e novidades do SUPER DVD Visual Basic (sempre atualizado) : clique e confira !

Quer migrar para o VB .NET ?

Quer aprender C# ??

Quer aprender os conceitos da Programação Orientada a objetos ?

Quer aprender o gerar relatórios com o ReportViewer no Visual Studio ?

Quer aprender a criar aplicações Web Dinâmicas usando a ASP .NET ?

 

Gostou ?   Compartilhe no Facebook   Compartilhe no Twitter

Referências:


José Carlos Macoratti