Automatizando Aplicaciones desde VFP (Google Earth)

Pues Google Earth tiene también su modelo de objectos. Lo primero es tener instalado esta aplicación, existe una versión gratis aquí:

El siguiente ejemplo los lleva directamente a la ciudad de Santiago de los Caballeros (donde vivo) en República Dominicana.

Recordandoles que la magia aquí consiste en tres cosas:
1- Conocer como se llama la clase, talvez la parte mas dificil pues hay que investigarla en Internet o usando el Object Browser de VFP, herramienta esta que yo nunca termino de entender bien.

2- Sacarle provecho al Intellisence, disponible desde la version 7 en adelante, que aunque la heredamos de los chicos de VB, se hizo mejor que la de VB.

3- Tener un poco de arte, para inventar multiples usos y resolver necesidades



TEXT TO lcAddress NOSHOW
Santiago dominican republic
ENDTEXT

oGE = CREATEOBJECT("GoogleEarth.ApplicationGE")
DO WHILE oGE.IsInitialized = 0 OR oGE.IsOnline = 0
DOEVENTS
ENDDO

oSC = oGE.SearchController
*oSC.ClearResults
INKEY(5)
oSC.Search(lcAddress)

Automatizando aplicaciones desde VFP

Cuantas veces no hemos deseado controlar aplicaciones como MS Word, MS Excell, etc. Esto es facil desde VFP, ya que dichas aplicaciones contienen un modelo de objectos, que permiten infinidad de cosas.

Para automatizar cualquier aplicación que tenga un modelo de objectos solo hay que conocer el nombre del objecto a automatizar y dejarse llevar del Intellisence de VFP. Aqui pueden encontrar una lista de objectos http://fox.wikis.com/wc.dll?Wiki~AutomationObjects~SoftwareEng

Para probar nuestra primera etapa, comenzaremos con un ejemplo de como automatizar MSN-Messenger. En mi oficina usamos esta aplicación para dar servicios a nuestro cliente de manera remota. Tiene las ventajas de que es gratis, la conocen muchas personas y su manejo es sencillo. Nosotros usamos un grid con los datos de las personas que ofrecen servicio y su cuenta de correo, el usuario que no conoce bien Messenger lo asistimos desde una pantalla pre-programada que le abrirá messenger, agregará uno de nuestro usuarios a su lista y desde ahi comienza a trabajar con nosotros.

Manera facil de manejar messenger, veamos (aqui uso Windows Messenger, el modelo de objecto asi como la clase cambia de acuerdo a la version):

oMessenger =CREATEOBJECT("Messenger.MessengerApp.1") &&Creamos el objecto
oMessenger .Visible = .t. &&Aqui aparece la ventana de messenger
oMessenger .LaunchLogonUI() &&llama la ventana para la clave
oMessenger .LaunchAddContactUI &&Si deseamos abrir la ventana para agregar contacto

Articulos de Luis María Guayan

Esta lista de artículos sobre Visual Foxpro no podría faltar en la lista de los programadores. Creo que no hay desperdicios.

http://www.luismariaguayan.com.ar/articulos.htm

Mi primera entrada

Esto es solo para Probar.