Jump to content
Fivewin Brasil

envio de torpedo sms para celular


mamp

Recommended Posts

Marcos bom dia, eu tenho o seguinte codigo, mas nunca testei, esta funcao é do Rene Flores, deve funcionar.

Abraço

William

You bet you can.... I use this tiny app to send all my e-mail headers to my cell phone when I'm out of the office using FiveWin 2.2.c socket class.

Regards. Rene Flores

#INCLUDE "FIVEWIN.CH"

STATIC oWnd

FUNCTION Main()

DEFINE WINDOW oWnd

ACTIVATE WINDOW oWnd ON INIT (Beeper())

RETURN (.T.)

FUNCTION Sms()

LOCAL oSocket

oSocket := TSocket():New()

oSocket:Connect("200.38.208.195",80)

oSocket:bConnect := {|| MsgInfo("Socket conectado")}

oSocket:SendData("GET

/cgi-bin/mensamxprog.cgi?telefono=21469408&comments=Prueba+desde+fivewins&at

encion=viva+fivewin&B1=Enviar")

oSocket:Close()

oSocket:End()

RETURN (.T.)

Function Beeper

LOCAL oSocket

oSocket := TSocket():New()

oSocket:Connect("148.245.4.100",80)

oSocket:SendData("GET

/cgi-bin/envio.cgi?ServiceID=14&prefijo=5&PinNumber=1712734&cmdEnviar=Enviar

&MessageText=hola+desde+internet+via+fivewin")

oSocket:Close()

oSocket:End()

RETURN

Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime 4.0 , Display 2.0

Link to comment
Share on other sites

Marcos , como eu disse eu nunca utilizei esse exemplo , mas os IPs que ele utiliza devem ser do computador que envia a mensagem e o outro o IP do servidor de envio SMS.

Aqui tem um outro exemplo em Xharbour de como enviar SMS via Skipe.

http://www.xharbour.com/xHC/index.asp?page=xhc_download_detail.asp&type=dl&id=106&show_i=7&show_sub=1

abraço

William

Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime 4.0 , Display 2.0

Link to comment
Share on other sites

Olá,

Uso o envio de SMS via Human ( http://www.human.com.br). O valor é razoável, envia para todas as operadoras sem problema algum, sem os "captchas" da vida e tem um gerenciamento dos SMS enviados muito legal. Para acessar o serviço:


cMensEnv:='http://system.human.com.br:8080/GatewayIntegration/msgSms.do?dispatch=send&account='+cContaNaHuman+'&code='+cCodeNaHuman+'&from='+cUsuario+'&to=55'+cCelular+'&id='+cId+'&msg='+cMensagem

cTexto:=oWS:OpenWS( cMensEnv )

id=code>id=code>

cContaNaHuman = Conta na Human. Será fornecido no cadastro;

cCodeNaHuman = Senha de acesso. Será fornecido no cadastro;

cUsuario = Remetente

cCelular = Número do celular com DDD sem código da operadora;

cID = Identificador único de cada mensagem;

cMensagem = Mensagem a ser enviada. Obviamente com as restrições de envio direto pelo celular ( limite de caracteres, etc. ).

[]s,

Evandro G. de Paula

Curvelo - MG

evandro@skillnet.com.br (Escr. - na Cidade)

imortal@skillnet.com.br (Res. - na Roça)

FWH 9.01+PellesC+MyMake+xHarbour.org 1.00+SqlLib

Editado por - evandro on 15/12/2009 09:01:55

Link to comment
Share on other sites

evandro, eu entrei em contato com a human mobile e eles me mandaram um login e uma senha pra eu testar por um mes, e peguei a rotina que voce me mandou e esta dando um erro que ela nao reconhece a funcao:

TdWebService(), deve ser um include de algum .CH ou alguma .LIB, é isto?, se for, qual, ou nao é nada disto?

augardo

nao uso WS

Marcos Macedo(Recife-PE)

macedomarcos@hotmail.com

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...