AJUDA COM ESSE CODIGO :)
Olá galera, seguinte: Alguem sabe como passar esse código logo abaixo, para VB.net para que eu possa entender e usar ?
é para envio de SMS, fiz o cadastro na Komunique tenho Id e Tokem, mas eles não tem documentação para VB.net, só me passaram isso , abaixo :
Tb tenho outro código em PHP em outro servidor de SMS, que tb não sei como passar para VB.Net, segue logo abaixo do primeiro código.
Agradeço de coração a ajuda. :)
------------------------------------------------------------------------------------------------------
const axios = require("axios");
const headers = {
"app-id": "00000000-0000-0000-0000-000000000000",
"app-token": "00000000000000000000000000000000"
}
axios.post("https://api.komunique.com.br/v1/sms",
{
"destination_number": "+55987654321",
"message": "Hello SMS"
},
{ headers: headers }
).then(function (response) {
console.log(response);
});
--------------------------------------------------------------------------------------------------
PHP
<?php
$ch = curl_init();
$data = array("key" => "SUA_CHAVE_KEY",
"type" => "9", //(9-Sms
"number" => "11988887777",
"msg" => "Teste de envio.",
"out" => "json" //Se desejar retorno em json ou xml
);
curl_setopt($ch, CURLOPT_URL, "https://api.smsempresa.com.br/v1/send");
curl_setopt($ch, CURLOPT_POST, true);
curl_setopt($ch, CURLOPT_POSTFIELDS, $data);
curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
$res = curl_exec ($ch);
$err = curl_errno($ch);
$errmsg = curl_error($ch);
$header = curl_getinfo($ch);
curl_close($ch);
print_r($res);
?>
é para envio de SMS, fiz o cadastro na Komunique tenho Id e Tokem, mas eles não tem documentação para VB.net, só me passaram isso , abaixo :
Tb tenho outro código em PHP em outro servidor de SMS, que tb não sei como passar para VB.Net, segue logo abaixo do primeiro código.
Agradeço de coração a ajuda. :)
------------------------------------------------------------------------------------------------------
const axios = require("axios");
const headers = {
"app-id": "00000000-0000-0000-0000-000000000000",
"app-token": "00000000000000000000000000000000"
}
axios.post("https://api.komunique.com.br/v1/sms",
{
"destination_number": "+55987654321",
"message": "Hello SMS"
},
{ headers: headers }
).then(function (response) {
console.log(response);
});
--------------------------------------------------------------------------------------------------
PHP
<?php
$ch = curl_init();
$data = array("key" => "SUA_CHAVE_KEY",
"type" => "9", //(9-Sms
"number" => "11988887777",
"msg" => "Teste de envio.",
"out" => "json" //Se desejar retorno em json ou xml
);
curl_setopt($ch, CURLOPT_URL, "https://api.smsempresa.com.br/v1/send");
curl_setopt($ch, CURLOPT_POST, true);
curl_setopt($ch, CURLOPT_POSTFIELDS, $data);
curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
$res = curl_exec ($ch);
$err = curl_errno($ch);
$errmsg = curl_error($ch);
$header = curl_getinfo($ch);
curl_close($ch);
print_r($res);
?>
Galera consegui resolver. Vou deixar o código aqui caso mais alguem precise criar algo para enviar SMS. Código em VB.NET
Tem um site incrivel, vc paga 5 dollares por mes, e ele converte qualquer código para outro qualquer código, adorei. Eu só converti ae copiei colei
e funcionou perfeitamente. o site é https://codeconverter.com/
O servidor que uso para enviar SMS é o www.komunique.com.br
A vantagem desse site é que vc pode comprar créditos a partir de R$ 20,00
Segue o código:
app-id: é o ID de sua conta na komunique
app-token: é a sua chave na komunique
txtfoneEmpresa.Text é um Textbox para o Fone
txtmsgEmpresa.Text é um Texbox para a mensagem (deve ser Multiline)
"--------------------------------------------------------------------------------------------------------
Imports System.Net
Imports System.Text
Imports System.Security.Authentication
Imports System.Net.Http
Public Class Form1
Const _Tls12 As SslProtocols = DirectCast(&HC00, SslProtocols)
Const Tls12 As SecurityProtocolType = DirectCast(_Tls12, SecurityProtocolType)
Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
ServicePointManager.Expect100Continue = True
ServicePointManager.SecurityProtocol = Tls12
Dim client As New HttpClient()
client.DefaultRequestHeaders.Add("app-id", "00000000000000000000000000")
client.DefaultRequestHeaders.Add("app-token", "0000000000000000000000000000")
Dim content As New FormUrlEncodedContent(New Dictionary(Of String, String) From {
{"destination_number", txtfoneEmpresa.Text},
{"message", txtmsgEmpresa.Text}
})
Dim response As HttpResponseMessage = Await client.PostAsync("https://api.komunique.com.br/v1/sms", content)
Dim responseString As String = Await response.Content.ReadAsStringAsync()
Console.WriteLine(responseString)
End Sub
End Class
Tem um site incrivel, vc paga 5 dollares por mes, e ele converte qualquer código para outro qualquer código, adorei. Eu só converti ae copiei colei
e funcionou perfeitamente. o site é https://codeconverter.com/
O servidor que uso para enviar SMS é o www.komunique.com.br
A vantagem desse site é que vc pode comprar créditos a partir de R$ 20,00
Segue o código:
app-id: é o ID de sua conta na komunique
app-token: é a sua chave na komunique
txtfoneEmpresa.Text é um Textbox para o Fone
txtmsgEmpresa.Text é um Texbox para a mensagem (deve ser Multiline)
"--------------------------------------------------------------------------------------------------------
Imports System.Net
Imports System.Text
Imports System.Security.Authentication
Imports System.Net.Http
Public Class Form1
Const _Tls12 As SslProtocols = DirectCast(&HC00, SslProtocols)
Const Tls12 As SecurityProtocolType = DirectCast(_Tls12, SecurityProtocolType)
Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
ServicePointManager.Expect100Continue = True
ServicePointManager.SecurityProtocol = Tls12
Dim client As New HttpClient()
client.DefaultRequestHeaders.Add("app-id", "00000000000000000000000000")
client.DefaultRequestHeaders.Add("app-token", "0000000000000000000000000000")
Dim content As New FormUrlEncodedContent(New Dictionary(Of String, String) From {
{"destination_number", txtfoneEmpresa.Text},
{"message", txtmsgEmpresa.Text}
})
Dim response As HttpResponseMessage = Await client.PostAsync("https://api.komunique.com.br/v1/sms", content)
Dim responseString As String = Await response.Content.ReadAsStringAsync()
Console.WriteLine(responseString)
End Sub
End Class
Tópico encerrado , respostas não são mais permitidas