A partir de la respuesta de Pancho ... me puse a mirar este tema un poco más y me encontré con una GRATISIMA sorpresa DO (HOME() + "tools\test\aatest")
http://msdn.microsoft.com/en-us/library/aa977109(v=VS.71).aspx SaludOZ, 2010/11/22 <[email protected]> > Un maestro !!!! > Cuando se me pase el estado que me provoco lo que tome para acompaniar el > asao. Lo pruebo. > MUCHAS GRACIAS. > > ------------------------------ > *From: *francisco prieto <[email protected]> > *Sender: *[email protected] > *Date: *Sun, 21 Nov 2010 13:15:54 -0300 > *To: *GUFA List Member<[email protected]> > *ReplyTo: *[email protected] > *Subject: *[GUFA] OFF TOPIC > > Bueno, esto que sigue solo va a funcionar si > > 1) La otra ventana (donde se encuentra el botón) esta en pantalla > 2) La otra ventana es visible > 3) La otra ventana siempre esta en la misma posición. > > opción > > #Define MOUSEEVENTF_RESET 1 > > #Define MOUSEEVENTF_LEFTDOWN 2 > > #Define MOUSEEVENTF_LEFTUP 4 > > #Define MOUSEEVENTF_RIGHTDOWN 8 > > #Define MOUSEEVENTF_RIGHTUP 16 > > #Define MOUSEEVENTF_MIDDLEDOWN 32 > > #Define MOUSEEVENTF_MIDDLEUP 64 > > #Define MOUSEEVENTF_MIDDLEUP_WHEEL_MOVED 128 > > Declare mouse_event In user32.Dll Long,Long,Long,Long,Long > > =mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,288,0) > > opcion2 > > #define MOUSEEVENTF_LEFTDOWN 0x00000002 &&H2 > > > #define MOUSEEVENTF_LEFTUP 0x00000004 &&H4 > > #define MOUSEEVENTF_RIGHTDOWN 0x00000008 &&&H8 > > #define MOUSEEVENTF_RIGHTUP 0x00000010 &&&H10 > > > #define MOUSEEVENTF_MOVE 0x00000001 &&&H1 > > *!* LEFTDOWN = 0x00000002, > > *!* LEFTUP = 0x00000004, > > *!* MIDDLEDOWN = 0x00000020, > > *!* MIDDLEUP = 0x00000040, > > *!* MOVE = 0x00000001, > > > *!* ABSOLUTE = 0x00008000, > > *!* RIGHTDOWN = 0x00000008, > > *!* RIGHTUP = 0x00000010 > > *!* #include <windows.h> > > DECLARE integer mouse_event IN User32.dll; > > long,long,long,long,long > > > DECLARE integer SetCursorPos IN User32.dll; > > long,long > > PRIVATE X,Y LONG > > X=ThisForm.Text1.Value > > Y=ThisForm.Text2.Value > > SetCursorPos(X,Y) > > mouse_event(MOUSEEVENTF_LEFTDOWN,ThisForm.Text1.Value,ThisForm.Text2.Value,0,0) > > > mouse_event(MOUSEEVENTF_LEFTUP,ThisForm.Text1.Value,ThisForm.Text2.Value,0,0) > > > > Aca te paso los parametros de las funciones Api que se usan > > http://msdn.microsoft.com/en-us/library/ms646260(VS.85).aspx > > http://msdn.microsoft.com/en-us/library/ms648394(VS.85).aspx > > Saludos, > > Pancho > > Cordoba > > El 21 de noviembre de 2010 11:17, Omar Bellio <[email protected]>escribió: > >> Y ese otro programa soporta automation? (la pregunta es “por las dudas”, >> aunque sospecho que no) >> >> >> >> *De:* [email protected] [mailto:[email protected]] *En nombre de *Alejandro >> Paciotti Iacchelli >> *Enviado el:* sábado, 20 de noviembre de 2010 12:10 p.m. >> >> *Para:* GUFA List Member >> *Asunto:* [GUFA] OFF TOPIC >> >> >> >> El programa que tiene el botón ya existe, no lo hice yo. >> >> Gracias. >> >> Ale Paciotti >> >> Córdoba. >> >> >> >> *De:* [email protected] [mailto:[email protected]] *En nombre de *francisco >> prieto >> *Enviado el:* sábado, 20 de noviembre de 2010 11:58 >> *Para:* GUFA List Member >> *Asunto:* [GUFA] OFF TOPIC >> >> >> >> Y la pregunta es.... >> >> >> >> Ambos programas aun no los has hecho o el programa que tiene el boton ya >> existe. >> >> >> >> Saludos, >> >> >> >> Pancho >> >> Cordoba >> >> El 20 de noviembre de 2010 11:20, Alejandro Paciotti Iacchelli < >> [email protected]> escribió: >> >> Estimados: necesito hacer un programa que ejecute otro programa y haga >> clic en un botón. Lo puedo hacer en FOX, en C#, .BAT o lo que se les ocurra. >> Alguien me puede tirar una idea ? >> >> >> >> Gracias. >> >> >> > >
