Jump to content
Fivewin Brasil

ROTINA PARA ENVIO DE MSG DE TEXTO PARA CELULAR.

marcioe

By marcioe
in Programação

 Share

Recommended Posts

marcioe Explorer

marcioe

Posted
  • Author
Posted

Amigos, fiz assim e está Funcionando, Porem ele abre o browse

o envio eu tive que mudar, pois dava erro se deixo assin dava erro

cTexto:=oWS:OpenWS( cMensEnv )

assim ele envia de boa ao sms, mas abre o navegador. algo que nao queria.

ShellExecute(GetActiveWindow(),"open",'"'+cMensEnv+'"')

FUNCTION teste_SMS()

	cContaSms 	:= 'marcio.api'
	cCodeSms 	:= 'minha_senha_'
	cUsuario 	:= 'marcio'
	cCelular 	:= '3291040562'
	cID 			:= SUBSTR(TIME(),07,02)
	cMens 		:= 'TESTE DE ENVIO DE SMS AUTOMATICO PELO SISTEMA INFORMAIS'

 	cMensEnv:='http://system.human.com.br:8080/GatewayIntegration/msgSms.do?dispatch=send&account='+cContaSms

	cMensEnv+='&code='+cCodeSms+'&from='+cUsuario+'&to=55'+cCelular+'&id='+cId+'&msg='+cMens
	
   // abre qualquer navegador de internet
	IF(!IsInternet())
	    MsgInfo("Necessário Uma Conexão com Internet !"+CRLF+"Operação cancelada",SISTEMA)
	    RETURN(.f.)
	ELSE
		ShellExecute(GetActiveWindow(),"open",'"'+cMensEnv+'"')
	ENDIF
Return(nil)
	

	SysWait(2)
return .t.
Link to comment
Share on other sites
Theotokos Apprentice

Theotokos

Posted
Posted

Alguem sabe como fazer para funcionar isto: (Como montar a rotina para enviar este dados)

Enviar Mensagem
 Descrição: Enviar mensagem para os destinatários especificados.
 Método: HTTP – POST
 Parâmetros:
o Sender: Remetente do envio das mensagens, será utilizado apenas para organização de relatórios. Este remetente não será mostrado aos destinatários.
o Receivers: Destinatários que receberam a mensagem, pode ser separado por vírgula. Deve possuir o formato DDD+Número
o Content: Conteúdo da mensagem que será enviada.
Desde já muito Obgdão.
Link to comment
Share on other sites
marcioe Explorer

marcioe

Posted
  • Author
Posted

Amigo, essa empresa eu nao recomendo, pois o SMS demora uns 5 a 10 minutos.

Outra coisa é que aparece ao destinatario um numero de cel. 016XXXXXXXXXX da vida. ou seja

Imagina que voce colocar isso no seu cliente e ele manda um SMS de cobrança de débitos. O Devedor vai tentar ligar de volta no numero 016xxxxx, e as vezes que esta enviado é uma empresa de MG por exemplo DDd seria 032xxxx, Fica meio estranho.

Segue abaixo nossas tarifas para que possa escolher a que melhor lhe atender:

Tarifas SMS
De 5000 a 30.000 Torpedos SMS - R$0.08 por SMS
De 30.000 a 100.000 Torpedos SMS - R$ 0.06 por SMS
De 100.00 a 1 milhão Torpedos SMS - R$ 0.05 por SMS
De 1 a 3 milhões de Torpedos SMS - R$0.045 por SMS
De 3 a 5 milhões de Torpedos SMS - R$0.04 por SMS
De 5 a 10 milhões de Torpedos SMS - R$0.035 por SMS
Acima de 10 milhões de Torpedos SMS - R$0.03 por SMS

Mas se voce ligar lá e falar com Pamela Ribeiro, do suporte, fala com ela que voce esta tendo dificuldades de integrar com o sistema ela que ela lhe passa um novo caminho tipo o do human.com.br.

Já a Solução da empresa www.human.com.br até o momento foi o melhor e o mais fácil de integrar. O envio é imediato. Porem os preços....

até 1000 sms 0,17 EM MEDIA CADA. SMS

o que estou quase desistindo disso é que o cliente DIZ, 'JA TENHO NO MEU PLANO CORPORATIVO ENVIO ILIMITADO DE SMS', vou ter que pagar outro.

Link to comment
Share on other sites
marcioe Explorer

marcioe

Posted
  • Author
Posted

Amigo, essa empresa eu nao recomendo, pois o SMS demora uns 5 a 10 minutos.

Outra coisa é que aparece ao destinatario um numero de cel. 016XXXXXXXXXX da vida. ou seja

Imagina que voce colocar isso no seu cliente e ele manda um SMS de cobrança de débitos. O Devedor vai tentar ligar de volta no numero 016xxxxx, e as vezes que esta enviado é uma empresa de MG por exemplo DDd seria 032xxxx, Fica meio estranho.

Segue abaixo nossas tarifas para que possa escolher a que melhor lhe atender:

Tarifas SMS
De 5000 a 30.000 Torpedos SMS - R$0.08 por SMS
De 30.000 a 100.000 Torpedos SMS - R$ 0.06 por SMS
De 100.00 a 1 milhão Torpedos SMS - R$ 0.05 por SMS
De 1 a 3 milhões de Torpedos SMS - R$0.045 por SMS
De 3 a 5 milhões de Torpedos SMS - R$0.04 por SMS
De 5 a 10 milhões de Torpedos SMS - R$0.035 por SMS
Acima de 10 milhões de Torpedos SMS - R$0.03 por SMS

Mas se voce ligar lá e falar com Pamela Ribeiro, do suporte, fala com ela que voce esta tendo dificuldades de integrar com o sistema ela que ela lhe passa um novo caminho tipo o do human.com.br.

Já a Solução da empresa www.human.com.br até o momento foi o melhor e o mais fácil de integrar. O envio é imediato. Porem os preços....

até 1000 sms 0,17 EM MEDIA CADA. SMS

o que estou quase desistindo disso é que o cliente DIZ, 'JA TENHO NO MEU PLANO CORPORATIVO ENVIO ILIMITADO DE SMS', vou ter que pagar outro.

Link to comment
Share on other sites
marcioe Explorer

marcioe

Posted
  • Author
Posted

Amigo, essa empresa eu nao recomendo, pois o SMS demora uns 5 a 10 minutos.

Outra coisa é que aparece ao destinatario um numero de cel. 016XXXXXXXXXX da vida. ou seja

Imagina que voce colocar isso no seu cliente e ele manda um SMS de cobrança de débitos. O Devedor vai tentar ligar de volta no numero 016xxxxx, e as vezes que esta enviado é uma empresa de MG por exemplo DDd seria 032xxxx, Fica meio estranho.

Segue abaixo nossas tarifas para que possa escolher a que melhor lhe atender:

Tarifas SMS
De 5000 a 30.000 Torpedos SMS - R$0.08 por SMS
De 30.000 a 100.000 Torpedos SMS - R$ 0.06 por SMS
De 100.00 a 1 milhão Torpedos SMS - R$ 0.05 por SMS
De 1 a 3 milhões de Torpedos SMS - R$0.045 por SMS
De 3 a 5 milhões de Torpedos SMS - R$0.04 por SMS
De 5 a 10 milhões de Torpedos SMS - R$0.035 por SMS
Acima de 10 milhões de Torpedos SMS - R$0.03 por SMS

Mas se voce ligar lá e falar com Pamela Ribeiro, do suporte, fala com ela que voce esta tendo dificuldades de integrar com o sistema ela que ela lhe passa um novo caminho tipo o do human.com.br.

Já a Solução da empresa www.human.com.br até o momento foi o melhor e o mais fácil de integrar. O envio é imediato. Porem os preços....

até 1000 sms 0,17 EM MEDIA CADA. SMS

o que estou quase desistindo disso é que o cliente DIZ, 'JA TENHO NO MEU PLANO CORPORATIVO ENVIO ILIMITADO DE SMS', vou ter que pagar outro.

Link to comment
Share on other sites
Theotokos Apprentice

Theotokos

Posted
Posted

Amigo, essa empresa eu nao recomendo, pois o SMS demora uns 5 a 10 minutos.

Outra coisa é que aparece ao destinatario um numero de cel. 016XXXXXXXXXX da vida. ou seja

Imagina que voce colocar isso no seu cliente e ele manda um SMS de cobrança de débitos. O Devedor vai tentar ligar de volta no numero 016xxxxx, e as vezes que esta enviado é uma empresa de MG por exemplo DDd seria 032xxxx, Fica meio estranho.

Segue abaixo nossas tarifas para que possa escolher a que melhor lhe atender:

Tarifas SMS
De 5000 a 30.000 Torpedos SMS - R$0.08 por SMS
De 30.000 a 100.000 Torpedos SMS - R$ 0.06 por SMS
De 100.00 a 1 milhão Torpedos SMS - R$ 0.05 por SMS
De 1 a 3 milhões de Torpedos SMS - R$0.045 por SMS
De 3 a 5 milhões de Torpedos SMS - R$0.04 por SMS
De 5 a 10 milhões de Torpedos SMS - R$0.035 por SMS
Acima de 10 milhões de Torpedos SMS - R$0.03 por SMS

Mas se voce ligar lá e falar com Pamela Ribeiro, do suporte, fala com ela que voce esta tendo dificuldades de integrar com o sistema ela que ela lhe passa um novo caminho tipo o do human.com.br.

Já a Solução da empresa www.human.com.br até o momento foi o melhor e o mais fácil de integrar. O envio é imediato. Porem os preços....

até 1000 sms 0,17 EM MEDIA CADA. SMS

o que estou quase desistindo disso é que o cliente DIZ, 'JA TENHO NO MEU PLANO CORPORATIVO ENVIO ILIMITADO DE SMS', vou ter que pagar outro.

Olá! Pelo HUMAN vc conseguiu enviar o teste?

Link to comment
Share on other sites
Theotokos Apprentice

Theotokos

Posted
Posted

sim pela www.human.com.br, vai 100%, chega uns 05 segundos apos enviar. a unica coisa é o preço, pois vai ser uns 500 sms mes, algo proximo de R$ 75,00.

Mas até agora a solucao deles é a mais fácil e mais rápida.

Vlw! se puder compartilha conosco a rotina!

Quanto uma outra solução, existe algo com modem GSM que ai encaixa no plano corporativo do seu cliente, se não me engano é o Gilmer que tem esta solução (lib ou dll)...

Link to comment
Share on other sites
marcioe Explorer

marcioe

Posted
  • Author
Posted

Quanto a rotina está aqui o exemplo

FUNCTION teste_SMS()

	cContaSms 	:= 'marcio.api'
	cCodeSms 	:= 'minha_senha_'
	cUsuario 	:= 'marcio'
	cCelular 	:= '3291040562'
	cID 			:= SUBSTR(TIME(),07,02)
	cMens 		:= 'TESTE DE ENVIO DE SMS AUTOMATICO PELO SISTEMA INFORMAIS'

 	cMensEnv:='http://system.human.com.br:8080/GatewayIntegration/msgSms.do?dispatch=send&account='+cContaSms

	cMensEnv+='&code='+cCodeSms+'&from='+cUsuario+'&to=55'+cCelular+'&id='+cId+'&msg='+cMens
	
   // abre qualquer navegador de internet
	IF(!IsInternet())
	    MsgInfo("Necessário Uma Conexão com Internet !"+CRLF+"Operação cancelada",SISTEMA)
	    RETURN(.f.)
	ELSE
		ShellExecute(GetActiveWindow(),"open",'"'+cMensEnv+'"')
	ENDIF


	SysWait(2)
return .t.

qual a dll do gilmes, etc... ele parou

Link to comment
Share on other sites
Theotokos Apprentice

Theotokos

Posted
Posted

Quanto a rotina está aqui o exemplo

FUNCTION teste_SMS()

	cContaSms 	:= 'marcio.api'
	cCodeSms 	:= 'minha_senha_'
	cUsuario 	:= 'marcio'
	cCelular 	:= '3291040562'
	cID 			:= SUBSTR(TIME(),07,02)
	cMens 		:= 'TESTE DE ENVIO DE SMS AUTOMATICO PELO SISTEMA INFORMAIS'

 	cMensEnv:='http://system.human.com.br:8080/GatewayIntegration/msgSms.do?dispatch=send&account='+cContaSms

	cMensEnv+='&code='+cCodeSms+'&from='+cUsuario+'&to=55'+cCelular+'&id='+cId+'&msg='+cMens
	
   // abre qualquer navegador de internet
	IF(!IsInternet())
	    MsgInfo("Necessário Uma Conexão com Internet !"+CRLF+"Operação cancelada",SISTEMA)
	    RETURN(.f.)
	ELSE
		ShellExecute(GetActiveWindow(),"open",'"'+cMensEnv+'"')
	ENDIF


	SysWait(2)
return .t.

qual a dll do gilmes, etc... ele parou

a dll fo gilme eu vi no forum antigo lhe disse, entra em contato com ele, mas senão me engano esta funcional sim, mas é para uso com modem GSM.

e muito obgdo por compartilhar a rotina.

Link to comment
Share on other sites
marcioe Explorer

marcioe

Posted
  • Author
Posted

Amigos a soluçao o leonardo da sygecom me passou funciona 100%

	*----------------------------------------------------------------------------
   * abre qualquer navegador de internet
   *----------------------------------------------------------------------------
	IF(!IsInternet())
	    MsgInfo("Necessário Uma Conexão com Internet !"+CRLF+"Operação cancelada",SISTEMA)
	    RETURN(.f.)
	ELSE
		
		cURL := STRTRAN('http://www.tiltsms.com.br/index.php?app=webservices&u=SUA_CONTA&p=SUA_SENHA&ta=pv&to=55'+cCelular+'&msg=' +cMens," ","%20")

  	   TRY
  		  oHTTP:=TIPCLIENTHTTP():NEW( cURL )  // aqui envia
  		  oHTTP:OPEN()
  		  cHTML := oHTTP:READALL() // aqui pega o retorno
  		  oHTTP:CLOSE()
  	   CATCH 
  		  lENVIO:=.F.
  	   END
 	ENDIF
	SysWait(2)
return .t.
Link to comment
Share on other sites
alex2002 Newbie

alex2002

Posted
Posted

Pessoal,

Desenvolvemos um webservice para isso ha um tempo atrás.

Alguns amigos já usam e vou deixar aqui um login de testes com um exemplo.

Depois, se interessar, posso fazer um preço melhor que os adotados pelo mercado.

Utilizem e veja se atende (o login vai valer apenas uns dois dias):

//////////////////////////////////////////////////////////////////////////

cMensagem := 'Teste de Mensagem DECLA'
cTelefone := '3191143593'
if EnviaSMS( cTelefone, cMensagem )
MsgInfo('Ok, mensagem enviada','Ok'
else
MsgAlert('Erro ao enviar SMS','Erro')
endif
//////////////////////////////////////////////
Function EnviaSMS( cTelefone, cMensagem )
//////////////////////////////////////////////
local oWS, cTexto, cUser, cSenha, cEmp
oWS := WebConnect():New()
cTexto := ' '
cUser := '149'
cEmp := '8'
cSenha := 'FIVEWIN'
cMensagem := strtran( cMensagem, 'EMPRESTIMO', 'EMPREST.' )
cMensagem := strtran( cMensagem, 'NET', 'WEB' )
cMensagem := strtran( cMensagem, 'BRAULIO', 'BRAU' )
cTexto := oWS:Open( 'http://www.declatecnologia.com.br/smsservice/?user='+cUser+'&passwr='+cSenha+'&company='+cEmp+'&addressee='+cTelefone+'&message='+cMensagem )
if len( cTexto ) > 0 .and. substr( cTexto,1,1) = '1'
lRetorno := .t.
else
lRetorno := .f.
endif
syswait(.1)
sysrefresh()
oWS:end()
return lRetorno
Link to comment
Share on other sites
Theotokos Apprentice

Theotokos

Posted
Posted

Pessoal,

Desenvolvemos um webservice para isso ha um tempo atrás.

Alguns amigos já usam e vou deixar aqui um login de testes com um exemplo.

Depois, se interessar, posso fazer um preço melhor que os adotados pelo mercado.

Utilizem e veja se atende (o login vai valer apenas uns dois dias):

//////////////////////////////////////////////////////////////////////////

cMensagem := 'Teste de Mensagem DECLA'
cTelefone := '3191143593'
if EnviaSMS( cTelefone, cMensagem )
MsgInfo('Ok, mensagem enviada','Ok'
else
MsgAlert('Erro ao enviar SMS','Erro')
endif
//////////////////////////////////////////////
Function EnviaSMS( cTelefone, cMensagem )
//////////////////////////////////////////////
local oWS, cTexto, cUser, cSenha, cEmp
oWS := WebConnect():New()
cTexto := ' '
cUser := '149'
cEmp := '8'
cSenha := 'FIVEWIN'
cMensagem := strtran( cMensagem, 'EMPRESTIMO', 'EMPREST.' )
cMensagem := strtran( cMensagem, 'NET', 'WEB' )
cMensagem := strtran( cMensagem, 'BRAULIO', 'BRAU' )
cTexto := oWS:Open( 'http://www.declatecnologia.com.br/smsservice/?user='+cUser+'&passwr='+cSenha+'&company='+cEmp+'&addressee='+cTelefone+'&message='+cMensagem )
if len( cTexto ) > 0 .and. substr( cTexto,1,1) = '1'
lRetorno := .t.
else
lRetorno := .f.
endif
syswait(.1)
sysrefresh()
oWS:end()
return lRetorno

Alexandre Pereira! Testei sua rotina, e parabéns muito boa mesmo, funciona legal e foi rápido a resposta do sms...

Por favor queria só tirar umas duvidas: 1) Tem como gerenciar a conta? 2) É possível eu ter uma conta e gerenciar usuários dentro desta conta?

3) Como faço para abrir um conta com vcs?

N.T.: Mande no email rone@rl-informatica.net uma proposta por favor.

Obrigado!

Link to comment
Share on other sites
alex2002 Newbie

alex2002

Posted
Posted

Pessoal,

Para quem não tem a cassa WebConnect, segue:

/////////////////
Class WebConnect
Data oWeb
Method New() Constructor
Method Open()
Method End() INLINE ::oWeb:=Self:=Nil
EndClass
//////////////////////////////
Method New() Class WebConnect
Try
::oWeb := CreateObject('MSXML2.XMLHTTP')
Catch
::oWeb := CreateObject('Microsoft.XMLHTTP')
End
Return Self
///////////////////////////////////////
Method Open( cUrl ) Class WebConnect
Local cRet := ""
If ValType( cUrl ) == 'U'
Return cRet
EndIf
Try
::oWeb:Open("POST",cUrl,.f.)
::oWeb:Send()
cRet := ::oWeb:responseBody
Catch; End
Return cRet
Link to comment
Share on other sites
marcioe Explorer

marcioe

Posted
  • Author
Posted

pessoal tem esse que é 0800 Só aparece uma propaganda no final mas. 0800

http://www.fsist.com.br/sms.aspx?tel=coloque_o_dd_e_o_numero&msg=Aqui_Voce_escreve_a_sua_menssagem_160_caracters

http://www.fsist.com.br/sms.aspx?tel=coloque_o_dd_e_o_numero&msg=Aqui_Voce_escreve_a_sua_menssagem_160_caracters

mas voces podem criar um servidor na empresa de voces para enviar por um custo de 0,50 por dia indiferente do numero (mas lembrando que se for muito grande o numero de envios, pode travar o chip)

http://fsist.blogspot.com.br/2013/07/criando-servidor-sms-web-para-php-asp.html

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...
×
 Share
Go to topic listing
×
×
  • Create New...