Envio de mensajes por whatsApp

1,212 views
Skip to first unread message

SIAT Sistemas

unread,
Sep 19, 2021, 11:35:53 AM9/19/21
to Comunidad de Visual Foxpro en Español
Buen día a todos, les informo que desarrolle una aplicación en visualFox 9.0 para el envio de mensajes y con la opción de adjuntar archivos de todo tipo.

Si les interesa, les doy mis datos de contacto.

Ing. Vega, sia...@gmail.com

Jean Pierre Adonis De La Cruz Garcia

unread,
Sep 19, 2021, 2:53:48 PM9/19/21
to Comunidad de Visual Foxpro en Español
Aca te dejo mas informacion al respecto, quizas te pueda interesar para poder mejorar tu sistema.

Marcelo Barberis

unread,
Sep 20, 2021, 9:01:30 PM9/20/21
to publicesvfoxpro
hola buenas noches, yo tambien desarrollo en vfp9 puedes enviar algunas capturas de pantalla de como es tu programa..???

--
Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/b4de2fe0-5c14-409e-962d-93def04cfa2fn%40googlegroups.com.


--
Marcelo Barberis Gutierrez
Sistemas Informaticos
Villa Montes - Bolivia
Telef.: +591-76830544

roberto martinez andrade

unread,
Sep 21, 2021, 1:03:06 PM9/21/21
to publice...@googlegroups.com
Y??????.... Vendes la aplicación, el codigo... que?


--

Maxx

unread,
Mar 19, 2022, 4:05:40 AM3/19/22
to Comunidad de Visual Foxpro en Español
Ready send Whatsapp pdf with purely vfp code

https://www.facebook.com/groups/118032825529669/permalink/916852342314376/

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

hernan copacondori RPC-957452704

unread,
Mar 19, 2022, 2:10:34 PM3/19/22
to publice...@googlegroups.com
Funciona, gracias por el codigo

pdf_filepath = "D:\_sis2020\SIIstema\f_e\envio3\20606567856-01-F003-00000094.pdf"
DO wafoxpdf WITH pdf_filepath
Function wafoxpdf
PARAMETERS CFilepath
_cliptext = cFilepath && Path For PDF
Declare Sleep In kernel32 Integer
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, comando
lhwndcPhone=[519XXXXXX04]
cmd='whatsapp://send?phone=' + lhwndcPhone + '&text=Señor Cliente RUC : ' + ' ya esta disponible '
  =ShellExecute(0, 'open', cmd,'', '', 1)
   **********
  WAIT "" TIMEOUT 5
  lt = "Whatsapp"
  lhwnd = FindWindow (0, lt)
  IF lhwnd!= 0 && Comprueba si la ventana está activada
     SetForegroundWindow (lhwnd) && Establece el foco en la ventana de la aplicación donde Tú envías la llave.
     ShowWindow (lhwnd, 1)
     ox = CREATEOBJECT ( "Wscript.Shell" )
     ox.sendKeys ( '{ENTER}' )
=INKEY(5)
FOR i=1 to 8
ox.sendkeys ("{TAB}")
WAIT WINDOW ("TAB" + STR(i)) nowait
=INKEY(.2)
ENDFOR
ox.sendkeys ("{ENTER}")
ox.sendkeys ("{UP}")
ox.sendkeys ("{UP}")
ox.sendkeys ("{ENTER}")
=INKEY(1)
ox.sendkeys ("^{v}")
ox.sendkeys ("{ENTER}")
ox.sendkeys ("{ENTER}")
ELSE
Messagebox ("Whatsapp not Activated" )
Endif
De: publice...@googlegroups.com <publice...@googlegroups.com> en nombre de Maxx <manis...@gmail.com>
Enviado: sábado, 19 de marzo de 2022 03:05
Para: Comunidad de Visual Foxpro en Español <publice...@googlegroups.com>
Asunto: Re: [vfp] Envio de mensajes por whatsApp
 

ZeRoberto

unread,
Mar 21, 2022, 10:43:38 PM3/21/22
to publicesvfoxpro
No me funciona hay que instalar la aplicacion de wasap?

Saludos

Ze




Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/SN6PR02MB563051914C0E35F92194E8EFC5149%40SN6PR02MB5630.namprd02.prod.outlook.com.

HernanCano

unread,
Mar 21, 2022, 11:21:59 PM3/21/22
to Comunidad de Visual Foxpro en Español
Sí.

Marcelo Barberis

unread,
Apr 7, 2022, 2:42:27 PM4/7/22
to publicesvfoxpro
hola buenas tardes, he probado el codigo que publicaron en este hilo de envios por whatapp pero no he logrado enviarlo con un adjunto PDF, alguien pudo utilizarlo con envio de adjuntos..??? Deseo enviar dos adjuntos, un PDF y una planilla de Excel

Este es el codigo que utilize, lo baje de este hilo

pdf_filepath = "C:\SIGEV_MENDOZA\PDF_Facturas\FactCV_20220327_452091_9_F.pdf"

DO wafoxpdf WITH pdf_filepath
Function wafoxpdf
PARAMETERS CFilepath
_cliptext = cFilepath && Path For PDF
Declare Sleep In kernel32 Integer
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, comando
lhwndcPhone=[59171860828]
cmd='whatsapp://send?phone=' + lhwndcPhone + '&text=Señor Abonado : ' + ' Su Factura ya esta disponible '
--
Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/f8a5ad02-bc16-4334-b89e-4fa5ebebf5ddn%40googlegroups.com.

Edwin Duran

unread,
Apr 7, 2022, 6:12:09 PM4/7/22
to Comunidad de Visual Foxpro en Español
Prueba colocando esto de esta forma  pdf_filepath = [C:\SIGEV_MENDOZA\PDF_Facturas\FactCV_20220327_452091_9_F.pdf]

Roberto Daniel Burgos

unread,
Apr 7, 2022, 6:45:41 PM4/7/22
to publicesvfoxpro
Hola Marcelo... buenas tardes
probá esto, lo tengo en beta
 
? wafoxpdf (lcPhone, lcText, lcDocument)
 
Function wafoxpdf
*
* Creada por Manish Swami
* Ejemplo:
* SendKeys de Microsoft
* ShellExecute
* Publicación 19/03/2022
* Ajustes 19/03/2022
*
    Parameters pcPhone, pcText, pcDocument
    Local lhwnd, llResult, pcOldValue
    pcOldValue = _Cliptext
    _Cliptext = pcDocument
    Declare Sleep In kernel32 Integer
    Declare Integer FindWindow In WIN32API String , String
    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
 
    lhwnd = FindWindow(0, "WhatsApp")                                 && Busca la ventana WhatsApp y devulve su puntero
    If lhwnd # 0                                                         && 0 si no fue hallada
        oKey = Createobject("Wscript.Shell" )                         && Crea el objeto para usar el metodo SENDKEYS
        lcCommand = "whatsapp://send?phone=" + pcPhone             && Abro el canal de CHAT
        =ShellExecute(0, "open", lcCommand, "", "", 0)
        Sleep(5000)
*!*                Como no siempre se abre la ventana con el foco en la caja de texto
*!*                le envio un texto para poner el cursor en dicho objeto
        lcCommand = lcCommand + "&text=" + pcText
        =ShellExecute(0, "open", lcCommand, "", "", 0)                 && Envío el nuevo comando con el texto
        Sleep(500)
        oKey.sendkeys ("{ENTER}")
        Sleep(3000)
        oKey.sendkeys ("+{TAB}")                                        && Shift+TAB
        Sleep(500)
        oKey.sendkeys ("{ENTER}")
        Sleep(500)
        oKey.sendkeys ("{UP 2}")
        Sleep(500)
        oKey.sendkeys ("{ENTER}")
        Sleep(500)
        oKey.sendkeys ("^{v}")
        Sleep(3000)
        oKey.sendkeys ("{ENTER}")
        Sleep(3000)
        oKey.sendkeys ("{ENTER}")
        Sleep(2000)
        ShowWindow (lhwnd, 11)                                && Fuerza al minimizado de la ventana
        oKey = Null
        llResult = .T.
    Else
        Messagebox ("Whatsapp no está disponible, abralo o intalelo")
        llResult = .F.
    Endif
    Clear Dlls "Sleep", "FindWindow", "ShowWindow", "ShellExecute"
    _Cliptext  = pcOldValue
    Return llResult
Endfunc
 
 
Saludos
Daniel Burgos

Don Saas

unread,
Apr 10, 2022, 12:19:20 PM4/10/22
to Comunidad de Visual Foxpro en Español
hola amigo

quisiera adaptarlo a q envie mensajes a grupos especificos cuyos nombres deberian estar almacenados en alguna tabla. 


¿como podria hacerlo? 


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=[nombredegrupo]
ccMessage=[el numero 6]
cmd='whatsapp://send?group=&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

James Suárez

unread,
Apr 14, 2022, 2:25:48 PM4/14/22
to publice...@googlegroups.com
El servicio de Waba permite hacer eso. Se obtiene una lista de chats, se filtra con el nombre de grupo y se envía el mensaje igual que a cualquier otro número.

Más información: 
Whatsapp: +573058232396


--
Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/df4d0a63-513d-4b63-821d-48b7d9a79315n%40googlegroups.com.
Reply all
Reply to author
Forward
0 new messages