FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour enviar mensajes a whatsapp, ¿posible solucion?
JoseAlvarez
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM
enviar mensajes a whatsapp, ¿posible solucion?
Posted: Thu Oct 12, 2023 02:17 PM
Saludos a todos amigos.

Seré breve ya que este tema se ha tocado muchas veces en el foro.

Buscando la manera de como enviar mensajes desde mi sistema FW+HARBOUR vía whatsapp, logré hacerlo a medias, utilizando una hoja Excel siguiendo lo que se explica en el siguiente video de youtube (espero que no haya problema con poner enlaces hacia otros sitios dentro del foro). Cabe resaltar que la hoja Excel es de uso libre.

https://youtu.be/JrhE2Vx2b18?si=a-1F_inpM6ajZOfe

Primero hice unas adecuaciones de gusto personal a la hoja y la deja asi, ya que me sirve para mi caso:

http://www.datanet.space/fw/mensajesexcel.xlsm

El procedimiento que usé es: desde mi programa FW preparo un browse con los datos necesarios para el envio de los mensajes. Ese browse lo exporto a una hoja de excel temporal desde la cual, el usuario de mi programa debe hacer un "copy&paste" a la hoja sacada de youtube que enviara los mensajes. Hasta ahora ha funcionado con 2 de mis clientes que usan mi software de cuentas por cobrar. Están enviando los alertas de cobranza exitosamente.

Ahora bien, los envíos los hace una macro diseñada con visual basic. La pregunta es: ¿será posible que alguno de los master pueda adecuarlo para usarse como una función fw?. Hay otros temas secundarios como la posibilidad de baneo por parte de whatsapp si se abusa con el uso de la cuenta, pero ya eso seria otro tema. Como comenté, esta funcionando en dos de mis clientes desde hace un par de meses y no ha habido problemas.

Dejo la inquietud abierta a ver si nos puede ser útil a quienes necesitamos poder hacer los envíos directos desde nuestras aplicaciones.
"Los errores en programación, siempre están entre la silla y el teclado..."



Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin



Carora, Estado Lara, Venezuela.
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: enviar mensajes a whatsapp, ¿posible solucion?
Posted: Thu Oct 12, 2023 02:59 PM
https://forums.fivetechsupport.com/viewtopic.php?f=3&t=40019&p=242869&hilit=whatsAPP&sid=94a12579354d223d133c80e3691470db&sid=48055ac8e3ca81bc2a5181df58bf6e1b#p242869

https://forums.fivetechsupport.com/viewtopic.php?f=6&t=39335&p=242852&hilit=whatsAPP&sid=94a12579354d223d133c80e3691470db&sid=48055ac8e3ca81bc2a5181df58bf6e1b#p242852

https://forums.fivetechsupport.com/viewtopic.php?f=6&t=37070&p=222774&hilit=whatsapp&sid=94a12579354d223d133c80e3691470db&sid=48055ac8e3ca81bc2a5181df58bf6e1b#p222774

José, no lo sé, en Venezuela, pero aquí en Brasil, si envías más de 5 mensajes, y alguien te denuncia, inmediatamente te banean tu WHATS y recuperarlo es casi imposible. ¿Los SMS no te funcionan?

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
JoseAlvarez
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM
Re: enviar mensajes a whatsapp, ¿posible solucion?
Posted: Thu Oct 12, 2023 05:50 PM

Hola joao, saludos.

Los clientes previamente dan su autorización para recibir los mensajes, asi se reduce al maximo la posibilidad de que alguien reporte spam.

Los servicios de sms aqui en venezuela, aparte de costoso, los términos y condiciones son muy exigentes. Todos los usuarios optan por whatsapp.

"Los errores en programación, siempre están entre la silla y el teclado..."



Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin



Carora, Estado Lara, Venezuela.
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: enviar mensajes a whatsapp, ¿posible solucion?
Posted: Thu Oct 12, 2023 11:18 PM

Estimado José,

Puedes hacerlo directamente desde FWH sin necesidad de crear una hoja de cálculo ni tener que usar VBA, etc

Simplemente usa esto desde FWH en un bucle:

ShellExecute( 0, "open", StrTran( "whatsapp://send?phone=" + cTelefono + "&text=" + cMensaje ), " ", "%20" ) )

SysRefresh() // ó SysWait( 5 ) prueba con distintos valores hasta que te funcione bien

CreateObject( "WScript.Shell" ):SendKeys( "~" )

regards, saludos

Antonio Linares
www.fivetechsoft.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: enviar mensajes a whatsapp, ¿posible solucion?
Posted: Fri Oct 13, 2023 06:13 AM
Este ejemplo funciona correctamente. Es necesario instalar la app de whatsapp y debe estar funcionando antes de ejecutar nuestra llamada:

whatsapp.prg
Code (fw): Select all Collapse
#include "FiveWin.ch"

function Main()

   ShellExecute( 0, "open", "whatsapp://send?phone=34722461100&text=FWH," + Time() )
   SysWait( 1 )
   CreateObject( "WScript.Shell" ):SendKeys( "~" )

return nil
To send msgs to a whatsapp group instead of a phone number use this:
whatsapp://send?text=encoded_message&phone=group_id
Find out the group ID of the group you want to send the message to. You can do this by opening the group info screen in WhatsApp and tapping on the invite link. The group ID is the part after “chat.whatsapp.com/”. For example, if the invite link is “https://chat.whatsapp.com/ABCDEF123456”, then the group ID is “ABCDEF123456”
regards, saludos

Antonio Linares
www.fivetechsoft.com
JoseAlvarez
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM
Re: enviar mensajes a whatsapp, ¿posible solucion?
Posted: Fri Oct 13, 2023 01:19 PM

Saludos Master Linares.

Muchísimas gracias. Creo que me estaba ahogando en un vaso de agua.

Voy a implementar el código y le comento.

Muy agradecido por su ayuda, es una necesidad que debía solventar.

Un abrazo.

"Los errores en programación, siempre están entre la silla y el teclado..."



Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin



Carora, Estado Lara, Venezuela.
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: enviar mensajes a whatsapp, ¿posible solucion?
Posted: Fri Oct 13, 2023 01:29 PM
http://fivewin.com.br/index.php?/topic/28210-existe-uma-forma-de-enviar-arquivos-para-whatsapp/

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
sysctrl2
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: enviar mensajes a whatsapp, ¿posible solucion?
Posted: Fri Oct 13, 2023 06:47 PM

Amigos muy interesante WharsApp.prg, me saltan unas dudas

  1. a partir de que versión de FWH funciona?

  2. es para harbour/xHarbour ?

  3. Tiene costo la APPI de WhasApp ?

saludos

Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: enviar mensajes a whatsapp, ¿posible solucion?
Posted: Fri Oct 13, 2023 07:47 PM
Estimado Cesar,

> 1. a partir de que versión de FWH funciona?

Debería funcionar con todas

> 2. es para harbour/xHarbour ?

Si

> 3. Tiene costo la API de WhasApp ?

gratuito :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
sysctrl2
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: enviar mensajes a whatsapp, ¿posible solucion?
Posted: Fri Oct 13, 2023 08:14 PM

Antonio muy interesante,

abusando un poco, como se envía un PDF ?

o alguna información que nos ayude?

saludos .

Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
JoseAlvarez
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM
Re: enviar mensajes a whatsapp, ¿posible solucion?
Posted: Sat Oct 14, 2023 01:58 AM
Master Antonio,

Funciona muy bien y rápido el envío de mensajes con el código suministrado.

Gracias Nuevamente.

Ahora hay un detalle: El mensaje se envía en una sola línea, seria excelente si se pudiera incluir el salto de línea para separar los textos.

Me explico mejor, en la pagina de excel que estaba utilizando se podía incluir la separación de línea y el mensaje se ve así:



¿habrá manera de hacerlo? intenté con chr(13) y con CRLF pero no funciona.
"Los errores en programación, siempre están entre la silla y el teclado..."



Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin



Carora, Estado Lara, Venezuela.
JoseAlvarez
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM
Re: enviar mensajes a whatsapp, ¿posible solucion?
Posted: Sat Oct 14, 2023 02:14 AM
¡ Listo Master !

Lo encontré.
Code (fw): Select all Collapse
ShellExecute( 0, "open", "whatsapp://send?phone="+cTelf+" &text=Estimado Sr. Antonio Linares.%0A"+"Gusto en Saludarle"+","+ Time() )
y se ve así:



Resuelto todo.

Agradecido una vez más.
"Los errores en programación, siempre están entre la silla y el teclado..."



Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin



Carora, Estado Lara, Venezuela.
sysctrl2
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: enviar mensajes a whatsapp, ¿posible solucion?
Posted: Sat Oct 14, 2023 03:16 PM

José, sabes como se envia un archivo?

saludos

Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
JoseAlvarez
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM
Re: enviar mensajes a whatsapp, ¿posible solucion?
Posted: Sat Oct 14, 2023 04:19 PM
sysctrl2 wrote:José, sabes como se envia un archivo?
saludos
Saludos estimado,

Estoy buscando la manera, al tener la solución la cuelgo acá.
"Los errores en programación, siempre están entre la silla y el teclado..."



Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin



Carora, Estado Lara, Venezuela.
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: enviar mensajes a whatsapp, ¿posible solucion?
Posted: Sat Oct 14, 2023 05:18 PM
A ver si esto funciona:
whatsapp://send?phone=+15555555555&text=Here is a file for you.&document=/path/to/file.txt
regards, saludos

Antonio Linares
www.fivetechsoft.com
Static archive · New replies & topics via GitHub Discussions