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