CakePHP

Componente:

Você pode usar este componente para realizar o login e disparar mensagens

Código

SmsComponent.php {
	class SmsComponent extends Object {
		var $login	= 'seulogin';
		var $senha	= 'suasenha';
		
		function initialize() {
			//login
			$url			= "http://app.smsapi.com.br/contas/service.json";
			$dados['acao']		= 'login';
			$dados['usuario']	= $this->login;
			$dados['senha']		= $this->senha;
			
			$ch = curl_init();
			curl_setopt($ch, CURLOPT_URL, $url);
			curl_setopt($ch, CURLOPT_POST, true);
			curl_setopt($ch, CURLOPT_POSTFIELDS, $dados);
			curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
			$response = json_decode(curl_exec($ch), true);
			$this->chave		= $response['retorno']['chave'];
			return $response;
		}
		function startup() {}
		function beforeRender() {}
		function beforeRedirect() {}
		function shutdown() {}

		function enviar($destinos, $texto) {
			if ( !is_array($destinos) )
				$destinos	= array($destinos);
				
			$url			= "http://app.smsapi.com.br/mensagens/service.json";
			$dados['acao']		= 'enviar';
			$dados['destinos']	= json_encode($destinos);
			$dados['texto']		= $texto;
			$dados['chave']		= $this->chave;

			$ch = curl_init();
			curl_setopt($ch, CURLOPT_URL, $url);
			curl_setopt($ch, CURLOPT_POST, true);
			@curl_setopt($ch, CURLOPT_POSTFIELDS, $dados);
			curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
			$retorno	= curl_exec($ch);
			$response 	= json_decode($retorno, true);
			return $response;
		}
	}
}

WinDev

Agradecimento ao Adriano Boller.

WxInformatica Ltda
Representante e Distribuidor Oficial da PcSoft no Brasil
http://wxinformatica.blogspot.com.br
adrianoboller@gmail.com
55 41 9949 1800

Você pode usar este código para integrar com sua aplicação e disparar mensagens

Código

//Envia registro atual
sResposta is string
IF gsDDD <> "" AND gsCELULAR <> "" THEN
 
   Info(gsDDD,gsCELULAR)

 informacoes is string = "acao=login&usuario={SEU_USUARIO}&senha={SUA_SENHA}"
 
 ResStart is boolean = HTTPRequest("http://app.smsapi.com.br/contas/service.json","SMSAPI","",informacoes)
 IF ResStart = True THEN
  sResposta  = "HTML code: " + HTTPGetResult() + "
" sResposta += "Header: " + HTTPGetResult(httpHeader) + "
" sResposta += "Cookie: " + HTTPGetResult(httpCookie) Info(sResposta) END EDT_Retorno = sResposta informacoes = "acao=enviar&destinos=@destinos@&texto=@texto@&chave=@chave@" informacoes = Replace(informacoes,"@destinos@","[55"+gsDDD+gsCELULAR+"]") informacoes = Replace(informacoes,"@texto@",EDT_Mensagem_SMS) informacoes = Replace(informacoes,"@chave@","{SUA_CHAVE}") ResStart = HTTPRequest("http://app.smsapi.com.br/mensagens/service.json","SMSAPI","",informacoes) IF ResStart = True THEN sResposta = "HTML code: " + HTTPGetResult() + "
" sResposta += "Header: " + HTTPGetResult(httpHeader) + "
" sResposta += "Cookie: " + HTTPGetResult(httpCookie) Info(sResposta) END EDT_Retorno = sResposta END