FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Enviar SMS via Web...
Posts: 632
Joined: Thu Jan 19, 2006 10:45 AM
Enviar SMS via Web...
Posted: Thu Sep 03, 2009 09:22 AM
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/
Saludos



Andrés González desde Mallorca
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Enviar SMS via Web...
Posted: Thu Sep 03, 2009 09:31 AM

Andrés,

Aqui tienes el ejemplo:

viewtopic.php?p=63257#p63257

el código fuente de GetPostData() aqui:

viewtopic.php?p=63199#p63199

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 632
Joined: Thu Jan 19, 2006 10:45 AM
Re: Enviar SMS via Web...
Posted: Thu Sep 03, 2009 09:33 AM

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

Saludos



Andrés González desde Mallorca
Posts: 632
Joined: Thu Jan 19, 2006 10:45 AM
Re: Enviar SMS via Web...
Posted: Sun Sep 06, 2009 09:13 AM
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 (fw): Select all Collapse
#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 (fw): Select all Collapse
<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: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>
Saludos



Andrés González desde Mallorca
Posts: 632
Joined: Thu Jan 19, 2006 10:45 AM
Re: Enviar SMS via Web...
Posted: Mon Sep 07, 2009 06:50 AM

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

Saludos



Andrés González desde Mallorca
Posts: 229
Joined: Sat Mar 18, 2006 03:42 PM
Re: Enviar SMS via Web...
Posted: Tue Sep 08, 2009 08:55 PM

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

Marcelo Jingo
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Enviar SMS via Web...
Posted: Wed Sep 09, 2009 03:12 PM
Andrés,

La idea no es que se rellenen los campos 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 (fw): Select all Collapse
<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
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 632
Joined: Thu Jan 19, 2006 10:45 AM
Re: Enviar SMS via Web...
Posted: Thu Sep 10, 2009 01:12 PM
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 los campos que tengo que sustituir son unos gets que aparecen como:
Code (fw): Select all Collapse
<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: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.
Saludos



Andrés González desde Mallorca
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Enviar SMS via Web...
Posted: Thu Sep 10, 2009 10:44 PM

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 ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 632
Joined: Thu Jan 19, 2006 10:45 AM
Re: Enviar SMS via Web...
Posted: Fri Sep 11, 2009 10:49 AM
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.
Saludos



Andrés González desde Mallorca
Posts: 632
Joined: Thu Jan 19, 2006 10:45 AM
Re: Enviar SMS via Web...
Posted: Fri Sep 11, 2009 12:16 PM
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 (fw): Select all Collapse
#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.
Saludos



Andrés González desde Mallorca
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Enviar SMS via Web...
Posted: Fri Sep 11, 2009 12:34 PM

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 :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Enviar SMS via Web...
Posted: Fri Sep 11, 2009 12:37 PM

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 :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 632
Joined: Thu Jan 19, 2006 10:45 AM
Re: Enviar SMS via Web...
Posted: Mon Sep 14, 2009 07:01 AM

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.

Saludos



Andrés González desde Mallorca
Posts: 383
Joined: Tue Oct 11, 2005 01:01 PM
Re: Enviar SMS via Web...
Posted: Mon Sep 14, 2009 10:40 AM

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 ... xxxxxxxxxx​ password=xxxxxxxxxxfrom=xxxxxxxxxxto=xxxxxxxxxxtext=xxxxxxxxxx

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

Saludos

espero te sirva.

&&&&
Pedro Gonzalez