ABRIR WHATSAPP WEB en una ventana de VFP

704 views
Skip to first unread message

VIENTRI SOFTWARE

unread,
Jan 28, 2020, 7:23:23 AM1/28/20
to Comunidad de Visual Foxpro en Español
Queria saber si alguien sabe como abrir via ole automation un navegador compatible con Whatsapp Web.
Estoy intentando mostrar ya sea Whatsapp web o bien la aplicacion de Whatsapp en un formulario de VFP. 
Explorer ya no es compatible y no sé si es simple hacerlo con algun otro explorador o hay alguna forma de ejecutar un programa y que se vea dentro de una ventana de VFP.
Desde ya muchas gracias !
Sebastián.

Zarlu

unread,
Jan 28, 2020, 8:34:38 AM1/28/20
to Comunidad de Visual Foxpro en Español
Buenos días VIENTRI SOFTWARE!

No sé si haya alguna otra manera.
Se me ocurre lanzar la página de Whats que requieres (con el explorador compatible) con ShellExecute, atrapar el handle de la ventana y entonces acloparla a un formulario...

Suerte
zarlu
Chetumal, Quintana Roo, México

VIENTRI SOFTWARE

unread,
Jan 28, 2020, 9:23:27 AM1/28/20
to Comunidad de Visual Foxpro en Español
Supongamos que tengo la ventana y su handle, como seria  acoplarla a un formulario ?

Zarlu

unread,
Jan 28, 2020, 10:26:37 AM1/28/20
to Comunidad de Visual Foxpro en Español
Qué tal VIENTRI SOFTWARE!

Sería algo como esto....

DECLARE INTEGER SetParent IN user32;
    INTEGER hWndChild,;
    INTEGER hWndNewParent
DECLARE INTEGER SetWindowPos IN user32;
    INTEGER hwnd,;
    INTEGER hWndInsertAfter,;
       INTEGER x,;
       INTEGER y,;
       INTEGER cx,;
    INTEGER cy,;
    INTEGER wFlags 

SetParent(nHwnd,ThisForm.HWnd)&&de la aplicacion, del formulario contenedor

LOCAL nLeft,nTop,nWidth,nHeight
nLeft = ThisForm.shape1.Left
nTop = ThisForm.shape1.Top
nWidth = ThisForm.shape1.Width
nHeight = ThisForm.shape1.Height

SetWindowPos(nHwnd, 1,nLeft, nTop,nWidth, nHeight,64)

(Aclaro que es una ocurrencia, no sé si funcione, trataré de echarlo a andar)

zarlu
Chetumal, Quintana Roo

victor cheguen

unread,
Jan 28, 2020, 10:49:22 AM1/28/20
to publice...@googlegroups.com
buenas tardes

por casualdad alguen prodria ilumnarme
como pasar un archo txt a base 64 en visual foxpro 9

gracias d e antemano
VICTOR CHEGUEN
ASESOR DE INFORMATICA
TEL: 5396-6771 TELEFONICA
      

Los planes bien pensados y el arduo trabajo llevan a la prosperidad,
pero los atajos tomados a la carrera conducen a la pobreza.

PROVERBIOS


--
Visita el 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/c09b2fb1-195d-4593-9a45-dedb971f7cb0%40googlegroups.com.

VIENTRI SOFTWARE

unread,
Jan 28, 2020, 4:36:01 PM1/28/20
to Comunidad de Visual Foxpro en Español
Muchisimas Gracias Zarlu !!! 
Funciona a la perfección ! 
Se puede abrir cualquier aplicacion dentro de una ventana de VFP . Realmente muy util.
Excelente !!!
Gracias de nuevo !
Sebastián. 

Zarlu

unread,
Jan 29, 2020, 1:25:11 PM1/29/20
to Comunidad de Visual Foxpro en Español
Buenas tardes VIENTRI SOFTWARE!

Excelente colega!!

Con apoyo de la red ya había trabajado en el tema. Aquí lo comparto.
La parte de ocultar los botones (minimizar, maximizar, cerrar) no funciona con las ventanas del navegador, de todas maneras dejé el código.
Para ocultar dichos botones subí la ventana (top) hasta dejar la barra fuera del formulario. Así ni se puede cerrar, ni mover.
whatsform.prg

Miguel A.

unread,
Jan 29, 2020, 2:05:06 PM1/29/20
to Comunidad de Visual Foxpro en Español
Muy bueno Zarlu,
Gracias por tu aporte.
Reply all
Reply to author
Forward
0 new messages