¿Sabe alguien si se puede mandar un SMS desde un porgrama echo con FW?
Si alguien supiera que es imposible, también me gustaría saberlo.
Muchas gracias. Saludos.
SMS desde FW
SMS desde FW
Nos Gusta Programar
The SMS es lo mismo que un email
Consiste:
numero_del_telefono@operadora.com
Ejemplo:
8765-3488@claro.com
Consiste:
numero_del_telefono@operadora.com
Ejemplo:
8765-3488@claro.com
- creswinman
- Posts: 33
- Joined: Thu Aug 24, 2006 3:14 am
- Location: mexico
- Contact:
Programa para enviar con sockets por jikama.com
* ivizcaino 2007
* smsSock('000001','PASSWD','5532324028','Hola AMigos')
* Poner en System\smsSock.bwp
FUNCTION SMSSock()
PARAM cCliente,cPassword,cTelefono,cMensaje
cDominio:='www.jikama.com'
oSMS := TWebClient():New(6207)
Cargo := .f.
cTexto:=''
oSMS:bOnConnect := {|oWClient| Cargo := .t.}
oSMS:bOnRead := {|cData| if(valtype(cData) == "C", cTexto := cTexto+cData, )}
oSMSSock:=oSMS:oSocket
oSMS:Connect('www.jikama.com')
while ! Cargo
syswait(.1)
SysRefresh()
endw
oSMSSock:SendData( [:BACK cw:Jsms("]+ccliente+[","]+cPassword+[","]+cTelefono+[","]+cMensaje+[")])
While Empty(cTexto)
syswait(.1)
m6(time())
Endw
oSMSSock:end()
Mensaje(1,cTexto)
return (cTexto)
Este ejemplo es con Sockets!
smsSock('000001','eureka','5532324028','Hola Amigos por sockets 6207 !'+Time())
* smsSock('000001','PASSWD','5532324028','Hola AMigos')
* Poner en System\smsSock.bwp
FUNCTION SMSSock()
PARAM cCliente,cPassword,cTelefono,cMensaje
cDominio:='www.jikama.com'
oSMS := TWebClient():New(6207)
Cargo := .f.
cTexto:=''
oSMS:bOnConnect := {|oWClient| Cargo := .t.}
oSMS:bOnRead := {|cData| if(valtype(cData) == "C", cTexto := cTexto+cData, )}
oSMSSock:=oSMS:oSocket
oSMS:Connect('www.jikama.com')
while ! Cargo
syswait(.1)
SysRefresh()
endw
oSMSSock:SendData( [:BACK cw:Jsms("]+ccliente+[","]+cPassword+[","]+cTelefono+[","]+cMensaje+[")])
While Empty(cTexto)
syswait(.1)
m6(time())
Endw
oSMSSock:end()
Mensaje(1,cTexto)
return (cTexto)
Este ejemplo es con Sockets!
smsSock('000001','eureka','5532324028','Hola Amigos por sockets 6207 !'+Time())
- reinaldocrespo
- Posts: 918
- Joined: Thu Nov 17, 2005 5:49 pm
- Location: Fort Lauderdale, FL
- reinaldocrespo
- Posts: 918
- Joined: Thu Nov 17, 2005 5:49 pm
- Location: Fort Lauderdale, FL
René;
Gracias por la información. Miré el blog. Muy útil.
Parece que el servicio que usas para el ejemplo que brindas solo funciona en Méjico. Me pregunto que otras alternativas existen que funcionen aca.
Tienes que decirme cuando vuelves por Miami y que tengas un rato corto para verte y conversar. Y si no, pues voy a tener que viajar a Méjico o España y asistir a uno de tus cursos.
Reinaldo.
Gracias por la información. Miré el blog. Muy útil.
Parece que el servicio que usas para el ejemplo que brindas solo funciona en Méjico. Me pregunto que otras alternativas existen que funcionen aca.
Tienes que decirme cuando vuelves por Miami y que tengas un rato corto para verte y conversar. Y si no, pues voy a tener que viajar a Méjico o España y asistir a uno de tus cursos.
Reinaldo.
Reinado.
El servicio www.jikama.com funciona en todo el mundo, es como Skype, compras crédito y listo, envias desde cualquier parte del mundo hasta cualquier parte del mundo.
El servicio www.jikama.com funciona en todo el mundo, es como Skype, compras crédito y listo, envias desde cualquier parte del mundo hasta cualquier parte del mundo.
Saludos
R.F.
R.F.
Y no seria posible mandar SMSs con un movil conectado al PC.
Con comandos HAYES de modem se podria ¿ no ?
Con comandos HAYES de modem se podria ¿ no ?
Mi abuelo decía: Los aviones vuelan porque Dios quiere, y los helicópteros ni Dios sabe porque vuelan.
FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013