SMS-MT API HTTP GET

v_st_HTTPGET = "https://www.pw-api.com/sms/v_3_00/smspush/enviasms.aspx"
v_st_Parametros = "?" & _
"CREDENCIAL=" & Server.UrlEncode("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX") & _
"&TOKEN=" & Server.UrlEncode("123456") & _
"&PRINCIPAL_USER=" & Server.UrlEncode("MP") & _
"&AUX_USER=" & Server.UrlEncode("USUÁRIOAUX") & _
"&MOBILE=" & Server.UrlEncode("5521999999999") & _
"&SEND_PROJECT=" & Server.UrlEncode("S") & _
"&MESSAGE=" & Server.UrlEncode("Mensagem de Teste")
' Montagem da URL de chamada
v_st_HTTPGET &= v_st_Parametros
Dim v_obj_Request As System.Net.HttpWebRequest = _
DirectCast(System.Net.WebRequest.Create(v_st_HTTPGET), _
System.Net.HttpWebRequest)
Dim v_st_Cod_Retorno As String
Dim v_obj_Response As System.Net.WebResponse = _
v_obj_Request.GetResponse()
If Not IsNothing(v_obj_Response) Then
Dim v_obj_IOStream As New _
System.IO.StreamReader(v_obj_Response.GetResponseStream())
v_st_Cod_Retorno = v_obj_IOStream.ReadToEnd()
v_obj_IOStream.Close()
' Retorna o v_st_Cod_Retorno no formato: 999
If v_st_Cod_Retorno.Equals("000") Then
' Mensagem enviada ao MobiPronto com sucesso
Else
' Tratar o resultado de acordo com a tabela
' de Códigos de Retorno do MobiPronto
End If
Else
' Algum erro na chamada HTTP GET
End If

<?php
        $credencial= URLEncode("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"); //**Credencial da Conta 40 caracteres
        $token= URLEncode("123456"); //**Token da Conta 6 caracteres
        $principal = URLEncode("aaa");  //* SEU CODIGO PARA CONTROLE, não colocar e-mail
        $auxuser = URLEncode("AUX_USER"); //* SEU CODIGO PARA CONTROLE, não colocar e-mail
        $mobile= URLEncode("55XXNNNNNNNN"); //* Numero do telefone  FORMATO: PAÍS+DDD(DOIS DÍGITOS)+NÚMERO
        $sendproj = URLEncode("N"); //* S = Envia o SenderId antes da mensagem , N = Não envia o SenderId
        $msg="Teste para PHP."; // Mensagem
        $msg=mb_convert_encoding($msg, "UTF-8"); // Converte a mensagem para não ocorrer erros com caracteres semi-gráficos
        $msg = URLEncode($msg); 
        $response =fopen("https://www.pw-api.com/sms/v_3_00/smspush/enviasms.aspx?CREDENCIAL=".$credencial."& TOKEN=".$token."&PRINCIPAL_USER=".$principal."&AUX_USER=".$auxuser."&MOBILE=".$mobile."&SEND_PROJECT=".$sendproj."&MESSAGE=".$msg,"r");
        $status_code= fgets($response,4);
            echo "Codigo retornando do fopen=";
            echo $status_code;
        ?>

<%@ page import="java.net.*, java.io.*" %>
<%
String Credential = URLEncoder.encode("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX");
String Token = URLEncoder.encode("123456");
String MainUser = URLEncoder.encode("SEUPROJETO"); 
String AuxUser = URLEncoder.encode("AUX1");
String Mobile = URLEncoder.encode("552199999999");
char SendProject = URLEncoder.encode("S");
String Msg = "Seu Primeiro Envio de SMS via Java usado o Gateway Mobi Pronto.";
Msg = URLEncoder.encode(Msg, "UTF-8");
String connection =
"https://www.pw-api.com/sms/v_3_00/smspush/enviasms.aspx?CREDENCIAL="+
Credential + "&TOKEN="+ Token +"&PRINCIPAL_USER="+ MainUser +"&AUX_USER="+ AuxUser +"&MOBILE="+ Mobile
+"&SEND_PROJECT="+ SendProject +"&MESSAGE="+ Msg;
URL url = new URL(connection);
InputStream input = url.openStream();
byte[] b = new byte[4];
input.read(b, 0, b.length);
String RetornoMPG = new String(b);
out.println("Retorno = " + RetornoMPG);
%>

procedure TMain.Button1Click(Sender: TObject);
var
sret: String;
begin
IdHTTP1.Host := 'mobipronto.com';
IdHTTP1.Port := 80;
Memo1.Lines.Text := IdHTTP1.Get('
https://www.pw-api.com.com/sms/v_3_00/smspush/enviasms.aspx?
CREDENCIAL=XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX&TOKEN=123456
&PRINCIPAL_USER=SEUPROJETO
&AUX_USER=AUX1
&MOBILE=552199999999
&SEND_PROJECT=S
&MESSAGE=Teste SMS');
end;
end.