by creswinman » Tue Jun 12, 2007 11:45 am
* 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())