Artículo publicado en la revista FoxPress en junio de 2006. Algunos datos, versiones y funciones citados (MySQL, PHP, Visual FoxPro, Windows) pueden haber quedado desfasados.
Tenemos dos opciones, una es mediante el WScript:
LOCAL oShell && as WScript.Shell
oShell = CREATEOBJECT("WScript.Shell")
oShell.SendKeys("C:\MiPath\MiFile.ext")Mirar el siguiente documento sobre cómo tiene que estar creado ese fichero:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/4b032417-ebda-4d30-88a4-2b56c24affdd.asp
La otra es mediante el PostMessage()
DECLARE INTEGER FindWindow IN WIN32API INTEGER, STRING
DECLARE INTEGER PostMessage IN WIN32API INTEGER, INTEGER, INTEGER, INTEGER
WM_CHAR = 258
hw = FindWindow(0, "Aplicación MySQL")
str = "FC.EN.CD"
FOR i=1 TO LEN(str)
? PostMessage(hw, WM_CHAR, ASC(SUBSTR(str,i,1)), 0)
ENDFOR¿Quieres llevar la IA a los datos de tu empresa?
En una auditoría gratuita de 30 minutos vemos qué caso concreto te ahorraría más trabajo.
Reservar mi auditoría →