Enviar SMS via Web...

[Andrés González]

Lo dicho alguno tiene experiencia en interactuar con un servidor web que envie SMS del tipo los que utiliza Vodafone o similar. Mi intención es poder enviar mensajes cortos a móviles desde los programas. Recuerdo haber leído que se podía interactuar con un servidor web identificandose con usuario y password pero ahora no recuerdo el tema de que trataba alguno recuerda como se hace, creo que lo leí en el foro ingles, pero no lo encuentro.

Para ver algún ejemplo os pongo la dirección de vodafone empresas:
http://mensaredempresas.vodafone.es/

[Antonio Linares]

Andrés,

Aqui tienes el ejemplo:
http://forums.fivetechsupport.com/viewt ... 257#p63257

el código fuente de GetPostData() aqui:
http://forums.fivetechsupport.com/viewt ... 199#p63199

[Andrés González]

Que rápido eres Antonio, muchas gracias. Tengo pendiente el tema de la actualización pero en la administración siempre van muy lentos.

[Andrés González]

Antonio y compañeros, cuando intento acceder a la pagina de voda*fone parece que no se entera de los datos que le paso, creo que tengo que realizar alguna acción con el boton aceptar. Manualmente entro sin problema pero si lo hago mediante el programa solo me muestra la pagina de inicio, sin ni tan siquiera poner los datos en los gets. ¿Alguien sabe como activar dicho boton mediante el comando post o de otra forma?

Code: Select all

#include "FiveWin.ch"

function SendSMSI()

   local oWnd, oActiveX

   DEFINE WINDOW oWnd

   @ 0, 0 ACTIVEX oActiveX PROGID "Shell.Explorer" OF oWnd

   oWnd:oClient = oActiveX

   ACTIVATE WINDOW oWnd ;
      ON INIT oActiveX:Do( "Navigate2",;
                           "http://mensaredempresas.vodafone.es/",,,;
                           GetPostData( "enterprise=miempresa&login=milogin&password=mipassword" ),;
                           "Content-Type: application/x-www-form-urlencoded" + CRLF )

return nil

NOTA: Los datos de empres, login y password no son los reales en el codigo



Viendo el codigo html deduzco que los datos que tengo que sustituir son los siguientes, pero ignoro que tengo que hacer para que el submit se ejecute:

Code: Select all

<TABLE bgcolor=#ffffff border="0" cellpadding="0" cellspacing="0"

    width="759"> 
    <TBODY> 
        <TR> 
            <TD><IMG height="1" src="imagenes/pixel.gif" width="14"></TD> 
            <TD width="164" valign="top">&nbsp;</TD> 
 
            <TD width="7"><img src="imagenes/pixel.gif" width="7" height="1"></TD> 
            <TD width="403" valign="top" class="txtGrey"> 
 
            <table width="395" height="18" border="0" cellpadding="0"

                cellspacing="0" background="css/imagenes_css/dot_red.gif"> 
                <tr> 
 
                    <td class="TopLevelRed">Validaci&oacute;n Usuario</td> 
                </tr> 
            </table> 
            <br> 
            <FORM name="form1" method="post" action="servlet/AuthenUserServlet"> 
            <span class="txtGrey">Empresa:</span><br> 
            <input name="enterprise" type="text" class="txtBlack" size="20"> 
            <br> 
            <br> 
            <span class="txtGrey">Usuario:</span><br> 
            <input name="login" type="text" class="txtBlack" size="20"> <br> 
            <br> 
            <span class="txtGrey">Contrase&ntilde;a:</span><br> 
            <input name="password" type="password" class="txtBlack" size="20"> 
            <br> 
            <br> 
            <br> 
            <input type="submit" class="redBtn" value="Aceptar"

                onSubmit="javascript&#058;checkParams(document.form1)">&nbsp;<input

                type="reset" class="redBtn" value="Cancelar"></FORM> 
            </TD> 
 
            <TD width="7"><img src="imagenes/pixel.gif" width="7" height="1"></TD> 
            <TD width="164" valign="top"><br> 
            </TD> 
            <TD><IMG height="1" src="imagenes/pixel.gif" width="15"></TD> 
        </TR> 
    </TBODY> 
</TABLE>

[Andrés González]

Antonio, estoy un poco perdido en este tema ¿Sabes donde puedo encontrar información sobre este tema?

[sjingo]

Hola amigos

Estoy buscando algo similar, lo que quiero es enviar mensages de texto desde una aplicación en FW+Harbour hacia teléfonos celulares (móviles), se puede?. O si no es posible crear un programita que envíe mensages de pc a pc en una red local. Por favor alguien me puede ayudar.

Gracias

Marcelo Jingo

[Antonio Linares]

Andrés,

La idea no es que se rellenen _ y que se pulse el botón de enviar, sino que se envien los datos directamente.

Fijate en el código de test.php que es el que recibe los datos:

Code: Select all

<html>
<head>
<title>:: FiveTech Software :: HTTPS Post test</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<style type="text/css">
BODY {
     SCROLLBAR-SHADOW-COLOR: #000000;   SCROLLBAR-ARROW-COLOR: #ffffff;   SCROLLBAR-BASE-COLOR: #000000;  scrollbar-3d-light-color: #800000; scrollbar-dark-shadow-color: #800000
}

</style>
<body background="../images/back.jpg" bgcolor="#000000">
    
<font color="#FFFFFF" size="3" face="Verdana, Arial, Helvetica, sans-serif">This is a HTTPS post test. Please check your supplied data:</font><br>
<form name="form1">
  <table width="721">
    <tr> 
      <td><table border="0" bordercolor="#FFFFFF">
          <tr> 
            <td width="101"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">First:</font></td>
            <td width="248"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;<? echo $HTTP_POST_VARS['first'] ?></font></td>
          </tr>
          <tr> 
            <td><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Last:</font></td>
            <td><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;<? echo $HTTP_POST_VARS['last'] ?></font></td>
          </tr>
        </table></td>
    </tr>
  </table>
</form>
<br>
<br>
</body>
</html>
 

En $HTTP_POST_VARS['first'] y en $HTTP_POST_VARS['last'] estan los datos enviados a una zona segura HTTPS

Es decir, tu tienes que enviar los datos a donde los envia la página

[Andrés González]

Gracias Antonio, el problema que veo es que ignoro la forma de actuar con el servidor. El ejemplo que tenias en el foro ingles parece que lo unico que hace es sustituir dos variables que tienes en el codigo con los datos que tu le mandas. Entiendo pues que lo que hace el servidor una vez enviados los datos es mostrarlos en la página pero con los datos que tu le has proporcionado, vamos similar a como lo hace un comando SAY. No se si voy equivocado pero lo que yo tengo ya no es el mostar datos sino validarlos, osea lo que haria un GET, ya que _ que tengo que sustituir son unos gets que aparecen como:

Code: Select all

<FORM name="form1" method="post" action="servlet/AuthenUserServlet"> 
            <span class="txtGrey">Empresa:</span><br> 
            <input name="enterprise" type="text" class="txtBlack" size="20"> 
            <br> 
            <br> 
            <span class="txtGrey">Usuario:</span><br> 
            <input name="login" type="text" class="txtBlack" size="20"> <br> 
            <br> 
            <span class="txtGrey">Contrase&ntilde;a:</span><br> 
            <input name="password" type="password" class="txtBlack" size="20"> 
            <br> 
            <br> 
            <br> 
            <input type="submit" class="redBtn" value="Aceptar"

                onSubmit="javascript&#058;checkParams(document.form1)">&nbsp;<input

                type="reset" class="redBtn" value="Cancelar"></FORM>

Bueno, son gets que forman parte del formulario para poder acceder a la pagina principal, ya que el comando de javascript parece que se encarga de validarlos. El problema principal es que no se por donde coger el tema. He leido en el foro ingles que esto es un avance muy importante pero ignoro qué es lo que tengo que hacer. Segun entendia lo que tenia que hacer era ver el codigo de la pagina y luego sustiuir las variables por los datos correctos, pero veo que ahora tu has introducido el tema de mandar los datos a una zona segura. ¿La pregunta es cómo averiguo esto? ¿Me los tiene que proporcionar los de vodafone o hay forma de averiguarlo?.

Por otra parte, ya que nadie nace enseñado, hay algún libro o lectura previa de referencia para no estar tan perdido como un pulpo en un garaje. También entiendo que esto puede ser un paso muy importante, pero como has podido ver hay varios trozos de código a cual mas distinto y que según parece hacen lo mismo pero aun no he conseguido ni tan siquiera superar la página inicial.

[Antonio Linares]

Andrés,

Cuando rellenas los datos en esa página y pulsas al botón de enviar (ó aceptar) a que dirección se estan enviando los datos ?

Eso es lo primero que tienes que identificar.

Que página de vodafone es ? Podemos acceder a ella ?

[Andrés González]

En mi primer mensaje ya tienes la dirección pero la vuelvo a poner aqui.
http://mensaredempresas.vodafone.es/
Pero claro para hacer el ejemplo necesitas los datos de empresa usuario y password. Voy a mirar y luego comento cosas.

[Andrés González]

Gracias a tu consejo ya he conseguido identificarme y que me muestre el estado de mi cuenta de SMS. El problema era que hacia la identificacion en la pagina principal y como tu has dicho, si lo hago sobre la que me muestra los datos funciona. Os dejo el ejemplo:

Code: Select all

#include "FiveWin.ch"

function SendSMSI()

   local oWnd, oActiveX

   DEFINE WINDOW oWnd

   @ 0, 0 ACTIVEX oActiveX PROGID "Shell.Explorer" OF oWnd

   oWnd:oClient = oActiveX

   ACTIVATE WINDOW oWnd ;
      ON INIT oActiveX:Do( "Navigate2",;
                           "http://mensaredempresas.vodafone.es/servlet/AuthenUserServlet",,,;
                           GetPostData( "enterprise=miempresa&login=miuser&password=mipas" ),;
                           "Content-Type: application/x-www-form-urlencoded" + CRLF )

return nil

Los datos de empresa,login y password deben de cambiarse por los correctos.

Bueno sigo investigando para ver como puedo mandar el SMS. Hasta ahora solo he conseguido identificarme y que me muestre el estado de todos los SMS (Enviados, recibidos...).

Si se te ocurre que información o libros tengo que leer al respecto para empaparme del tema, dime cosas.

[Antonio Linares]

Andrés,

Estupendo, vamos avanzando!

No tengo documentación al respecto. Quien por lo visto más sabe de esto en los foros es Davide Guolo. Gracias a él pude construir ese ejemplo

[Antonio Linares]

Andrés,

Imagino que el proceso ahora, tras identificarte, es llegar a la página desde donde se envian los mensajes y repetir el proceso de enviar los datos

[Andrés González]

Efectivamente Antonio, por ahi van los tiros. Pero, el problema real es que ahora ya hay que analizar el codigo y eso es lo dificil. Antes con solo cambiar la dirección a la que aparecia una vez mandado la identificación funcionó a la primera, pero ahora, ese dato no cambia, o al menos yo no se como cambia puesto que en la barra de dirección no cambia. Estoy intentando ver el codigo con el nuevo navegador chrome de google ya que en ese sentido tiene hasta un explorador del objeto que estas editando y ves todo el codigo sin problema. Bueno sigo haciendo pruebas.

[pymsoft]

Andres, prueba a usar uno de los tantos clones de betamax, que te permiten mandar sms. (no lo he usado asi, pero pareceria no ser tan dificil)

https://www.poivy.com/myaccount/sendsms ... xxxxxxxxx​ &password=xxxxxxxxxx&from=xxxxxxxxxx&to=xxxxxxxxxx&text=xxxxxxxxxx


http://www.poivy.com/en/sms_instructions.html



Saludos

espero te sirva.