[PowerCOBOL + WinAPI] Hacer Click en un botón por Software

[Rapinto]

Ás vezes necessitamos de executar o código que está num botão, sem o operador saber.

Por exemplo, para correr um programa automaticamente, sem intervenção do operador, mas utilizando o mesmo programa com interface com o operador.

Com este código, podemos simular que foi pressionado um botão (ou CMCommand1).

 @OPTIONS NOALPHA
*****************************************************************
*  Copyright (c) 2005 R.P.S.
*
*  Last Modified:    Jan 2005.
*****************************************************************
 IDENTIFICATION DIVISION.
 PROGRAM-ID.    INVOKECLICK.
 AUTHOR.        Rui Pinto - MAR 2005.
*-----------------------------------------------------------------
 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 SPECIAL-NAMES.
 INPUT-OUTPUT SECTION.
 FILE-CONTROL.
*-----------------------------------------------------------------
 DATA DIVISION.
 FILE SECTION.
 WORKING-STORAGE SECTION.
*
*
 01  MSGFUNCTION                   PIC S9(009)    COMP-5  VALUE ZERO.
 01  MSGPARAM1                     PIC S9(009)    COMP-5  VALUE ZERO.
 01  MSGPARAM2                     PIC S9(009)    COMP-5  VALUE ZERO.
 LINKAGE SECTION.
 01  WS-HANDLER                    PIC S9(009)    COMP-5.
 PROCEDURE DIVISION USING WS-HANDLER.
 MAIN SECTION.
 MAIN-00.
      IF WS-HANDLER = 0 
           CALL "GetFocus" WITH STDCALL RETURNING WS-HANDLER.
****   MOUSE DOWN
      MOVE 513 TO MSGFUNCTION.
      MOVE 0 TO MSGPARAM2.
      MOVE 0 TO MSGPARAM1.
      CALL "SendMessageA" WITH STDCALL USING BY VALUE WS-HANDLER
                                             BY VALUE MSGFUNCTION
                                             BY VALUE MSGPARAM1
                                             BY VALUE MSGPARAM2.
****   MOUSE UP
      MOVE 514 TO MSGFUNCTION.
      MOVE 0 TO MSGPARAM2.
      MOVE 0 TO MSGPARAM1.
      CALL "SendMessageA" WITH STDCALL USING BY VALUE WS-HANDLER
                                             BY VALUE MSGFUNCTION
                                             BY VALUE MSGPARAM1
                                             BY VALUE MSGPARAM2.
****   BUTTON STATE
      MOVE 243 TO MSGFUNCTION.
      MOVE 0 TO MSGPARAM2.
      MOVE 0 TO MSGPARAM1.
      CALL "SendMessageA" WITH STDCALL USING BY VALUE WS-HANDLER
                                             BY VALUE MSGFUNCTION
                                             BY VALUE MSGPARAM1
                                             BY VALUE MSGPARAM2.
 
 MAIN-99.
 END PROGRAM INVOKECLICK.
*   INVOKE CMCOMMAND2 "SETFOCUS". FOCUS NO BOTAO A CLICKAR
*   CALL "INVOKECLICK".     
*   INVOKE CMCOMMAND1 "SETFOCUS". FOCUS PARA OUTRO OBJECTO

Espero que ajude alguém.
Un saludo,
Rui Pinto

[Galileo]

Entiendo que estás hablando de un programa hecho en PowerCOBOL. En PC 3.0 yo lo que hago es poner en el botón sólo la llamada a un subprograma que estará en el evento PROCEDURE del form.

Por ejemplo, en el botón estaría un código como éste:

CALL "Imprimir"

El subprograma "Imprimir" estaría en la PROCEDURE. Si yo quiero imprimir sin pulsar el botón, símplemente llamo a dicho subprograma.

Si el programa es nuevo creo que es una buena práctica proceder de esta manera. Pero si el programa ya está hecho y es grande, entonces tu código sí es de utilidad. Y me resulta muy ilustrativo sobre la forma de invocar las funciones de la API de Windows.

[Rapinto]

Galileo,

Também utilizo esse forma de programar no PowerCobol 9.0
(No botão tem apenas o "call" e a rotina esta fora).
Tens razão, é a melhor maneira de programar.

Este meu exemplo tem mesmo como objectivo, dar uma ideia de como utilizar as API's do Windows.

Un Saludo e Feliz Navidad

Rui Pinto