Para ver algún ejemplo os pongo la dirección de vodafone empresas:
http://mensaredempresas.vodafone.es/
Andrés González desde Mallorca
Andrés,
Aqui tienes el ejemplo:
el código fuente de GetPostData() aqui:
Que rápido eres Antonio, muchas gracias. Tengo pendiente el tema de la actualización pero en la administración siempre van muy lentos.
#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<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"> </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ó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ñ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)"> <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>Antonio, estoy un poco perdido en este tema ¿Sabes donde puedo encontrar información sobre este tema?
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
<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"> <? 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"> <? echo $HTTP_POST_VARS['last'] ?></font></td>
</tr>
</table></td>
</tr>
</table>
</form>
<br>
<br>
</body>
</html><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ñ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)"> <input
type="reset" class="redBtn" value="Cancelar"></FORM>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 ?
#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 nilAndré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 ![]()
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 ![]()
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.
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.
&&&&