FoxPro/Visual FoxPro - Whatsapp automation with VFP

Estimados todos, esta es mi primera publicación en su foro. Hice la automatización de whatsapp con Visual foxpro, ahora puedes enviar mensajes de texto, imágenes y archivos de contactos directamente a whatsapp con códigos pur vfp, sin necesidad de usar ningún dll de terceros. Visite este enlace.

Contáctame si necesitas ayuda
+923226857062

https://www.foxite.com/archives/0000477843.htm

https://www.foxite.com/archives/0000477843.htm


Mis mejores deseos desde Pakistán

Muchas gracias, tu código me ayudó muchísimo, había encontrado una solución que no me gustaba del todo, el tuyo en cambio está perfecto. Es bueno saber que todavía hay gente que sigue trabajando en Visual Foxpro pese a que han descontinuado el soporte. De nuevo, muchísimas gracias.

Me gustaria concocer el codigo , Gacias

PUBLIC cPMensaje

DECLARE INTEGER FindWindow IN WIN32API STRING , STRING
DECLARE INTEGER SetForegroundWindow IN WIN32API INTEGER
DECLARE INTEGER ShowWindow IN WIN32API INTEGER , INTEGER
*******************************************
Declare Integer ShellExecute In shell32.Dll ;
INTEGER hndWin, ;
STRING cAction, ;
STRING cFileName, ;
STRING cParams, ;
STRING cDir, ;
INTEGER nShowWin
Local lt, lhwnd
cPhone='523351379680'
cPMensaje = "¡¡ PRUEBA DE ENVIO !!"+ CHR(13) + CHR(10) + ;
" Estimado Sr(a): "+ CHR(13) + CHR(10) + ;
"Saldo actual: "+ CHR(13) + CHR(10) + ;
"Artículos vendidos: "
ccMessage=ALLTRIM(cPMensaje)
ccMessage = STRTRAN(ccMessage, CHR(13)+CHR(10), "%0A")
ccMessage = STRTRAN(ccMessage, " ", "%20")
cmd='whatsapp://send?phone=&cPhone&text='+ccMessage
=ShellExecute(0, 'open', cmd,'', '', 1)
Wait "" Timeout 3
lt = "Whatsapp"
lhwnd = FindWindow (0, lt)
If lhwnd!= 0
SetForegroundWindow (lhwnd)
ShowWindow (lhwnd, 1)
ox = Createobject ( "Wscript.Shell" )
Sleep(500)
ox.sendKeys ( '{ENTER}' )
Sleep(500)
IF nLcontador == 4
ox.sendkeys ( '%{F4}' )
ENDIF
ELSE
Messagebox ( "Whatsapp no esta activado!" )
ENDIF

FUNCTION Sleep(lnMiliSeg)
*----------------------------------------
* Función que detiene la ejecución de un programa
* durante "n" milisegundos sin interfase con el teclado.
* USO: ? Sleep(1500)
*----------------------------------------
FUNCTION Sleep(lnMiliSeg)
lnMiliSeg = IIF(VARTYPE(lnMiliSeg) = "N", lnMiliSeg, 1000)
DECLARE Sleep IN WIN32API ;
INTEGER nMillisecs
RETURN IIF(Sleep(lnMiliSeg) = .T., .T., .F.)
ENDFUNC

Esta cerca de funcinar... logra abrir la ventana del whatapp con el destinatario y texto establecido pero no logra presionarse el enter de manera automatica desde codigo se queda a la espera de quepresione realmente la tecla..

Alguien sabe porque y como lo soliuciono?.. Gracias

Si señor a mi también, no puede hacerlo andar.

PUBLIC cPMensaje

DECLARE INTEGER FindWindow IN WIN32API STRING , STRING
DECLARE INTEGER SetForegroundWindow IN WIN32API INTEGER
DECLARE INTEGER ShowWindow IN WIN32API INTEGER , INTEGER
*******************************************
Declare Integer ShellExecute In shell32.Dll ;
INTEGER hndWin, ;
STRING cAction, ;
STRING cFileName, ;
STRING cParams, ;
STRING cDir, ;
INTEGER nShowWin
Local lt, lhwnd
cPhone='523351379680'
cPMensaje = "¡¡ PRUEBA DE ENVIO !!"+ CHR(13) + CHR(10) + ;
" Estimado Sr(a): "+ CHR(13) + CHR(10) + ;
"Saldo actual: "+ CHR(13) + CHR(10) + ;
"Artículos vendidos: "
ccMessage=ALLTRIM(cPMensaje)
ccMessage = STRTRAN(ccMessage, CHR(13)+CHR(10), "%0A")
ccMessage = STRTRAN(ccMessage, " ", "%20")
cmd='whatsapp://send?phone=&cPhone&text='+ccMessage
=ShellExecute(0, 'open', cmd,'', '', 1)
Wait "" Timeout 3
lt = "Whatsapp"
lhwnd = FindWindow (0, lt)
If lhwnd!= 0
SetForegroundWindow (lhwnd)
ShowWindow (lhwnd, 1)
ox = Createobject ( "Wscript.Shell" )
Sleep(500)
ox.sendKeys ( '{ENTER}' )
Sleep(500)
ox.sendkeys ( '%{F4}' )
ELSE
Messagebox ( "Whatsapp no esta activado!" )
ENDIF

FUNCTION Sleep(lnMiliSeg)
*----------------------------------------
* Función que detiene la ejecución de un programa
* durante "n" milisegundos sin interfase con el teclado.
* USO: ? Sleep(1500)
*----------------------------------------
FUNCTION Sleep(lnMiliSeg)
lnMiliSeg = IIF(VARTYPE(lnMiliSeg) = "N", lnMiliSeg, 1000)
DECLARE Sleep IN WIN32API ;
INTEGER nMillisecs
RETURN IIF(Sleep(lnMiliSeg) = .T., .T., .F.)
ENDFUNC

he estado probando, pero sin suerte todavía.

hola Tariq Mehmood. tendras como ajuntar un pdf....necesito enviar un pdf

saludos

Hola Osbaldo, conseguiste como enviar un archivo pdf? si es asi, me harias el favor de comentarme como lo hiciste?
Muchas gracias

Excelente.

Gracias por compartir tan potente herramienta y me pregunto si desde tu rutina es posible recibir mensajes en la misma aplicación y de este modo poder interactuar aun mas automáticamente con los contactos, por ejemplo que un contacto envíe una solicitud desde su whatsapp, y la aplicación interprete la solicitud y así mismo devuelva una cadena de datos o imágenes.

Muchas gracias

Me gustaria concocer el codigo para adjuntar archivos gracias

Me gustaria concocer el codigo para esta rutina, Gacias

Excelente probe varios, incluso empalme el de envio de iimagen con texto y funciona perfecto, gracias hermano al que hizo el codigo sencillo y funcional, gracias

Hola como estas , me podrias pasar el codigo para mandar wath automatico adjuntando pdf ?
saludos y gracias

Muchas gracias por tu codigo Tariq, me gustaria que me ayudaras, quisiera enviar mensajes a whatsapp de El Salvador, ahi solamente tenemos el codigo de area 503 y el telefono de 8 digitos 71296148, con el codigo de abajo logro activar whatsapp pero no logro enviar el mensaje, he tratado, no se que podre estar haciendo mal. Mil gracias de antemano
*--------------------------------------------------
*Method:1- How to send simple message
*--------------------------------------------------
Declare Integer FindWindow In WIN32API String , String
Declare Integer SetForegroundWindow In WIN32API Integer
Declare Integer ShowWindow In WIN32API Integer , Integer
Declare Integer ShellExecute In shell32.Dll ;
INTEGER hndWin, ;
STRING cAction, ;
STRING cFileName, ;
STRING cParams, ;
STRING cDir, ;
INTEGER nShowWin

Local lt, lhwnd
cPhone=[50371296148]
ccMessage=[VFP Controlando Whatsapp?]
cmd='whatsapp://send?phone=&cPhone&text='+ccMessage
=ShellExecute(0, 'open', cmd,'', '', 1)
Wait "" Timeout 3
lt = "Whatsapp"
lhwnd = FindWindow (0, lt)
If lhwnd!= 0
SetForegroundWindow (lhwnd)
ShowWindow (lhwnd, 1)
ox = Createobject ( "Wscript.Shell" )
ox.sendKeys ( '{ENTER}' )
Else
Messagebox ( "Whatsapp is not activated!" )
Endif

Hola Gerardo, conseguiste como solucionarlo? soy de Argentina y tampoco puedo lograr que envié el mensaje

ccMessage=[How are you sir?]
ccMessage = Strtran(ccMessage, Space(1), '%20')

cmd='whatsapp://send?phone='+cPhone+'&text='+ccMessage

hola yo tmb soy de argentina, y me funcionar bien, fijate el numero de telefono que debe tener este formato pais+9+area+numero en mi caso utilice mi celu 54911NNNNNNNN

hay que colocarle un sleep antes y despues del ENTER //ox.sendKeys ( '{ENTER}' )

ademas hay que revisar que el texto qe pones en ccMessage no tenga espacios en blanco, yo probe con una linea de texto sin espacios y se envio sin problema

ccMessage=[VFP_Controlando_Whatsapp_]

Le puse las lineas de codigo pero ni asi se presiona el enter automatio y por tanto no se va el mensaje.

alguna otra idea de como hacerle?

algún ejemplo para argentina

Este codigo me sirve para enviar el mensaje
Como envio un archivo adjunto, PDF, ???

Este codigo me funciono
Como puedo enviar archivoa PDF adjuntos ???

Lograste enviar archivos PDF???
desde ya muchas gracias

No he podido

Acá publiqué un video al respecto

https://www.facebook.com/groups/118032825529669/posts/1309705493029057/?comment_id=1309898003009806&notif_id=1708080630507714&notif_t=group_comment

este es un lugar para brindar ayuda no para sacarle dinero al que te la pide

Saludos cordiales compañeros Foxeros...
He estado utilizando desde hace algún tiempo el código aquí publicado para enviar mensajes WhatsApp, el cuál me ha funcionado muy bien,
pero ahora sin más ni mas dejó de funcionar el 6 de abril de 2023.
Los mensajes los envío de forma automática, un programa clasificador llama a éste y le pasa como parámetros el numero de telf. y el texto que va a enviarse.
Cuando hace la evaluación If lhwnd!= 0 resulta que esta variable se ha cargado con el valor de cero y al estar en cero se ejecuta el
else del if, por ende los mensajes no se van.
Debo decir que el whatsapp web está ejecutándose y está vinculado al teléfono celular. (SAMSUNG J2)
Por favor compañeros me ayudan a descubrir qué es lo que está pasando??
PD. he desinstalado el whatsapp web e instalado nuevamente, he cambiado de vinculación a un huawei P30 Lite y tampoco se van, ayuden me por favor...

Hola!!! Me pasa exactamente lo mismo.
Alguien tiene alguna explicación y/o solución?.

Acá publiqué un video al respecto

https://www.facebook.com/groups/118032825529669/posts/1309705493029057/?comment_id=1309898003009806&notif_id=1708080630507714&notif_t=group_comment

Tengo una rutina que trabaja con la APP de whatsapp, no con whatsapp web, si la necesita escribame al email [email protected]

Mi correo es [email protected]

Hola, no me funciona. Ejecuta sin error pero no manda el mensaje. Habra que usar una version de whatsapp especifica? o de WIndows o de Navegador?: agradecere la respuesta. saludos desde Argentina. Roberto

Hola compañero, soy Rafael de Lima Perú, te comento que recopile información de varios tutoriales e hice alguna modificación mínima, y si me funciona el envío automático de mensajes y archivos a través de WhatsApp Web, si te interesa podríamos coordinar y te preparo una demostración, es muy sencillo.

Utilice Visual Fox Ver. 9.0

Puedes escribirme al WhatsApp, mi numero es 950201359, si eres de otro país creo que debes agregarle el código de país 51 al inicio del número o al correo [email protected]

Tarik, I am testing your code for the shipment of a simple text, I modify the phone in international way as Wapp 549341XXXXXXXX appears to send it, it modifies the Wapp installed window but does not reach destination ...

LT LT, LHWND
CPHONE = [5493415191954]
ccmessage = [jelouuuuuuu]

I will appreciate your help, a hug from Argentina ...

Gracias por compartir el codigo, sera de mucha ayuda.

buen dia, ando interesado en enviar mensajes de VFP, esto que comentas, lo sigues utilizando ??

buen dia, sigues usando esta tecnica, yo quisiera implementarla,, salidos,

Hola para enviar mensajes de Whatsapp , hay que tener cuenta busines, si te interesa te paso el codigo , no lo probe todavia

HOLA TARIQ GRACIAS POR ESTE GRAN APORTE ya lo implemente en una aplicación de cobro que envía a sus clientes un menajes masivo de texto con imagen toma la información de una tabla de la base de datos de PostgreSQL es decir el numero de teléfono genero un cursor y funciona perfecto.

MUCHISIMAS GRACIAS

Hola como estas, podras mandar el codigo , yo intente muchas veces y no pude hacer que funcionara, a bveces mandaba texto y al rato ya no , me harias un gran favor y quedo a tu disposicion por cualquier ayuda

Saludos

quería saber si actualmente funciona este aporte.

Hola como estas ? pideselo a chatgpt , te lo arma pruebalo y ella te lo corrige , debes tener una cuenta empresarial en what

una consulta,

se puede agregar un contacto, ósea agregar un nuevo numero al directorio de WhatsApp desde código en Visual FoxPro

de antemano, Gracias

Este programa nunca funciono , y no dicho solo por mi , la unica forma de usar whatsapp es pagando

me podrias enviar el link correcto, el que esta en la publlicacion de foxsite ya no abre.. gracias