ENVIAR COMANDOS
Publicado: Mié Ene 04, 2006 9:44 am
Tenemos un programita hecho en VB que mediante esta función envia ordenes
a la pantalla para abrir otro programa.
Se podria hacer en XAILER? Alguna Idea.
/***************
DDEPoke ELCANAL, "EPS(1797,1)", "PRIMERO"
DDEExecute ELCANAL, "[SENDKEY(ENTER)]"
EsperaTWAIT
DDEPoke ELCANAL, "EPS(210,1)", "/SEGUNDO"
DDEExecute ELCANAL, "[SENDKEY(ENTER)]"
EsperaTWAIT
/****************
// Despues captura la pantalla
pan = DDERequest(ELCANAL, "PS") 'Captura la pantalla en pan
a la pantalla para abrir otro programa.
Se podria hacer en XAILER? Alguna Idea.
/***************
DDEPoke ELCANAL, "EPS(1797,1)", "PRIMERO"
DDEExecute ELCANAL, "[SENDKEY(ENTER)]"
EsperaTWAIT
DDEPoke ELCANAL, "EPS(210,1)", "/SEGUNDO"
DDEExecute ELCANAL, "[SENDKEY(ENTER)]"
EsperaTWAIT
/****************
// Despues captura la pantalla
pan = DDERequest(ELCANAL, "PS") 'Captura la pantalla en pan