Saludos !
Estimados compañeros, podrian compartir sus experiencias con el envio de SMS a celulares con aplicacions desarrolladas con FWH, si existe alguna clase diseñada, un ejemplo de uso etc..
Muchisimas gracias de antemano
Cruz Alfredo Oses
Si no me equivoco es lo mismo que mandar un e-mail. No necesitas ninguna clase especial.
Saludos
cUrl := "http://041x.com/secure/insert.php?uname=usuario&pass=f398b69086c184f2be3d07afcfcfc7fe&num=04140000000&msg=Hola esto es una prueba"
oActiveX = TActiveX():New( oWnd, "Shell.Explorer" )
oActiveX:hide()
oActiveX:Do( "Navigate2", cUrl )
//sysrefresh()
while oActiveX:Document == nil
SysRefresh()
end
//aca el resultado
memoedit( oActiveX:Document:body:innerHTML )#include "fivewin.ch"
/* Función para usar la utilidad InfoCOM para gestionar puertos COM
--------------------------------------------------------------------------------- */
STATIC nPORTCOMSIM := 0
//------------------------------------------------------------------
//------------------------------------------------------------------
FUNCTION nGetCOMofSIM()
Local nContador := 0
Local nRespuesta := 0
For nContador := 0 To 20
//nRespuesta := ShellExecute( 0, "open", "c:\temp\infocom.exe", "COM" + AllTrim(Str(nContador, 3, 0 )) + " ICC", "", 1)
nRespuesta := Waitrun( "c:\temp\infocom.exe COM" + AllTrim(Str(nContador, 3, 0 )) + " ICC", 2 )
//Traza( 1, "nContador/nRespuesta:", nContador, "/", nRespuesta )
If nRespuesta = 0
nPORTCOMSIM := nContador
Exit
EndIf
EndFor
Return nContador
//------------------------------------------------------------------
//------------------------------------------------------------------
FUNCTION uSetPINSIM( nCom )
Local nPIN := 0
Local nRespuesta := 0
If nCom = 0
nCom := If( nPORTCOMSIM = 0, nGetCOMofSIM(), nPORTCOMSIM )
EndIf
MsgGet( "Atenció!", "Indiqui el COM del SIM:", @ncOM )
MsgGet( "Atenció!", "Indiqui el PIN del SIM:", @nPIN )
If nPIN <> 0
nRespuesta := Waitrun( "c:\temp\infocom.exe COM" + AllTrim(Str(nCOM, 3, 0 )) + " AT+CPIN=" + Right( Str( 10000 + nPIN, 10, 0), 4), 2 )
EndIf
//Traza( 1, "nRespuesta:", nRespuesta )
Return nRespuesta
//------------------------------------------------------------------
//------------------------------------------------------------------
FUNCTION lEnviaSMS( nCom, cTelefono, cMensaje )
Local nRespuesta := 0
If nCom = 0
nCom := If( nPORTCOMSIM = 0, nGetCOMofSIM(), nPORTCOMSIM )
EndIf
cMensaje := cMensaje := Strtran( cMensaje, '"', "'", nil, Nil )
nRespuesta := Waitrun( "c:\temp\infocom.exe COM" + AllTrim(Str(nCOM, 3, 0 )) + " SMS " + cTelefono + ' "' + cMensaje + '"', 2 )
//Traza( 1, "nRespuesta:", nRespuesta )
Inkey( 2 )
Return nRespuesta
//------------------------------------------------------------------
//------------------------------------------------------------------Un Saludo
Carlos G.
FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home
Epale Hermanazo !!! 
Saludos,
yo uso unos modem enforas que tu le metes un simcard , y con una aplicacion parecida a terminal.prg abre el puerto y comienzo a enviarle comandos para el envio de SMS. tengo una pequeña aplicacion que lee el mensaje y busca en la base de datos y envia la repuesta via SMS.
con este comando AT reviso si tengo SMS
WriteComm( nCom, [AT+CMGL="ALL"] + Chr( 13 ) )
Aqui envio la repuesta
WriteComm( nCom, [AT+CMGS="+58]+cTlf+["]+ Chr( 13 ) )
MsgWait("Enviando Respuestas ","SMS",1.7)
WriteComm( nCom, cMensa + Chr( 26 )+CHR( 13 ) )
para borrar mensaje ,
WriteComm( nCom, [AT+CMGD=]+Alltrim(Str(nI)) + Chr( 13 ) )
Esto esta basado en el programa samples\terminal.prg
cualquier cosa estamos a la orden por aqui por Guatire.
Saludos !
Gracias a todos, por sus aportes y comentarios
Cruz Alfredo Oses
Mario,
Estoy buscando una rutina para enviar SMS utilizando el FWH y un módem 3G
Vi un mensaje en su foro que está utilizando.
1) Usted está utilizando un módem 3G?
2) ¿Puede enviar SMS a varios números al mismo tiempo?
3) Puede recibir mensajes SMS?
Si usted me puede mostrar cómo se hace
¡gracias
Ate más
Cleber Ribeiro Conde
