ENVIAR SMS PELO VB.NET
Imports HumanAPIClient.Service
Imports HumanAPIClient.Model
Imports HumanAPIClient.Util.Exceptions
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim account As String = [Ô]sua conta[Ô]
Dim code As String = [Ô]seu codigo[Ô]
Dim client As New SimpleSending(account, code)
Dim message As New SimpleMessage()
message.To = TextBox1.Text
message.Message = TextBox2.Text
message.Id = [Ô]0002[Ô]
Try
Dim response As List(Of String) = client.send(message)
For Each resp As String In response
MsgBox(resp)
Next
Catch ex As ClientHumanException
MsgBox([Ô]Falha ao enviar mensagem[Ô])
End Try
End Sub
Citação::
Testei aqui com o zenvia...e foi de boa, solicitei uma conta pra teste e deu certo...
Imports HumanAPIClient.Service
Imports HumanAPIClient.Model
Imports HumanAPIClient.Util.Exceptions
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim account As String = [Ô]sua conta[Ô]
Dim code As String = [Ô]seu codigo[Ô]
Dim client As New SimpleSending(account, code)
Dim message As New SimpleMessage()
message.To = TextBox1.Text
message.Message = TextBox2.Text
message.Id = [Ô]0002[Ô]
Try
Dim response As List(Of String) = client.send(message)
For Each resp As String In response
MsgBox(resp)
Next
Catch ex As ClientHumanException
MsgBox([Ô]Falha ao enviar mensagem[Ô])
End Try
End Sub
Pois é, pedi meu cadastro no site e estou esperando eles me retornarem o e-mail pra testa...por enquanto vou iniciar um projeto para emissão de CTE (Conhecimento de Transporte Eletrônico)...
eu estava tentando por um site estrangeiro porque os valores são mais baixo.